Visual Basic程序设计教程第05章.pptVIP

Private Sub Form_Click() Dim A(1 To 4, 1 To 4) For i = 1 To 4 For j = 1 To 4 A(i, j) = Int(Rnd * 10) Next j Next i For i = 1 To 4 For j = 1 To 4 Print A(i, j); 用分号结束,不换行 Next j Print 使用该语句实现换行 Next i End Sub * 5.3.2 数组的删除 格式: Erase 数组名 对静态数组使用Erase语句：数值型数组元素值置为0；可变长度字符串类型数组元素值置为零长度字符串。 Erase语句不能释放静态数组所占的存储空间。 对动态数组使用Erase语句：将释放动态数组所占的存储空间;在下次引用该动态数组之前，必须使用ReDim语句来重新定义该数组。 * 5.3.3 使用For Each...Next循环处理数组 For Each变量 In 数组名 [语句组1] [Exit For] [语句组2] Next 变量 格式: 功能: 首先将数组中的第一个元素赋给“变量”，然后进入循环体中执行其中的语句。如果数组中还有其他元素，则继续将下一个元素赋值给变量后执行循环体，当针对数组中的所有元素都执行完了，便会退出循环，执行Next之后的语句。 * 例: 以下程序段使用For Each...Next语句打印一维数组X中的所有元素。 Dim X(15) … For Each A In X Print A; Next A 比较： For I= 0 To 10 For J=0 To10 Sum=Sum+ Y(I,J) Next J Next I 比较： For I= 0 To 15 Print X(i); Next i 例: 求二维数组Y的所有元素之和。 Dim Y(10, 10) … For Each A In Y Sum = Sum + A Next A Print Sum * 5.4 数组基本操作示例 【例5-4】分别生成50个[1，10]之间的随机整数到数组A、B中，求A数组和B数组对应元素的和，和值保存在C数组中。 界面设计： Text1 Text2 Text3 Command2 Command1 * Dim A(1 To 50) As Integer, B(1 To 50) As _ Integer, C(1 To 50) As Integer Private Sub Command1_Click() Randomize For I = 1 To 50 A(I) = Int(Rnd * 11 + 1) B(I) = Int(Rnd * 11 + 1) Text1.Text = Text1.Text Str(A(I)) Text2.Text = Text2.Text Str(B(I)) Next I End Sub 代码设计： * Private Sub Command2_Click() For I = 1 To 50 C(I) = A(I) + B(I) Text3.Text = Text3.Text Str(C(I)) Next I End Sub 运行界面： * 【例5-5】　输入n个学生的英语成绩，统计优秀（90分及以上）学生人数和不及格学生人数。 界面设计： Text1 Picture1 Command1 * 用动态数组Eng保存学生成绩。 Num1、num2：分别保存不及格学生人数和优秀学生人数。 数组元素的值＜60→num1= num1 +1 数组元素的值≥90→num2= num2 +1 分析： * Dim Eng() As Integer, n As Integer Private Sub Form_Load() Text1.Text = n = Val(InputBox(请输入总人数)) ReDim Eng(1 To n) For i = 1 To n Eng(i) = Val(InputBox