猜数字游戏 麻烦帮忙写个编程

来源：百度知道 编辑：UC知道 时间：2024/09/23 07:11:54
编程:单击“开始”按钮，程序产生一个随机数；在文本框中输入一个猜想的整数，单击“猜”按钮；根据标签控件的显示文字的提示（提示一：“你猜大了，再试一次吧”；提示二：“你猜小了，再试一次吧”；提示三：“恭喜，你猜对了，共用了N次，再来一次吧”）。
注：随机函数Rnd()可产生一个0~1之间的单精度数。
提示：程序中，要定义一个窗体级变量，来保存程序产生的随机数。

VB的,每点一次按钮猜一次

Dim i%, x%, s%, y%

Private Sub Command1_Click()
If i = 0 Then
Randomize
x = Int(Rnd * 101)
End If

i = i + 1
If i > 10 Then
MsgBox "错了10次了呀!!"
End
End If

y = Val(InputBox("请猜猜是多少吧!!", "这是第" & i & "次"))

If x = y Then
s = s + 10
If s = 100 Then
MsgBox "神机妙算!"
Exit Sub
End If
MsgBox "完全正确!你现在有" & s & "分了!"

i = 0
End If

If y > x Then MsgBox "太大了!"
If y < x Then MsgBox "太小了!"
End Sub