- meira
-
private sub from_load()
dim a%,b%
a=msgbox("请输入第一个数:")
b=msgbox("请输入第二个数:")
if a>b then b=a
print "较大的数是:" & b
end sub
- 可可
-
a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
If a > b Then
MsgBox a
Else
MsgBox b
End If
- coco
-
Private Sub Command1_Click()
Dim a, b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Print a
End If
End Sub
- 里论外几
-
Sub Main()
Dim dbl第一个数 As Double
Dim dbl第二个数 As Double
Console.WriteLine("请输入第一个数:")
dbl第一个数 = Console.ReadLine()
Console.WriteLine("请输入第二个数:")
dbl第二个数 = Console.ReadLine()
Console.WriteLine("输入的两个数中最大的是:" & fun最大数(dbl第一个数, dbl第二个数))
Console.ReadLine()
End Sub
Private Function fun最大数(ByVal dbl第一个数 As Double, ByVal dbl第二个数 As Double) As String
If dbl第一个数 = dbl第二个数 Then
Return "两个数相等"
ElseIf dbl第一个数 > dbl第二个数 Then
Return dbl第一个数.ToString
Else
Return dbl第二个数.ToString
End If
End Function
- FinCloud
-
好简单的程序啊...