7.3数组的输入输出 数组在声明之后，VB对其进行了初始化，但在实 际应用中，往往要给数组元素赋一定的初始值。例 第七章 如，在处理学生成绩时，首先需要向数组中输入所 有的成绩，在使用二维数组表示矩阵时，要向数组 中输入矩阵中各元素的值。对数组元素的输入可以 数 有多种方法。例如：赋值语句；文本框；InputBox 函数；Arrayi函数等，可以对数组的个别元素输入 组 数据，也可以对整个数组输入数据。 数组元素经过处理后，常需要将结果显示给用户， 即输出数组元素的值。输出方法如：Print方法；标 签；文本框等。 21
第 七 章 数 组 21 7.3 数组的输入输出 数组在声明之后，VB对其进行了初始化，但在实 际应用中，往往要给数组元素赋一定的初始值。例 如，在处理学生成绩时，首先需要向数组中输入所 有的成绩，在使用二维数组表示矩阵时，要向数组 中输入矩阵中各元素的值。对数组元素的输入可以 有多种方法。例如:赋值语句；文本框；InputBox 函数；Array函数等，可以对数组的个别元素输入 数据，也可以对整个数组输入数据。 数组元素经过处理后，常需要将结果显示给用户， 即输出数组元素的值。输出方法如：Print方法；标 签；文本框等
例：用输入框输入10个学生的成绩并存放到 数组A中，然后将这些成绩显示在文本框中。 Dim A(1 To 10)As Integer 第七章 输入： Fori=1 To 10 A()=Val(InputBox("请输入第'&Str① 数 &"个学生的成绩) Next i 组 输出： For i=1 To 10 Text1.Text=Text1.Text Str(A(i)) Next i 22
第 七 章 数 组 22 例：用输入框输入10个学生的成绩并存放到 数组A中，然后将这些成绩显示在文本框中。 Dim A(1 To 10) As Integer ' 输入： For i = 1 To 10 A(i) = Val(InputBox("请输入第" & Str(i) & "个学生的成绩")) Next i ' 输出： For i = 1 To 10 Text1.Text = Text1.Text & Str(A(i)) Next i
使用文本框显示多个数据时，常需要给文 本框设置滚动条，依据滚动条的方向，要 第七章 注意每显示一个或多个数据后是否要在文 :本框中加上回车换行符号。 数 组 193 23
第 七 章 数 组 23 使用文本框显示多个数据时，常需要给文 本框设置滚动条，依据滚动条的方向，要 注意每显示一个或多个数据后是否要在文 本框中加上回车换行符号
例：假设用二维数组B来表示一个6行6列的 矩阵，以下代码生成包含1,101之间的随 机整数的矩阵，并以6行6列的形式将该矩 第七章 阵打印在窗体上。 Dim B(1 To 6,1 To 6)As Integer "输入： 数 For I=1 To 6 组 For J=1 To 6 B(I,J)=Int(Rnd 10+1) Next J Next I 24
第 七 章 数 组 24 例：假设用二维数组B来表示一个6行6列的 矩阵，以下代码生成包含[1，10]之间的随 机整数的矩阵，并以6行6列的形式将该矩 阵打印在窗体上。 Dim B(1 To 6, 1 To 6) As Integer ' 输入： For I = 1 To 6 For J = 1 To 6 B(I, J) = Int(Rnd * 10 + 1) Next J Next I
'输出： For I=1 To6 第七章 For J=1 To 6 Print Format(B(I,J),"@@@") Next J 数 Print 组 Next I 1936 25
第 七 章 数 组 25 ' 输出： For I = 1 To 6 For J = 1 To 6 Print Format(B(I, J), "@@@"); Next J Print Next I