第二章VISUAL BASIC的基本语法.pptVIP

2 一维数组应用例题 [例2-7] 输入一组不重复的数据，找出最大值及其位置 Private Sub Form_Click() Const Length = 5 定义常量Length作为数组最大下标 Dim Test%(Length), I%, Max%, L% For I = 1 To Length 通过键盘输入给数组赋值 Test(I) = InputBox(输入第 I 个数据) Next I Max = Test(1) : L = 1 设数组第一个元素为最大值 For I = 2 To Length If Max Test(I) Then 找到新的最大值，记录其值和位置 Max = Test(I) L = I End If Next I MsgBox 最大值x= Max ，位置是 L End Sub * 制作：黄传禄 返回目录 2 一维数组应用例题 [例2-8] 产生10个整数到数组中，将其顺序颠倒后输出 Private Sub Form_Click() Const Length = 10 : Dim D(Length) As Integer, I%, Temp% For I = 1 To Length 给数组赋值并输出 D(I) = 14 + I : Print D(I); Next I Print: Print 换行 For I = 1 To Length / 2 交换 Temp = D(I) D(I) = D(Length - I + 1) D(Length - I + 1) = Temp Next I For I = 1 To Length 交换后输出 Print D(I); Next I End Sub * 制作：黄传禄 返回目录 D(1)与D(10)交换 D(2)与D(9)交换 … … D(I)与D(10-I+1) 2 一维数组应用例题 [例2-9] 产生100个不重复的3位随机整数， 并按每行7列的格式输出 Private Sub Form_Click() Dim Data(100) As Integer, I%, J% Randomize Timer 设置随机化种子，保证每组数据不重复 For I = 1 To 100 循环产生100个数据 Data(I) = Int(Rnd() * 900) + 100 For J = 1 To I – 1 与已经产生的数据比较 If Data(I) = Data(J) Then 数据已存在则舍弃，重新产生 I = I - 1 Exit For 提前退出数据比较的循环 End If Next J Next I * 制作：黄传禄 返回目录 转 下 页 2 一维数组应用例题 I = 1 : J = 1 Do While I = 100 For J = 1 To 7 每行打印7列 If I 100 Then Exit For Print Data(I); I = I + 1 Next J Print 打印换行 Loop End Sub * 制作：黄传禄 返回目录 接 上 页 2 一维数组应用例题 [例2-10] 统计成绩分布 Private Sub Form_Click() Dim N(10) As Integer, I As Integer, X As Integer Const m = 10 For I = 1 To m X = InputBox(请输入 + Str(I) + 个学生的成绩) X = Int(X / 10) 也可写成X=X\10 N(X) = N(X) + 1 Next I Print 100; --; 100; N