Question

VB编程 输入两个数比较大小 显示较大数

Answer 1

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
If a > b Then
Print a
Else
Print b
End If
End Sub

Answer 2

Pivate Sub Command1_Click()
dim t
a = Val(Text1.Text)
b = Val(Text2.Text)
If a> b Then
t = a
a= b
b = t
End If
max=a
Label2.Caption = max
end sub