2017宁波版信息技术九年级系列课件 第八课 综合应用

小结
• • • • • • 一、随机函数初始化：randomize 二、Rnd产生一个大于等于0且小于1的小数。 生成某个范围内的随机整数，可使用以下公式： Int(Rnd*(Max-Min+1)+Min) (其中Max为数据范围的上限，Min为下限) 如：要产生1~9的数字，可用Int(Rnd*9+1)
三、选择结构： • If 条件 Then 语句1[Else 语句2] • End If • 或 • If 条件 Then • 语句1 • [Else • 语句2] • End if 四、循环结构： 当循环次数确定时，可以用For…Next语 句，格式为: • For 循环变量=初值 To 终值[Step 步长] • 循环体 • Next 循环变量
Thank You！
练一练1 题目
• 设计一个猜数游戏。程序自动产生 一个数（不显示），让用户进行猜 测，程序给出反馈：“大了”、“ 小了”或“相等”。
参考答案一界面
参考答案一源程序
• • • • • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Randomize Dim a As Integer Dim b As Integer Dim s As String a = Int(Rnd * 100) s = "请输入" For I = 1 To 10 b = Val(InputBox(s, "猜一猜")) If b > a Then s = "太大了，请重新输入" ElseIf b < a Then s = "太小了，请重新输入" Else MsgBox "相等，恭喜你，在第" & I & "次猜中了", vbInformation, "猜一猜" Exit For End If Next I If I > 10 Then '猜题结束 MsgBox "很遗憾,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInformation, "猜一猜" End If End Sub
效果如下一张PPT
减法练习效果图
补充知识
• 1、Mod 运算符,用来对两个数作除法并且只返回余数。属算 术运算符. Mod 运算符示例 本示例使用 Mod 运算符来对两 数作除法运算，但返回其余数而非商数。如果两数中有一数 为浮点数，该数会先被四舍五入成整型后再进行运算。 • 10 Mod 5 = 0。 • 10 Mod 3 = 1。 • 12 Mod 4.3 = 0。 • 12.6 Mod 5 = 3。 • 2、vbCrLf的含义是： • vbCr=Chr(13) 回车符 vbLf=Chr(10) 换行符 vbCrLf=Chr(13) & Chr(10) 回车+换行符
第八课 综合运用
宁波版九年级信息技术（VB）
（附P37练一练及乘法练习的VB源程序）
2017,6
学习目标
• 掌握随机数产生的方法 • 熟练运用选择结构设计程序 • 熟练运用循环结构设计程序
复习
选择结构
条件？
Y
N
循环结构
条件？ Y 语句组 N
语句1
语句2
任务分析
• 单击“出题”命令按钮，随机产生10以内的乘法练习题。 运行效果如图所示
试一试
• 将例子改为10以内的减法练习，要求被减数大于等于减数
• • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize ' 随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) '产生减数（或被减数） b = Int(Rnd * 9 + 1) '产生减数（或被减数） If a >= b Then s = a & "-" & b & "=" '产生一个减法练习式 ElseIf a < b Then s = b & "-" & a & "=" End If Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then ' 一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub
随机函数
• Rnd产生一个大于等于0且小于1的小数。 • 生成某个范围内的随机整数，可使用以下公式： • Int(Rnd*(Max-Min+1)+Min) • (其中Max为数据范围的上限，Min为下限)
试一试
• 用Rnd函数表示产生范围为1~9之间的随机整数
• • • • • • • • Private Sub Command1_Click() Dim a As Integer Max = 9 Min = 1 Randomize ’随机种子初始化 a = Int(Rnd * (Max - Min + 1) + Min) Print a; End Sub
界面设计
Label1
Label2
Command1
属性设计
对象名 属性名 属性值
Leabharlann Baidu
Caption
Form1
乘法练习 （根据路径选择）
乘法练习 0-transparent （空）
Picture
Label1 Caption BackStyle caption
Label2
BorderStyle
BackColor
1-fixed Single
&H00C0FFFF& 出题
Command1
Caption
编写代码
• • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize '随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) ‘产生乘数 b = Int(Rnd * 9 + 1) ‘产生乘数 s = a & ‚-‛ & b & ‚=‛ ‘产生一个乘法练习式 Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then '一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub