阅读如下程序: Option Base 1 Private Sub Form Click() Dim Arr(4,4)As Integer For i=1 To 4 For j=1 To

admin2009-02-13  32

问题 阅读如下程序:    Option  Base  1    Private  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

答案4

解析 本题主要测试二维数组的输入输出操作。由于程序的开头有Option Base1的语句,因此所定义的Arr是一个4行4列的二维数组。在第1个二重For循环中,根据内层和外层循环变量的变化对数组的每个元素赋值,其计算公式为:(i-1)*2+j,其中i和j分别为外层和内层循环变量。用这个公式计算的数组Arr各元素的值如下:
   Arr(1,1)=1    Arr(1,2)=2    Arr(1,3)=3
   Arr(1,4)=4
   Arr(2,1)=3    Arr(2,2)=4    Arr(2,3)=5
   Arr(2,4)=6
   Arr(3,1)=5    Arr(3,2)=6    Arr(3,3)=7
   Arr(3,4)=8
   Arr(4,1)=7    Arr(4,2)=8    Arr(4,3)=9
   Arr(4,4)=10
   在第2个二重循环中,用Print方法输出Arr数组 4个元素的值,即Arr(3,3)、Arr(4,3)、Arr(3, 4)和Arr(4,4),从上面的赋值情况可以看出,这 4个元素的值分别是7、9、8、10。
转载请注明原文地址:https://kaotiyun.com/show/Yo1p777K
0

最新回复(0)