VB判断大小数字

来源：百度知道编辑：UC知道时间：2024/06/04 16:42:58

老师让编一个小程序，两个输入文字的框，一个按钮。
在上面的框中输入一个数，当大于50时，底下的文字框中显示大。当小于50时，底下的文字框显示小。

好的程序来了,自己特意为你写的,已经验证OK!!!

Private Sub Command1_Click()

Dim num As Single

num = Val(Text1.Text)

If num > 50 Then

Label2.Caption = "小"

Else

Label2.Caption = "大"

End If

End Sub

Private Sub Form_Load()

Label1.FontSize = 12

Label1.AutoSize = True

Label1.Caption = "请输入一个数字:"

Label2.FontSize = 72

Label2.AutoSize = True

Label2.ForeColor = vbRed

Command1.Caption = "比较大小"

End Sub

你在窗体上添加两上label文字框,一个text文本输入框,一个Command按钮，然后把上面的代码复制进去，运行看结果吧！！

运行结果如下图：