程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。 Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim x(3,3)As

admin2009-02-13  26

问题 程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是(    )。    Option Base 1    Private Sub Command1_Click()    Dim i As Integer    Dim x(3,3)As Integer    For i=1 To 3       For j=1 To 3          x(i,j)=(i-1)*3+j       Next j    Next i    For i=1 To 3       Print x(i,4-i);    Next i    End Sub

选项 A、1  5  9
B、1  4  7
C、3  5  7
D、3  6  9

答案4

解析 本题首先通过一个双重For循环给一个3行3列的数组x的每个元素赋值,赋值规律是每个元素的值是它的行下标减1乘3加上列下标。然后通过一个For循环输出三个元素:x(1,3)、x(2,2)和x(3,1),它们的值分别为:x(1,3)=(1-1)*3+3=3、x(2,2)=(2-1)*3+2=5、x(3,1)=(3-1)*3+1=7。
转载请注明原文地址:https://jikaoti.com/ti/NF80FFFM
0

最新回复(0)