猜猜我是几小游戏:
知识要点：
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
软件设计界面：
源代码分享：
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
