Question

VB题，各位大神求解🤝

制作一个猜数游戏，点击按钮“生成随机数”，生成一个0~1000的随机数在文本框TEXT/上输人数字来猜测该随机数具体为多少。在输人数值以后系统会提示输入的数值与生成的随机数相比，是大了还是小了，并在下方的标签上显示出已经猜测的次数。

Answer 1

Dim x As Integer
Private Sub Command1_Click()
Randomize Timer
x = Int(Rnd * 1001)
Label1.Caption = 0
Label2.Caption = ""
Text1.Text = ""
MsgBox "开始猜数，在文本框内输入数字，然后按判断按钮"

End Sub

Private Sub Command2_Click()
Label1.Caption = Val(Label1.Caption) + 1
Label2.Caption = Label2.Caption & Text1.Text
If Val(Text1.Text) > x Then
Label2.Caption = Label2.Caption & "大了 "
ElseIf Val(Text1.Text) < x Then
Label2.Caption = Label2.Caption & "小了 "
ElseIf Val(Text1.Text) = x Then
Label2.Caption = Label2.Caption & "对了 "
MsgBox "对了"
End If

End Sub