例如计算这100个学生成绩的平均分,可用S=0Fork=0.ppt

例如计算这100个学生成绩的平均分，可用： S＝0 For k=0 To 99 S = S + t(k) ‘累加分数 Next k Aver=S/100 ‘求平均分 数组是一组按一定顺序排列的数据的集合  例如，学生成绩Ｔ＝[t(0), t(1), … t(99)] 是一个数组 三元一次方程组的系数矩阵 a11 a12 a13 A＝ a21 a22 a23 a31 a31 a33 也是一个数组  数组名(不能与简单变量同名)；数组类型 数组下标测试函数 Ubound(数组名[，维]) Lbound(数组名[，维]) Dim y(1 to 12,5 to 20,-3 to 6) Print Lbound(y，1), Ubound(y，1) Print Lbound(y，2), Ubound(y，2) Print Lbound(y，3), Ubound(y，3) 设定下界的方法 Option Base 1 ‘设定下界为1 Dim Data(10) As Single ‘下标号从1～10 6.2.2 Array函数 使用Array函数可以为数组元素赋值  示例 Dim D As Variant ‘定义数组名(变体类型) D = Array(1, 2, 3, 4) 执行结果：1→D(0)，2→D(1), 3→D(2), 4→D(3) Erase 数组名[,数组名]，…… 重新对静太数组进行初始化，数值置0，字符为空字符串，而原数组存在。 释放动态数组存储空间，原有数组不再存在。 变体数组，每个元素重新置为空。 数组的引用和赋值： Option Base 1 Dim B1 As Variant B1 = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83) y=B1(3) C=B1(5)+B1(7) 数组的引用下标不能越界 数组的赋值： 使用循环语句： dim k(10) For k=0 To 10 t(k) = 2*k+1  Next k Dim d(5) As Integer For i = 1 To 5 输入成绩 d(i) = Val(InputBox(请输入第 Str(i) _ 个学生的成绩, 输入成绩)) Next i 数组输出 For i = 1 To 5 Print d(i); Next i 声明F为动态数组的示例： Private Sub Command1_Click() Dim F() As Integer ‘声明一个整型动态数组 …… Size=20 ReDim F(Size) …… End Sub 每次执行ReDim时，系统会清除指定数组的内容  若采用：ReDim Preserve F(Size) 则能保留数组中原有的数据 设计步骤： (1)设计控件数组Option1，其中包含5个单选按钮对象 具体操作方法： ① 画出第一个单选按钮控件，名称采用默认的Option1。此时该控件处于选定状态。 ② 单击工具栏上的“复制”按钮(或按Ctrl+C)。 ③ 单击工具栏上的“粘贴”按钮(或按Ctrl+V)，此时系统弹出一个如图6.5所示的对话框 单击“是”，就建立一个控件数组元素，其Index属性为1，而已画出的第一个控件的Index属性值为0。