Question

VB编程 。 利用inputbox函数输入两个整数，在窗体上输出它们中的最大数和最小数

Answer 1

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

Answer 2

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