简介 INTRODUCTION通过一个小游戏实战，来综合复习基础知识，特别是随机数的灵活使用
课题7 随机数案例练习
授课：刘金玉
猜猜我是几小游戏:
知识要点：
1.随机数知识
2.弹出框inputbox
3.窗体启动加载事件form_load
4.消息提示框msgbox
5.相关控件：label、commandbutton、picturebox、textbox、listbox
6.相关逻辑：if语句大小判断
思路分析步骤：
1.在form_load事件中使用inputbox用来输入密码
2.判断输入密码正确，就进入界面，否则就不能进入游戏界面
3.将生成的随机数存储到全局变量中（通用中）
4.猜解的时候，将输入的数字转为数值类型与生成的随机数比较
5.比较判断大小，将结果提示输出到日志区（picturebox）
6.每次猜解成功后，将猜解次数保存到listbox列表中
开发过程要点：
1.生成[1,1000]的随机整数，使用int(rnd*1000 1)
2.猜解逻辑伪代码
注意：如果没有猜对，需要记录猜测次数到一个变量中。
if 输入值>随机数 then
print 猜大了
else if 输入值<随机数 ｔｈｅｎ
print 猜小了
else
print 才对了
end if
3.记录猜解次数
声明全局变量count来记录猜解次数，每次点击猜解都 1
软件设计界面：
源代码分享：
代码语言：javascript复制Dim sjs%, c%
Private Sub Command1_Click()
sjs = Int(Rnd * 1000 1)
Command1.Enabled = False
Label1.Caption = "系统已经生产一个1至1000的随机整数"
End Sub
Private Sub Command2_Click()
c = c 1
Dim shuru As Integer
shuru = Val(Text1.Text)
If c Mod 8 = 0 Then
Picture1.Cls
End If
If shuru > sjs Then
Picture1.Print "猜大了,这是第" & c & "次猜测"
ElseIf shuru < sjs Then
Picture1.Print "猜小了,这是第" & c & "次猜测"
Else
pictrue1.Print "恭喜你，猜对了,这是第" & c & "次猜测"
End If
End Sub
Private Sub Form_Load()
Show
Dim a$
a = InputBox("请输入密码", "密码aaa")
If a <> "aaa" Then
End
End If
End Sub
联系作者：刘金玉
长按关注公众号
编程创造城市官网：https://bcczcs.com/
