课题8 随机数案例复习加练
授课：刘金玉
猜猜我是几小游戏:
本期为复习课，增加代码的练习。
知识要点：
1.随机数知识
2.弹出框inputbox
3.窗体启动加载事件form_load
4.消息提示框msgbox
5.相关控件：label、commandbutton、picturebox、textbox、listbox
6.相关逻辑：if语句大小判断
程序注意要点：
1.随机数生成前一定要加随机数种子，randomize默认把系统时间作为随机数种子
如果不写，随机数将可能出现固定一个值的情况。
软件设计界面：
源代码分享：
Dim sjs%, c% Private Sub Command1_Click() Randomize 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 Picture1.Print "恭喜你，猜对了,这是第" & c & "次猜测" List1.AddItem "第" & (List1.ListCount + 1) & "轮猜测，猜了" & c & "次" c = 0 End If End Sub Private Sub Form_Load() Show Dim a$ a = InputBox("请输入密码", "密码aaa") If a <> "aaa" Then End End If End Sub
