Private Sub Command1_Click() a = InputBox("请输入数字a") b = InputBox("请输入数字b") If a > b Then Print "最大数字为" & a & (Chr(13) & Chr(10)) & "最小数字为" & b Else Print "最大数字为" & b & (Chr(13) & Chr(10)) & "最小数字为" & a
End If End Sub本回答被提问者采纳
第2个回答 2010-11-09
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = InputBox("", "") b = InputBox("", "") If Val(a) > Val(b) Then Print "最大值:" & a Print "最小值:" & b Else Print "最大值:" & b Print "最小值:" & a End If End Sub