返回

资料详情(天天资源网)

天天资源网 / 高中信息技术 / 教学同步 / 教科版 / 必修 / 高中信息技术必修1课件-3.4算法及其实现-浙教版

当前文件暂时不支持在线预览,请下载查看使用
点击预览全文

点击下载高清阅读全文,WORD格式文档可编辑

收藏
立即下载
有任何问题请联系天天官方客服QQ:403074932

资料简介

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 选 择 或 分 支 结 构 在 算 法 流 程 中 ,往 往 需 要 对 某 个 情 况e 进 行 判 断 ,当 结 果 为 真 时 ,执 行yes指向 的 流 程 线 下 的 语 句 1 ,否 则 执 行no指 向 的 流 程 线 下 的 语 句 2。 任务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 查看更多

Copyright 2004-2019 ttzyw.com All Rights Reserved 闽ICP备18023965号-4

天天资源网声明:本站点发布的文章作品均来自用户投稿或网络整理,部分作品未联系到知识产权人或未发现有相关的知识产权登记

全屏阅读
关闭