VB比大小程序

程序是有错的，因为

a=text1.text

b=text2.text

c=text3.text

程序会把a、b，c当字符串来比较大小，也就是按着ASCII码来比较大小的，所以得不到真正的结果，比如 23，34，5，那么最大的会是5.

下面的可以：

Private Sub Command1_Click()

a = Val(Text1.Text)'text1.text是字符串形式的要改成数字形式的

b = Val(Text2.Text)

c = Val(Text3.Text)

If a >b And a >c Then

Label1.Caption = a

ElseIf b >c And b >a Then

Label1.Caption = b

ElseIf c >a And c >b Then

Label1.Caption = c

End If

End Sub

你自己的程序也可以改一下，应该就可以了。

Private Sub Command1_Click()

a=VAL(text1.text)

b=VAL(text2.text)

c=VAL(text3.text)

if a >b then

if a >c then

label1.caption=a

end if

elseif b >c then

label1.caption=b

else

label1.caption=c

end if

end sub

窗体上放command1，text1，label1，打开代码窗口，复制下列代码：

Private Num As Integer

Private Sub Command1_Click() '点击猜下一个数

Call Form_Load

Text1.Text = ""

End Sub

Private Sub Form_Load()

Num = Rnd() * 100 + 1 '产生1-100随机数

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii = 13) Then

If (Not IsNumeric(Text1.Text)) Then

MsgBox "请输入数字", vbCritical

Else

If (Text1.Text >Num) Then

Label1.Caption = "您输入的数大了"

ElseIf (Text1.Text <Num) Then

Label1.Caption = "您输入的数小了"

Else

Label1.Caption = "恭喜，您猜对了！"

End If

End If

End If

End Sub

如图所示，timer的interval属性设置成100。如果想立于不败之地，可以在label1.caption=a的下面写一个label2.caption=b。望采纳。。。。

---