1个回答
展开全部
在窗体上加上那四个控件,代码复制过去即可。供参考,祝进步朋友
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1)
b = Val(Text2)
If a < b Then
Label1 = a
Else
Label1 = b
End If
End Sub
Private Sub Form_Load()
Show
Text1 = ""
Text2 = ""
Label1 = ""
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1)
b = Val(Text2)
If a < b Then
Label1 = a
Else
Label1 = b
End If
End Sub
Private Sub Form_Load()
Show
Text1 = ""
Text2 = ""
Label1 = ""
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询