VB问题!!

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:48:09
保存名:num_game.ocx,作用是生成一个1到100之间的随机数让用户猜，猜错提示偏大还是偏小，猜中后提示并统计猜测次数.

界面:一个文本匡:Text1
一个按纽:名称随机
控件加载时代码:
Dim a As Integet
a=Int(Rnd*100)
猜数时的代码(按纽按下时的代码):
If Val(Text1.Text)<a Then
Static b As Integet
MsgBox "偏小",vbImformation
b=b+1
ElseIf Val(Text1.Text)>a Then
Static b As Integet
MsgBox "偏大",vbImformation
b=b+1
Else
MsgBox "正确!共计猜测"& b &"次."
End If