VB程序设计 习题及答案第6章 数组.docVIP

第6章 数 组 ? 6．1 试将下面的算术乘法九九表存入数组中，并在窗口显示出来。 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 【参考答案】 程序代码设计 Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i For i = 1 To 9 For j = 1 To 9 Print Format(a(i, j), @@@@@); Next j Print Next i End Sub 程序运行结果如图6-1所示： ? 6．2 编写程序,输出上题乘法九九表对角线上的数。(两条对角线的数分两组输出)。 【参考答案】 程序代码设计 Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i For i = 1 To 9 For j = 1 To 9 If i = j Then Print Tab(5 * j); a(i, j) Next j Next i For i = 1 To 9 For j = 1 To 9 If i + j = 10 Then Print Tab(5 * j); a(i, j) Next j Next i End Sub 程序运行结果如图6-2所示： ? 6．3 编写程序,输出上题乘法九九表中任意一列和任意一行上的数。 【参考答案】 程序代码设计 Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i n = Val(InputBox(输入行号:)) m = Val(InputBox(输入列号:)) For i = 1 To 9 Print Tab(5 * i); a(n, i); Next i Print For j = 1 To 9 Print Tab(5 * m); a(m, j) Next j End Sub 运行结果： 如输入行号为：5，输入列号为：5 则程序运行结果如图6-3所示： ? 6．4 编写程序,交换上题乘法九九表中任意两列上对应的数。 【参考答案】 程序代码设计 Private Sub Form_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Next j Next i n = Val(InputBox(输入要交换的第一个列号:)) m = Val(InputBox(输入要交换的第二个列号:)) For i = 1 To 9 For j = 1 To 9 If j = n Then Print Tab(5 * j); a(i, m); ElseIf j = m Then Print Tab(5 * j); a(i, n); Else Print Tab(5 * j); a(i, j); End If Next j Print Next i End Sub 运行结果： 如将第1列与第5列交换，则程序运行结果如图6-4所示： ? 6．5 编写程序,交换上题乘法九九表中任意两行上对应的数。 【参考答案】