浙教版 (广西、宁波)九年级第八课 综合应用教案配套课件ppt

这是一份浙教版 (广西、宁波)九年级第八课 综合应用教案配套课件ppt，共23页。PPT课件主要包含了学习目标，选择结构，循环结构，任务分析，随机函数，试一试，属性设计，编写代码，减法练习效果图，补充知识等内容，欢迎下载使用。
掌握随机数产生的方法熟练运用选择结构设计程序熟练运用循环结构设计程序
单击“出题”命令按钮，随机产生10以内的乘法练习题。运行效果如图所示
Rnd产生一个大于等于0且小于1的小数。生成某个范围内的随机整数，可使用以下公式：Int(Rnd*(Max-Min+1)+Min)(其中Max为数据范围的上限，Min为下限)
用Rnd函数表示产生范围为1~9之间的随机整数Private Sub Cmmand1_Click()Dim a As IntegerMax = 9Min = 1Randmize ’随机种子初始化a = Int(Rnd * (Max - Min + 1) + Min)Print a;End Sub
Private Sub Cmmand1_Click()Dim s As StringDim a, b As IntegerLabel2.Captin = "" '清空显示内容Randmize '随机种子初始化Fr i = 0 T 19a = Int(Rnd * 9 + 1) ‘产生乘数b = Int(Rnd * 9 + 1) ‘产生乘数s = a & “-” & b & “=” ‘产生一个乘法练习式Label2.Captin = Label2.Captin & s & " " '写入显示框If i Md 4 = 3 Then '一行显示4个练习式Label2.Captin = Label2.Captin & vbCrLfEnd IfNext iEnd Sub
将例子改为10以内的减法练习，要求被减数大于等于减数Private Sub Cmmand1_Click()Dim s As StringDim a, b As IntegerLabel2.Captin = "" '清空显示内容Randmize '随机种子初始化Fr i = 0 T 19a = Int(Rnd * 9 + 1) '产生减数（或被减数）b = Int(Rnd * 9 + 1) '产生减数（或被减数）If a >= b Thens = a & "-" & b & "=" '产生一个减法练习式ElseIf a < b Thens = b & "-" & a & "="End IfLabel2.Captin = Label2.Captin & s & " " '写入显示框If i Md 4 = 3 Then '一行显示4个练习式Label2.Captin = Label2.Captin & vbCrLfEnd IfNext iEnd Sub
1、Md 运算符,用来对两个数作除法并且只返回余数。属算术运算符. Md 运算符示例 本示例使用 Md 运算符来对两数作除法运算，但返回其余数而非商数。如果两数中有一数为浮点数，该数会先被四舍五入成整型后再进行运算。 10 Md 5 = 0。 10 Md 3 = 1。 12 Md 4.3 = 0。 12.6 Md 5 = 3。 2、vbCrLf的含义是：vbCr=Chr(13) 回车符 vbLf=Chr(10) 换行符 vbCrLf=Chr(13) & Chr(10) 回车+换行符
一、随机函数初始化：randmize二、Rnd产生一个大于等于0且小于1的小数。生成某个范围内的随机整数，可使用以下公式：Int(Rnd*(Max-Min+1)+Min)(其中Max为数据范围的上限，Min为下限)如：要产生1~9的数字，可用Int(Rnd*9+1)
四、循环结构： 当循环次数确定时，可以用Fr…Next语句，格式为:Fr 循环变量=初值 T 终值[Step 步长]循环体Next 循环变量
三、选择结构：If 条件 Then 语句1[Else 语句2]End If或If 条件 Then 语句1[Else 语句2]End if
设计一个猜数游戏。程序自动产生一个数（不显示），让用户进行猜测，程序给出反馈：“大了”、“小了”或“相等”。
Private Sub Cmmand1_Click()Randmize Dim a As Integer Dim b As Integer Dim s As String a = Int(Rnd * 100) s = "请输入" Fr I = 1 T 10 b = Val(InputBx(s, "猜一猜")) If b > a Then s = "太大了，请重新输入" ElseIf b < a Then s = "太小了，请重新输入" Else MsgBx "相等，恭喜你，在第" & I & "次猜中了", vbInfrmatin, "猜一猜" Exit Fr End If Next I If I > 10 Then '猜题结束 MsgBx "很遗憾,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInfrmatin, "猜一猜" End IfEnd Sub
Dim i As IntegerPrivate Sub Cmmand1_Click() Dim a As Integer Randmize '初始化随机种子 a = Int(100 * Rnd) '随机产生一个100以内的整数 Text1.Text = a '把随机数的值赋给文本框1. i = 10End SubPrivate Sub Cmmand2_Click()Text1.Visible = TrueEnd SubPrivate Sub Cmmand3_Click() Text1.Visible = FalseEnd SubPrivate Sub Cmmand4_Click() Dim a, b As Integer a = Text1.Text '获取系统产生的随机数,并赋给变量a b = Val(Text2.Text) '把用户输入的值赋给变量b If b < a Then i = i - 1 Label3.Captin = "猜小了,改大点,再试试" ElseIf b > a Then i = i - 1 Label3.Captin = "猜大了,改小点,再试试" Else: Label3.Captin = "恭喜你,你猜对了!你可以点击显示答案按钮" End IfIf i = 1 Then MsgBx "注意：你猜测的次数已经超过10次了！", 2 + vbExclamatin, "错误提示" End Sub
随机产生10个不同的两位数（10~99），并输出
注：这个题目要求太高，要用到数组。所以不合适。
练一练2 参考答案一VB源程序
Private Sub Cmmand1_Click() Cls Dim a(1 T 10) As Integer Fr i = 1 T 10 Randmize a(i) = Int(Rnd * 90 + 10) Fr j = 1 T i - 1 If a(i) = a(j) Then i = i - 1 Exit Fr End If Next j Next i Fr i = 1 T 10 Print a(i); Next i End Sub
注：降低要求把题目改为：随机产生10个两位数（10~99），并输出。