第5章 数组与自定义类型1 - 图文

5.2.2 一维动态数组

Dim a() As Integer, n As Integera(1)a(1)a(2)a(2)a(3)a(3)a(4)a(4)880880n = 6ReDim a(1 To n) As IntegerFor i = 1 To 6a(i) = 8Next iReDim Preserve a(1 To 8) As IntegerReDim a(1 To 8) As Integer8808808808800017a(5)a(5)a(6)a(6)a(7)a(8)2013年7月23日9时43分

Private Sub Command2_Click()Dim cj() As Single, n As Integer, i As Integer,s as single5.2.2 一维动态数组Dim avg As Single, max As Single, min As Singlen = Val(InputBox(\请输入学生人数\输入\例：某门课n个学生中，将高于平均分的成绩输出。ReDim cj(1 To n) As SingleFor i = 1 To n解题步骤：cj(i) = Val(InputBox(\请输入第\个学生的成绩\输入\s= s + cj(i)（1）定义一个动态数组，用来存放n个学生的成绩Next iavg = s / n（2）给数组赋值，将学生成绩存入数组,并实现求For i = 1 To nPrint cj(i);总成绩Next iPrint（3）求出平均分，然后比较，将高于平均分的学Print \平均分为：\生成绩输出Print \高于平均分的成绩有：\For i = 1 To nIf cj(i) > avg Then Print cj(i);18Next iEnd Sub2013年7月23日9时43分5.2.3 数组基本操作

1.为数组元素赋值1）通过赋值语句通过一层For循环給一维数组元素赋值例将0101010101这10个数存放到数组中Dim i%Dim a(1 To 10)For i = 1 To 10a(i) = IIf(i Mod 2 = 0, 1, 0)Next i19

2013年7月23日9时43分

5.2.3 数组基本操作

2）通过InputBox函数如果数组元素的值无法预先确定，需要在运行时通过键盘输入，可通过InputBox函数赋值Dim score(1 To 30)使用InputBox()函数每次只能提供一个数据，对大量的数据输入则是非常不方便的For i = 1 To 30score(i) = InputBox(\请输入第\个同学成绩\Next i20

2013年7月23日9时43分