vb 让系统生成一个0~1000的随机数，用户输入的数字和随机数进行比较，告诉用户结果大了还是小了，直到猜中

Question

作业！！！谢谢求解

Answer 1

Dim a As Integer

Private Sub Form_Load()

   Randomize

   a = Int(Rnd * 1000)

End Sub

Private Sub Command1_Click()

   If Text1.Text = a Then Label1.Caption = "真聪明，你猜对了！"

   If Text1.Text > a Then Label1.Caption = "你猜大了！"

   If Text1.Text < a Then Label1.Caption = "你猜小了！"

End Sub

Private Sub Text1_Change()

   Label1.Caption = ""

End Sub

Answer 2

首先界面上有一个label，用以提示是大了还是小了还是对了，然后有一个textbox，用以接受用户输入的值，然后有一个button，用以执行比较
在申明中写
dim Rnd as new random()
dim m as integer
m=Cint(Rnd.next()*1000)

在按钮事件里写：
if Cint(TextBox1.caption)>m
label1.caption="大了"
textbox1.caption=""
elseif Cint(TextBox1.caption)<m
label1.caption="小了"
textbox1.caption=""
else
label1.caption="恭喜你，你猜对了，这个数字是：" & m
end if

Answer 3

Private Sub Form_Load()
Dim a As Integer, b As Integer
Randomize
a = Int(Rnd * 1001)
Do
b = Val(InputBox("请输入"))
If b = a Then
MsgBox "回答正确！"
End
ElseIf b > a Then
MsgBox "数字大了"
Else
MsgBox "数字小了"
End If
Loop
End Sub