猜数字游戏代码-优快云博客

本文链接：https://blog.youkuaiyun.com/YRHbaiyang/article/details/5060752

这是一个简单的猜数字游戏代码示例，游戏提供三个难度等级，玩家有五次机会猜测正确的数字。代码使用了VBScript进行编写，并详细展示了如何实现随机数字生成及用户输入验证等功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

游戏带给我们快乐，下面是我写的一个小游戏。希望大家多多指点Option Explicit Dim i As Integer, j As Integer Dim intnum As String, intTxt As String '定义变量 Private Sub CboType_Click() Randomize '在cbotype被点击改变时就随机赋值给变量intnum If CboType.ListIndex = 0 Then intnum = Int((10 - 1 + 1) * Rnd + 1) '利用函数对intnum赋值 ElseIf CboType.ListIndex = 1 Then intnum = Int((20 - 1 + 1) * Rnd + 1) ElseIf CboType.ListIndex = 2 Then intnum = Int((30 - 1 + 1) * Rnd + 1) End If Print intnum End Sub Private Sub CmdGuess_Click() For j = 5 To 1 Step -1 '以五次的循环来规定用户输入的次数并作出判断用户是否输入成功 intTxt = InputBox("请输入您猜测的数字") If intTxt = intnum Then MsgBox "恭喜您，您过关了!" Exit For ElseIf intTxt <> intnum Then If j > 1 Then MsgBox "没猜对，您还有" & j - 1 & "次机会!" Else MsgBox "能背到这个地步也算是个人才，这个数是" & intnum '当用户输入所有次数不成功后显示出应该输入的数 Exit For End If End If Next j End Sub Private Sub Form_Load() Label1.Caption = "猜数字，请给出您猜出的数字!" Label1.FontSize = 24 Label1.ForeColor = vbGreen Label1.FontName = "华文新魏" CboType.AddItem "第一关" CboType.AddItem "第二关" CboType.AddItem "第三关" CmdGuess.Caption = "我猜我猜我猜猜" CmdGuess.FontName = "华文行楷" CmdGuess.FontSize = 12 End Sub Option Explicit Dim i As Integer, j As Integer Dim intnum As String, intTxt As String '定义变量 Private Sub CboType_Click() Randomize '在cbotype被点击改变时就随机赋值给变量intnum If CboType.ListIndex = 0 Then intnum = Int((10 - 1 + 1) * Rnd + 1) '利用函数对intnum赋值 ElseIf CboType.ListIndex = 1 Then intnum = Int((20 - 1 + 1) * Rnd + 1) ElseIf CboType.ListIndex = 2 Then intnum = Int((30 - 1 + 1) * Rnd + 1) End If Print intnum End Sub Private Sub CmdGuess_Click() For j = 5 To 1 Step -1 '以五次的循环来规定用户输入的次数并作出判断用户是否输入成功 intTxt = InputBox("请输入您猜测的数字") If intTxt = intnum Then MsgBox "恭喜您，您过关了!" Exit For ElseIf intTxt <> intnum Then If j > 1 Then MsgBox "没猜对，您还有" & j - 1 & "次机会!" Else MsgBox "能背到这个地步也算是个人才，这个数是" & intnum '当用户输入所有次数不成功