13数组(一)

数组
一、教学目标
1、数组基本概念
2、数组的定义
3、一维数组与二维数组
二、教学过程、
1、数组基本概念：在VB中，把一组具有相同名字，不同下标的变量称为数组。

例：班上同学有两个叫“张三”，平时为了区分两个人，可能这样称呼，张三0号，张三1号，若用数组，则分别叫做张三（0），张三（1）
张三：是数组名称
0、1：是下标，用来区分它们来作为两个同名同姓“张三”的唯一标识。

格式：S（n）
说明：S为数组名，n是下标，表示数组S中的第n个元素
2、数组的定义
一维数组：Dim 数组名（下标）
二维数组：Dim 数组名（第一维下标，第二维下标）
在VB中，可以用4个语句来定义数组，四个语句格式相同，适用范围不同
Dim用在窗体模块或标准模块
ReDim用在过程中（常用于重新定义数组）
Stitic 用在过程中(静态数组)
Public用在标准模块中，定义全局数组
如：Dim s(4) As Integer '定义一维数组，有5元素
Dim arr(-2 To 3) As Integer '定义一维数组arr，有6个元素
Dim a(2, 3) As Integer '定义二维数组，有3（0-2）行4（0-3）列，12个元素
如：输出数组元素的值
Option Base 1 '0是默认，下标从0开始；1表示下标从第二个元素开始
Private Sub Form_Click()
Dim s(4) As Integer '定义一维数组，有5元素
s(2) = 3 '对第3个元素赋值
s(4) = s(2) '将第3个元素的值赋给第5个元素
For n = 0 To 4 Step 1
Print s(n)
Next n
End Sub
***************************************************************************
Dim arr(-2 To 3) As Integer '定义一维数组arr，有6个元素
arr(0) = 15 '对第3个赋值
arr(3) = 20 '对第6个赋值
For n = -2 To 3 Step 1
Print arr(n) '循环输出6个元素的值
Next n
说明：可以将数组的每一个元素看成一个变量来使用。

数组名的命名规则与变量名相同，在同一个过程中，数组名与变量名不能相同，否则会出错。

例：Dim a(5) As Integer
Dim a As Integer
a = 8
a(2) = 10
Print a; a(2)
以上例题将出错，数组名与变量名相同，重复声明
3、数组应用
（1）利用InputBox函数来输入某小组5个同学的成绩，计算总分和平均分
Private Sub Command1_Click()
Dim student(5) As Integer '定义5个学生
Dim n As Integer '循环变量
Dim sum As Single '计算总分
Dim ave As Single '计算平均分
For n = 1 To 5 Step 1
student(n) = V al(InputBox("请输入第" & n & "个学生的成绩！"))
Next n
For n = 1 To 5 Step 1
sum = sum + student(n)
Next n
ave = sum / 5
Print "总分是：" & sum
Print "平均数是：" & ave
End Sub
（2）用随机函数产生一个二维数组，大小为(2, 3)，范围为（10-100），再将数组元素值输出来
Private Sub Command1_Click()
Cls
Dim a(2, 3) As Integer '定义3*4数组，共12个元素
For i = 0 To 2
For j = 0 To 3
a(i, j) = Int(91 * Rnd + 10) '产生10-100之间的数
Next j
Print
Next i
For i = 0 To 2
For j = 0 To 3
'Print a(i, j);
Print "a(" & i & "," & j & ")=" & a(i, j),
Next j
Print
三、练习
1、随机产生10个[10-100]之间，不同序列的随机数,求10个数的和与平均数
Private Sub Command1_Click()
Form1.AutoRedraw = True
Cls
Dim a(10) As Integer
Dim sum As Integer
Dim ave As Single
Dim n As Integer
Dim m As Integer
Print "产生的数据是："
Randomize '用于产生不同序列的随机数（每次都不一样）
For n = 1 To 10 Step 1
a(n) = Int(91 * Rnd + 10)
Print a(n);
Next n
For m = 1 To 10 Step 1
sum = sum + a(m)
Next m
ave = sum / 10
Print
Print "总和是：" & sum
Print "平均数是：" & ave
End Sub
2、产生100个随机数，区间[1-100]，用2维数组存放，并找出能被3整除的数据，再单独输出
3、分析以下程序结果（）
Dim arr1(10) As Integer
Dim arr2(10) As Integer
n = 3
For i = 1 To 5
arr1(i) = i
arr2(n) = 2 * n + i
Next i
Print arr2(n); arr1(n)
4、分析以下程序结果（）
Option Base 1
Private Sub Command1_Click()
Dim a(4, 4)
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print a(j, i);
Next i
End Sub
5、分析以下程序结果（）
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub。