第06章數组.pptVIP

Visual Basic;数组的概念;两种数组;数组的维数;数组的声明; 声明数组的四个属性;数组的声明;例如： Dim x As Single, a(4) As Single, b(4, 1) As Single;注意： 使用 Option Base 语句指定数组的下标下界从 1 开始。 Option Base 1 Dim a(4) As Single, b(-2 To 2, 2) As Single;数组每一维的大小为： 上界－下界 + 1 。 整个数组的大小为： 各维大小的乘积。;数组元素的引用;逆序打印 n 个整数; Dim n As Integer, a(100) As Integer, i As Integer n = InputBox(vbCrLf + vbCrLf + n=) Print: Print 正序打印 For i = 1 To n a(i) = i Print a(i), Next i Print: Print: Print 逆序打印 For i = n To 1 Step -1 Print a(i), Next i;一维数组; 题型：求和; 题型：求和; aver = Round(aver / n , 1) Print “平均成绩 = ”; aver Print “以下为高于平均成绩的成绩” For i = 1 To n If score(i) aver Then Print score(i); Next i; 题型：搜索; Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer, t As Boolean n = InputBox(N=) For i = 1 To n a(i) = Int(90 * Rnd + 10) If i Mod 5 = 0 Then Print a(i) Else Print a(i), End If Next i : Print; 题型：搜索;例题：随机产生 n 个两位整数，找出其中的最大值和最小值。 Dim min%, max%, n%, i%, a(100) As Integer n = InputBox(vbCrLf + vbCrLf + n=) Print 产生的随机数为 Randomize For i = 1 To n a(i) = Int(Rnd * 90)+ 10 Print a(i); Next i : Print; min = a(1) ：max = a(1) For i = 2 To n If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Print “最大值为 ”; max Print “最小值为 ”; min; 增删数组元素的值; 题型：删除数组中的数据; 题型：删除数组中的数据; 题型：删除数组中的数据; 题型：删除数组中的数据;题型：统计; x = InputBox(vbCrLf + 请输入一个数) Do While x = 1 And x = 3 a(x) = a(x) + 1 x = InputBox(vbCrLf + 请输入一个数) Loop Print “1 的数目：”; a(1) Print “2 的数目：”; a(2) Print “3 的数目：”; a(3) End Sub; 按分数段统计学生成绩; Do While x -1 a(Int( x/10)) = a( Int(x/10) ) + 1 x = InputBox(vbCrLf + “请输入学生成绩) Loop Print “0 ～ 59 =”; a(0)+a(1)+a(2)+a(3)+a(4)+a(5) Print “60 ～ 69 =”; a(6) Print “70 ～ 79 =”; a(7) P