2. 计算机
  3. 有如下程序代码： Private Sub Form_Click() Dim a(3, 3) As Integer For I = 1 To 3 For j = 1 To 3 If j > 1 And

有如下程序代码： Private Sub Form_Click() Dim a(3, 3) As Integer For I = 1 To 3 For j = 1 To 3 If j > 1 And

admin2015-09-23  23
问题 有如下程序代码：
Private Sub Form_Click()
    Dim a(3, 3) As Integer
    For I = 1 To 3
        For j = 1 To 3
            If j > 1 And I > 1 Then
                a(I, j) = a(a(I - 1, j - 1), a(I, j - 1)) + 1
            Else
                a(I, j) = I * j
            End If
            Print a(I, j);
        Next j
        Print
    Next I
End Sub
程序运行后，单击窗体，输出结果为
选项 A、1  2  3  2  3  1  3  2  3
B、1  2  3  1  2  3  1  2  3
C、1  2  3  2  4  6  3  6  9
D、1  2  3  2  2  2  3  3  3
答案A
解析 观察答案，数组的第一行数据均相同，数组的第二行数据均不同。直接进入第二行数据，当i=2，j=1时，If条件j>1 And i>1 为假，执行Else语句，a(2,1)= i*j=2*1=2；当i=2，j=2时， If条件j>1 And i>1 为真，执行If内语句，a(2,2)=a(a(1,1),a(2,1))+1=a(1,2)+1=2+1=3；由此可知，只有答案A符合条件。故本题正确答案为A。
转载请注明原文地址:https://jikaoti.com/ti/oyJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)