第五章实验一讲解.pptVIP

第五章实验一讲解 Dim data!(1 To 10), sum ‘----声明一个数组和一个变量 Private Sub Command1_Click() For i = 1 To 10 ’-----循环变量 i 标识每个数组元素 data(i) = InputBox(“请输入数据”) ’-----对每个数组元素赋值 sum = sum + data(i) ’-----处理每个数组元素 Next Text1 = sum / 10 ’-----输出结果 End Sub * * 数组的引入： 教材120页【例5-1】与第五章课件-1中的引例 （有一组10个数据，求出10个数的平均值,并求出每个数据与平均值的差值。） 体会：使用数组的必要性与普通变量的局限性 使用静态数组的基本环节： 1、声明数组（重点一维数组） Dim 数组名[数据类型说明符]（下标）-----重点掌握的语句形式 ① 数组名： 同合法的变量名。 ② 数据类型说明符：同变量（%、！、#、$ 等） ③ 下标： 下界 To 上界 （如：1 To 10） 解释： 下界 To 可缺省，若缺省则默认的下界值为0 （也可Option Base语句重新定义默认下界值） 如：Option Base 1默认下界为1 相当于 1 To10 相当于0 To10 下标为每个数组元素的索引号，唯一地标识数组中的每一个元素。 2、 数组元素 一个数组元素相当于一个变量，一个数组元素对应一个值。 要想方便地对每个数组元素进行处理，就要使用循环。一维数组对应单循环，多维数组对应多维循环。即： 将循环变量用做数组的下标，循环的初值为数值的下界、循环的终值为数值的上界，执行一次循环可寻到所有数组元素，即可对每个数组元素进行相应的处理。 实验内容1： 单击一个命令按钮，利用InputBox函数将10个单精度数据输入到一个一维数组中，求出10个数的平均值，并将结果显示在一个文本框中。自行设计用户界面。 实验内容2 从键盘上输入10个整数，并放入一个一维数组中。然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。用户界面如图。 Private Sub Form_Click() Dim a%(1 To 10) Print “交换前:”; ’-----不换行 For i = 1 To 10 a(i) = InputBox(请输入整数) Print a(i); ‘-----打印交换前结果 Next Print ‘----换行 For i = 1 To 5 k = a(i): a(i) = a(11 - i): a(11 - i) = k Next Print 交换后:; For i = 1 To 10 Print a(i); ‘打印交换后结果 Next End Sub 元素互换 输出数组中的全部或部分元素，往往也要使用循环结构，主要是for循环。 用循环变量表示数组的下标，一维数组使用单循环，二维数组使用二重循环…… 第五章课件-1 【例5-3】 随机产生20个20~80的整数，存放在一个一维数组中,要求将20个数输出在窗体上,并要求每行输出5个数。 注意：若语句Print a(i);写在循环体外，就会出现下标越界错误 Private Sub Command1_Click() Dim a!(1 To 20) Cls For i = 1 To 20 a(i) = Int(61 * Rnd + 20) Next i For i = 1 To 20 Print a(i); If i Mod 5 = 0 Then Print Next End Sub 产生 打印 在此例中，由于使用数组，产生的随机数全部保存在相应单元中，因此，随机数的产生和打印可分别放在两个循环中进行。