请阅读程序: Option Base 1 Pfivate Sub Form_Click() Dim Arr(4,4)As Integer For i=1 To 4 For j=1 To 4 Arr(i,j)=(i-1

admin2010-11-02  17

问题 请阅读程序:
  Option Base 1
  Pfivate Sub Form_Click()
    Dim Arr(4,4)As Integer
    For i=1 To 4
    For j=1 To 4
    Arr(i,j)=(i-1)*2+j
    Next j
    Next i
    For i=3 To 4
    For j=3 To 4
    Print Arr(j,i);
    Next j
    Print
    Next i
    End Sub
    程序运行后,单击窗体,则输出结果是(    )。

选项 A、5 7
6 8
B、6 8
7 9
C、7 9
8  10
D、8  10
8  11

答案C

解析 本题利用嵌套for循环给数组Arr赋值。结果是Arr(3,3)=7,Arr(3,4)=8,Arr(4,3)=9,Arr(4,4)=10,其他与后面程序无关。然后再次利用嵌套循环输出,输出顺序为Arr(3,3),Arr(4,3),print,Arr(3,4),Arr(4,4),所以结果为C。
转载请注明原文地址:https://jikaoti.com/ti/F1g0FFFM
0

最新回复(0)