在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a(3,3) For i=1 To 3

admin2009-01-15  31

问题 在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:    Option Base 1    Private Sub Command1_Click()        Dim a(3,3)        For i=1 To 3          For j=1 To 3            If i=j Then a(i,j)=1            If i<j Then a(i,j)=2            If i>i Then a(i,j)=3          Next j        Next i     For i=1 To 3        For j=1 To 3           Print a(i,j);        Next j        Print      Next i    End Sub    程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。

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

答案2

解析 本题程序在过程中定义了一个二维数组,该数组可容纳9个元素,在循环中给数组元素赋值,在每次循环中有If i=j Then a (i,j)=1,表示主对角线置1;If i<j Then a(i,j)=2,表示主对角线以上元素置2;If i> j Then a(i,j)=3,表示主对角线以下元素置3。
转载请注明原文地址:https://jikaoti.com/ti/u280FFFM
0

最新回复(0)