vb问题 输入两个数,输出较大的一个

来源：百度知道 编辑：UC知道 时间：2024/05/04 21:38:00
谢谢啦~~ 要毕业清考了~~
还有一题好像是输入两个数据，交换后输出？ 谢谢

Private Sub Form_Load()
Dim a As Double
Dim b As Double
a = InputBox("第一个数")
b = InputBox("第二个数")
If a > b Then
MsgBox (a & "比较大吧哈哈")
ElseIf a = b Then
MsgBox ("两个一样大吧哈哈哈")
ElseIf a < b Then
MsgBox (b & "比较大吧哈哈")
End If
End Sub

有两种做法
方法1
Private Sub Form_Load()
Dim a As Double
Dim b As Double
Dim c As Double
a = InputBox("第一个数")
b = InputBox("第二个数")
c = a
a = b
b = c
MsgBox (a)
MsgBox (b)
End Sub

方法2
Private Sub Form_Load()
Dim a As Double
Dim b As Double
a = InputBox("第一个数")
b = InputBox("第二个数")
MsgBox (b)
MsgBox (a)
End Sub

大家交流 我是新手
498483439

1.求两个数的最大值。
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2)
If a > b Then
Print "最大数是:"