UC知道帮忙VB边个猜数游戏
来源：百度知道 编辑：UC知道 时间：2024/06/29 21:06:47
<--EndFragment-->点击开始按钮，能随机进行100以内的猜数
游戏者在猜数文本框中输入所猜的数，按命令按钮确认
游戏者确认后，在提示文本框中给出信息，如果猜数不正确，提示本次所猜数据是太大了还是太小了，如果猜数正确，则输出信息“完全正确”。
猜数正确积分加10分，猜数错误积分减10分
当积分累加到100分，输出信息“神机妙算”。
一个数最多允许猜10次，10次到未猜中程序结束。
点击退出按钮，程序结束
知识运用
为了生成真正的随机数，在程序的首部需要使用randomize命令
生成0～100之间的随机数：X=int(rnd*101)
<--EndFragment-->
游戏者在猜数文本框中输入所猜的数，按命令按钮确认
游戏者确认后，在提示文本框中给出信息，如果猜数不正确，提示本次所猜数据是太大了还是太小了，如果猜数正确，则输出信息“完全正确”。
猜数正确积分加10分，猜数错误积分减10分
当积分累加到100分，输出信息“神机妙算”。
一个数最多允许猜10次，10次到未猜中程序结束。
点击退出按钮，程序结束
知识运用
为了生成真正的随机数，在程序的首部需要使用randomize命令
生成0～100之间的随机数：X=int(rnd*101)
<--EndFragment-->
妮可,随你后边了,你忘了加 加循环
Dim s As Integer
Private Sub Command1_Click()
If i = 0 Then
Randomize
x = Int(Rnd * 100)
End If
i = 0
Do
If i > 10 Then
MsgBox "错了10次了呀!!"
End
End If
y = Val(InputBox("请猜猜是多少吧!!", "这是第" & i + 1 & "次"))
If x = y Then
s = s + 10
If s = 100 Then
MsgBox "神机妙算!"
Exit Sub
End If
MsgBox "完全正确!你现在有" & s & "分了!"
Exit Sub
End If
If y > x Then MsgBox "太大了!"
If y < x Then MsgBox "太小了!"
i = i + 1
Loop
End Sub
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 & &q