第5章 数组习题参考答案.docVIP

第5章 数组习题参考答案 第1题 方法1 Dim a(), b(), c() 定义a,b数组用于存放两组数据，C数组存放a,b相加的结果 a = Array(1, 3, 5, 2, 4, 18, 50, 25) a数组赋值 b = Array(5, 27, 30, 35, 60, 41, 87, 33) b数组赋值 n = UBound(a) 计算数组最大下标 For i = 0 To n 输出数组a Print a(i); Next i Print For i = 0 To n 输出数组b Print b(i); Next i Print ReDim c(0 To n) 定义（确定）数组c实际大小 For i = 0 To n c(i) = a(i) + b(i) Next i For i = 0 To n 输出数组c Print c(i); Next i Print 方法2 Dim a(0 To 7), b(0 To 7), c() 定义a,b数组存放两组数据，C数组存放a,b相加的结果 n = UBound(a) 计算数组最大下标 For i = 0 To n 数组a赋值、输出 a(i) = Val(InputBox(输入数据)) Print a(i); Next i Print For i = 0 To n 输出数组b b(i) = Val(InputBox(输入数据)) Print b(i); Next i Print ReDim c(0 To n) 定义（确定）数组c实际大小 For i = 0 To n c(i) = a(i) + b(i) Next i For i = 0 To n 输出数组c Print c(i); Next i Print 第2题 方法1 Dim a() 定义a,b数组用于存放两组数据，C数组存放a,b相加的结果 x = Val(InputBox(输入行数)) y = Val(InputBox(输入列数)) ReDim a(1 To x, 1 To y) For i = 1 To x 数组a赋值 For j = 1 To y a(i, j) = Int(Rnd() * 100) Next j Next i For i = 1 To x 输出a数组 For j = 1 To y Print a(i, j); Next j Print Next i Print Max = a(1, 1) 设最大数为a(1,1) row = 1 则最大数行下标为1 col = 1 则最大数列下标为1 For i = 1 To x 求最大数max及其所在的行row、列col For j = 1 To y If Max a(i, j) Then Max = a(i, j) row = i col = j End If Next j Next i Print 最大数为:; Max; 行为:; row; 列为:; col 方法2 Dim a() 定义a,b数组用于存放两组数据，C数组存放a,b相加的结果 x = Val(InputBox(输入行数)) y = Val(InputBox(输入列数)) ReDim a(1 To x, 1 To y) For i = 1 To x For j = 1 To y a(i, j) = Int(Rnd() * 100) 数组a赋值 Print a(i, j); 数组a输出