当Form1_Click事件发生时,窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer,j As Integer Dim k

admin2009-02-13  37

问题 当Form1_Click事件发生时,窗体上显示的第三行是(    )。    Option Base 1    Private Sub Form_Click()       Dim i As Integer,j As Integer       Dim k As Integer,a(5,5)As Integer       For i=1 To 5          k=1          For j=1 To 5             If i<=j Then               a(i,j)=k               k=k+1             Else               a(i,j)=1             End If       Next j    Next i    For i=1 To 5       For j=1 To 5          Print a(i,j);       Next j       Print    Next i    End Sub

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

答案4

解析 本题首先定义了一个5行5列的数组,然后通过一个二重For循环给它的每个元素赋初值,赋值规律是左上右下对角线下面的元素值为1,该对角线上元素的值为1,该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a,故输出的第三行为“1  1  1  2  3”。
转载请注明原文地址:https://jikaoti.com/ti/3bq0FFFM
0

最新回复(0)