课件：第4节　计算挑战-广东省中学VB编程专题讲座

第4节 计 算 挑 战 ——if语句、随机函数 主讲：电白区水东中学 龙光新 电白区信息技术科线上教学讲座——中学VB编程专题 上 节 课 后 实 例 任 务 实 例 任 务 学 习 任 务 1 If语句 ２ 随机函数 ３ 变量作用范围 1、if语句 If语句格式 If <条件判断> Then 执行语句组1 Else 执行语句组2 End If If <条件判断> Then 执行语句组 End If 条件判断 语句组 Y N 条件判断 语句组1 语句组2 N Y 2、随机函数 随机函数 Randomize 初始化随机数生成器 Rnd 函数返回小于 1 但大于或等于 0 的值 生成0－3 Randomize Int(Rnd(1) * 4) 生成1－4 Randomize Int(Rnd(1) * 4 + 1) 生成0－9 Randomize Int(Rnd(1) * 10) 生成1－10 Randomize Int(Rnd(1) * 10 + 1) 生成1－100 Randomize Int(Rnd(1) * 100 + 1) 3、变量作用域 全局变量、局部变量（过程变量、模块变量）。有生命周期、生命周期结束后无效。 Private js1, js2，he As Integer Private Sub Command1_Click() js1 = Int(Label2.Caption) js2 = Int(Label4.Caption) End Sub Private Sub Command2_Click() he = js1+js2 End Sub Private Sub Form_Load() Dim js1, js2 As Integer End Sub Pri