读程序(数组题目).doc

_1. 执行下面程序，单击Command1，窗体上显示的第一行是 ，第二行是 ，第三行是 。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa(3, 3) As String * 1, i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 3 For j = 1 To 3 sa(i, j) = Chr(Asc(A) + (k + i + j) Mod 26) Print sa(i, j); ; k = k + 3 Next j Print Next iEnd Sub2 .执行下面程序，单击Command1，则数组元素a(1,2)的数值是 （1） ，a(3,3)的数值是 （2） ，图片框中最后一行显示的是 （3） 。Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer, j As Integer Dim k As Integer, num As Integer num = 0 For k = 1 To 4 For i = 1 To k - 1 num = num + 1 a(i, k) = num Next i For j = k To 1 Step -1 num = num + 1 a(k, j) = num Next j Next k For i = 1 To 4 For j = 1 To 4 Picture1.Print Right( & a(i, j), 3); Next j Picture1.Print Next iEnd Sub3. 执行下面程序，单击Command1后，A(1,4)的值是 (1) ，A(2,3) 的值是 (2) ，A(3,2) 的值是 (3) 。（1 5 5）Option ExplicitOption Base 1Private Sub Command1_Click() Dim A(4, 4) As Integer, UB As Integer Dim i As Integer, j As Integer, n As Integer UB = UBound(A, 1) n = 0 For i = UB To 1 Step -1 For j = 1 To UB + 1 - i n = n + 1 A(j, j + i - 1) = n Next j Next i For i = UB To 2 Step -1 For j = UB To i Step -1 A(j, j - i + 1) = A(5 - j, 4 - j + i) Next j Next i For i = 1 To UB For j = 1 To UB Picture1.Print A(i, j); Next j Picture1.Print Next iEnd Sub4. 执行下面程序，单击Command1，则数组元素a(1,2)的数值是 （1） ，a(2,3)的数值是 （2） ，a(4,3)的数值是 （3） 。15 9 2 Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do For i = 1 To 4 For j = 1 To 4 If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k 8 For i = 1 To 4 For j = 1 To 4 Print Right( & a(i, j), 3); Next j Print Next iEnd Sub5. 执行下面程序，单击Command1，则图片框中显示的第一行是 ，显示的第二行是 ，最后一行显示的是 。2 1 0 1 0 1 0 1 2Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step -1 If i = j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step -1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd Sub6运行下面程序，如果连续三次单击命令按钮之后，A数组共有 个元素；数组元素A(2)的值是 ，A(5)的值是 。 6 5 31Option ExplicitOption Base 1Private Sub Command1_Click() Static A() As Integer , N As Integer Dim I As Integer, K As Integer K = N N = N + 2 ReDim Preserve A(N) For I =