【2017年整理】15与课掷骰子游戏.ppt

第15课 掷骰子游戏 复习引入-循环结构 ?? For循环结构。在给定条件成立时，可反复执行某程序段，直到条件不成立为止。给定的条件称为循环条件，反复执行的程序段称为循环体。For循环（For……Next）语句的基本格式为：??? For 循环变量初值 To循环变量终值 Step 增量??????? 循环体??? Next 变量??? 其中循环变量为数值型变量，初值、终值、增量均为数值型表达式。“Step 增量”部分可以省略，缺省时默认为1。在循环体中使用Exit For语句可直接中止循环，执行next后面的语句。 循环结构 当增量值为正数时，For循环的执行过程如下：?? （1） 将循环变量赋初值；?? （2） 比较循环变量是否小于等于终值，小于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；?? （3） 遇到Next语句，循环变量增加增量值，转到（2）继续循环； 执行过程流程图如右图所示 循环结构 当增量值为负数时，For循环的执行过程如下：?? （1） 将循环变量赋初值；?? （2） 比较循环变量是否大于等于终值，大于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；?? （3） 遇到Next语句，循环变量减少增量值，转到（2）继续循环；??? 执行过程流程图如右图所示 复习引入 ?? 例1：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标， 使用了三种不同的方法来解决，以下程序中的划线处应为：??? (1) Private Sub Command1_Click()?????????? Dim sum As Long?????????? Dim i As Integer?????????? sum = 0?????????? For i =1 To 97 Step ??????????? ?????????????? sum = sum + i*i?????????? Next i?????????? Text1.Text = Str(sum)???????? End Sub ???? ????? 分析数列可知，前一项与后一项均相差3，所以Step步长值取3。 复习引入 （2）Private Sub Command1_Click()?????????? Dim sum As Long?????????? Dim i As Integer?????????? sum = 0?????????? For i =1 To 33????????????? sum = sum + ??????????????? ?????????? Next i?????????? Text1.Text = Str(sum)??????? End Sub ?????? ?????? 分析数列可知，数列共有33项，前一项与后一项均相差3，通项式ai=3*i-2，当i=1时，a1=1，当i=2时，a2=4，当i=33时，a33=97，所以划线处填3*i-2。 (3)Private Sub Command1_Click()????????? Dim sum As Long????????? Dim i As Integer????????? sum = 0????????? For i =1 To 97 ???????????? if ??????????????? ? then sum = sum + i*i????????? Next i????????? Text1.Text = Str(sum)??????? End Sub ??? 分析数列可知，前一项与后一项均相差3，每项除以3的余数均为1，所以用判断条件 i mod 3 = 1。 数组变量 ??? 数组变量主要用来存储一批同类型的数据。在实际问题应用中，经常需要成批地处理同一类型的数据。例如，学校要处理全校学生的成绩，运动会上各运动员的比赛成绩、球类比赛时各队的积分等等。??? 数组是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，或称为下标变量，下标是一个整数，用来指出某个元素在数组中的位置，数组中每个元素的位置由它的下标唯一地确定。??? 在实际应用中，一维数组用来存储数据的一个线性序列，二维数组可以用来存储一个二维数表（即表格）。??? 说明一维数组变量常用形式如下：??????? Dim 数组变量名（ A1 To A2 ） As 元素的类