VB中的数组.ppt

第五章VB中的数组 引例：利用随机函数产生20个50～100范围内的随机数，显示最大值和最小值。运行界面如图 [程序代码] Private Sub Command1_Click() Dim maxa As Integer, mina As Integer, x As Integer, i As Integer Form1.Cls ‘每单击一次清除原来内容 maxa = 50 ‘假设较小的数为最大 mina = 100 ‘假设较大的数为最小 Randomize For i = 1 To 20 x = Int(Rnd * 51 + 50) Print x; IF i Mod 10 = 0 Then Print IF x maxa Then maxa = x F x mina Then mina = x Next i Print Print 最大值为; maxa Print 最小值为; mina End Sub 5.2.1 一维数组的声明和引用 数组不是一种数据类型，而是一组相同类型的变量的集合，数组必须先声明后使用。 两类数组： 静态(定长)数组、动态(可变长)数组 1. 静态数组及声明 形式： Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型 维数：几个下标为几维数组，最多60维。 下标：[下界 To ] 上界 省略下界为0 ,必须为常数。 每一维大小：上界－下界+1 数组大小： 每一维大小的乘积 例：Dim mark(1 to 100) As Integer 说明 Dim数组名（[下界 to ]上界）[As类型]（也可使用类型符号） 例如:dim a％(3 to 10) 上界=下届 上界/下届必须为常数，不可以为表达式和变量 如果声明数组时省略类型，则为variant变体型。 可以在一条dim语句中同时定义多个数组，用逗号分隔 dim c(15) as integer, b(5) as single 5.2.1 一维数组的声明和引用 2．一维数组元素的引用 引用一维数组元素的格式：数组名（下标） 引用数组元素时，下标可以为整型常量、变量或表达式 例如：i=1 a(1)=1:a(i)=x+y:a(i+1)=t print a (1);a(i) 5.2.2使用一维数组 1．一维数组的赋值 （1）对数组中的元素逐个赋值 例如：Dim arr(5) As Integer arr(0)=5 : arr(1)=4 : arr(2)=-2 : arr(3)=1 : arr(4)=-8 : arr(5)=6 一般来说，如果各个数组元素的值彼此之间毫无规律可寻，则可以采用逐个赋值的方法，显然这种方法在进行大量数据的处理时决非上乘之选。 （2）使用循环语句对数组元素赋值 例如： For i=0 to 5 arr(i)=Int(Rnd*90)+10 Next i 如果各个数组元素的值彼此之间是有规律可寻的，则可以采用循环语句来实现其赋值操作。 （2）使用循环语句对数组元素赋值 2．一维数组的输出 对于一维数组的输出，基本上都是使用一个单循环语句来达到目的： For i=0 to 5 Print arr(i) Next i 例5-1随机产生50个0～100之间的整数，输出并求出总和与平均值。程序运行界面如图所示。 程序代码： Private Sub Form_Click() Dim a%(1 To 50), i%, sum%, ave% sum = 0 For i = 1 To 50 a(i) = Int(Rnd * 101) sum = sum + a