IF语句的综合应用——猜数字概述.pptVIP

if语句的应用 ——符金梅 If 条件语句的格式 If 条件1 then 语句组1 Else 语句组2 End if 知识回顾 行结构：If 条件1 then 语句组1 块结构：If 条件1 then 语句组1 End if 单分支结构 双分支结构 If 嵌套语句的格式 If 条件1 then 语句组1 Else If 条件2 then 语句组2 Else 语句组3 End If End if 知识回顾 If 条件1 then If 条件2 then 语句组1 Else 语句组2 End If Else 语句组3 End If 随机函数：Rnd [0,1) Rnd*3 知识回顾 [0,3) int（Rnd*3） 0,1,2 int（Rnd*3）+1 1,2,3 Randomize 随机函数初始化 定义通用变量：在每个过程都可以使用的变量 猜一猜数字 界面设计 label1 label2 command1 猜一猜数字 界面设计 label1 label2 label4 label3 label5 label6 image1 command1 command2 command3 Timer控件：计时器 通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。 新知识讲解 Timer 控件用于背景进程中，它是不可见的 Interval属性：在指定的时间间隔时发生一次 Timer.Interval=1000 每隔一秒执行一次Timer事件 Timer.Interval=0 时钟停止，不执行Timer事件 Enabled ：是否可用（不是是否可见） Msgbox控件：实现自定义消息的对话框控件 Msgbox恭喜你，答对了 新知识讲解 Form1中的“进入游戏”按钮 打开Form2，关闭Form1 Form2.Show Form1.Hide 代码分析 实现的功能： 代码： 1 定义通用变量 在每个过程都可以使用的变量 a（输入的值） b（电脑随机产生的值) t（时间） Dim a, b, t As Integer 代码分析 实现的功能： 代码： 所需变量： 2 窗体加载过程 在窗体加载的同时完成一些功能 Private Sub Form_Load() End Sub 代码分析 实现的功能： 双击窗体空白处： 3 Randomize b = Int(Rnd * 49) + 1 Timer1.Interval = 1000 t = 30 随机函数初始化 生成【1 ，50）的随机整数 定时器的间隔设为1000 时间设定为30 s command1 比较a,b的值，查看结果 Private Sub Command1_Click() End Sub 代码分析 4 a = Val(Text1.Text) If Then Else End If If a 1 Or a 50 Then MsgBox 您输入的的数字不在范围内 End If MsgBox 恭喜你，猜对了！ Timer1.Interval = 0 Label3.Caption = Label4.Caption = If a b Then Label3.Caption = 加油！！你的数稍大了点！！ ElseIf a b Then Label3.Caption = 加油！！你的数稍小了点！！ End If a = b command2 重新开局 代码分析 5 Timer1.Interval = 1000 t = 30 Randomize b = Int(Rnd * 49) + 1 Text1.Text = Label3.Caption = Private Sub Command2_Click() End Sub Timer事件 Private Sub Timer1_Timer() End Sub 代码分析 双击Timer控件： 6 Label5.Caption = t 显示倒记时 t = t - 1 主时间倒记时，每秒减1 If t