窗体上有一个名称为Command1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j =

admin2015-08-28  26

问题 窗体上有一个名称为Command1的命令按钮,并有如下程序代码:
Option Base 1
Private Sub Command1_Click()
    Dim a%(3, 3)
    For i = 1 To 3
        For j = 1 To 3
            If i > 1 And j > 1 Then
                a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1
            Else
                a(i, j) = i * j
            End If
        Next
    Next
    Print a(2, 2); a(3, 3)
End Sub
运行程序,单击命令按钮,窗体上显示的是

选项 A、1  3
B、2  1
C、2  2
D、3  3

答案D

解析 a是个整形的二维数组。通过For循环给数组a元素赋值。i > 1 并且 j > 1时执行a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1语句,否则执行a(i, j) = i * j,因此执行完第一个大循环后,数组a中的元素值分别是:a(1,1)= 1,a(1,2)= 2,a(1,3)= 3。以此类推,可知a(2,2)=3,a(3,3)=3。选D)。
转载请注明原文地址:https://kaotiyun.com/show/tlQp777K
0

最新回复(0)