高中信息技术必修1课件-3.4算法及其实现-浙教版

VB 4 猜数字游戏 一、随机数生成 1、RND函数 RND函数，一般需要配合Randomize使用 该函数能随机生成[0,1)之间的任意一个小数，该数可 以等于0，但是不能等于1，只能无限接近于1 2、如果要产生一个[0,20)的随机数呢？ RND*20 二、INT( )函数 • INT( )得到不大于该数的最大整数 • 例如： • Int(4.6)=? • Int(-4.3)=? 问题1：如果要得到[0,20)的任意一个整数呢？ Int (Rnd*20) 问题2：如果要得到[1,20]的任意一个整数呢？ Int (Rnd*20)+1 加载窗体时生成随机数 Private Sub Form_Load() Randomize m = Int(Rnd * 20) + 1 End Sub 选 择 或 分 支 结 构 在 算 法 流 程 中 ，往 往 需 要 对 某 个 情 况ｅ 进 行 判 断 ，当 结 果 为 真 时 ，执 行yes指向 的 流 程 线 下 的 语 句 １ ，否 则 执 行no指 向 的 流 程 线 下 的 语 句 ２。 任务1代码 Private Sub Command1_Click() n = Val(Text1.Text) If m = n Then Label3.Caption = "猜对了！" Else Label3.Caption = "猜错了！" End If End Sub IF 条件1 then 语句1 ElseIF 条件2 then 语句2 Else 语句3 Endif 语句1 语句2 语句3 Y Y N N 条件1 条件2 任务2代码 Private Sub Command2_Click() n = Val(Text1.Text) If m = n Then Label3.Caption = "猜对了！“ ElseIf m > n Then Label3.Caption = “太小了！“ Else Label3.Caption = “太大了！" End If End Sub 拓展任务（任务3） • 通过观察“开始计时”按钮的代码： Timer1.Enabled = True，可以猜测停止计时 的代码：Timer1.Enabled = False，注意本行 代码书写的位置 • 简单介绍Timer控件的开启和关闭属性 Enabled