Visual Basic程序设计与实训 教学课件 作者 苏玉雄 电子教案 第6章.pptVIP

fgdfgdg 第 6 章  数 组  6.1 静态数组 6.1.1 静态数组的定义 6.1.2 静态数组的基本操作 1、数组的初始化 静态数组的各个元素赋值，可以用赋值语句（=）、输入框函数（inputbox（））、文本框输入等方法。 2、数组元素的输入 由于数组元素的下标是可以变化的，将下标作为循环变量，就可利用for循环语句来给数组元素赋初值。 例如：利用键盘输入5科分数。 Dim Score(4) As Single For i=0 to 4 Score(i)=val(inputbox(“请输入各科分数”)) Next i 3、数组元素的输出 For i=0 to 4 Print Score(i); Next i 案例6-1 案例6-1：将下列字符存放到数组中，并以字符倒序打印出来。原字符是： a， b， c， d， e， f， g， h， I， j 案例6-1 【程序代码】： Private Sub Form_Click() Dim i As Integer Dim a(9) As String 对数组中各元素进行赋值。 a(0) = a: a(1) = b: a(2) = c: a(3) = d: a(4) = e a(5) = f: a(6) = g: a(7) = h: a(8) = i: a(9) = j Print 原字符顺序： 打印输出原字符序列 For i = 0 To 9 Print a(i); Next i Print Print 字符倒序： 倒序输出字符序列 For i = 9 To 0 Step -1 Print a(i); Next i End Sub 案例6-2 案例6-2：用随机函数模拟掷色子（各侧面上有1到6个点），编程统计掷600次出现各点的次数。如图所示： 案例6-2 【操作步骤】： 1、界面设计 新建一窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() Dim i，j，n as Integer Dim s(1 To 6) As Integer 数组s用来存放各点出现次数 For i = 1 To 600 随机产生各点数，并统计出现次数 n = Int(Rnd * 6) + 1 s(n) = s(n) + 1 Next i For j= 1 To 6 打印各点出现次数 Print i; 个点：; s(j) Next i End Sub 课堂练习6-1 课堂练习6-1：输入一个学生五门学科的成绩，编程实现求他的平均分和总分。 【案例分析】：可使用inputbox函数输入学生的成绩，同时定义一个数组用来存放学生成绩。利用数组来求总分和平均分，并将其总分和平均分打印在屏幕上。 【操作步骤】： 1、界面设计： 新建一个窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() Dim Score(4) As Single 数组用来存放各科分数 Dim Sum, Average As Single 声明总分和平均分变量 For i = 0 To 4 Score(i) = Val(InputBox(请输入各科分数)) 数组初始化 Sum = Sum + Score(i) Next i Average = Sum / 5 求平均分 Print 总分= Sum 将总分输出屏幕 Print 平均分= Average 将平均分输出屏幕 End Sub 课堂练习6-2 课堂练习6-2：随机生成20个[1，100]闭区间的整数存入一个数组中，统计其中大于50的整数，求这些整数的和并输出。 【案例分析】：通过随机函数可以产生20个符合条件的整数，然后通过对数组元素的查找，将大于50的整数累加到变量sum中，打印即可。 【操作步骤】： 1、程序代码：Private Sub Form_Click() Dim i, a(1 To 20), sum As Integer For i = 1 To 20 随机产生20个整数并存入数组a中 a(i) = Int(Rnd * 100) + 1 If a(i) 5