在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 3, 1 To 3), x x=Array(1,2,3,4,5,6,7,8

admin2013-01-23  22

问题 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:    Private Sub Command1_Click()       Dim a(1 To 3, 1 To 3), x       x=Array(1,2,3,4,5,6,7,8,9)       For i=1 To 3           For i-1 To 3               a(i,j)=x(i*j-1)           Next j       Next i       Call sub1(i,j,a())    End Sub    Private Sub sub1(m,n,t)       For m=1 To 3          For n=1 To 3               Print t(m,n);             Next n          Print       Next m    End Sub    程序运行后,单击命令按钮,则窗体上显示的内容是

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

答案2

解析 本题程序的主要功能是将一维数组部分元素读入到二维数组然后调用函数输出,注意语句a(i,j)-x(i*j-1),结果是d(i,j)和。(j,i)的值相同,而不是顺序地将一维数组读入到二维数组。
转载请注明原文地址:https://kaotiyun.com/show/brhp777K
0

最新回复(0)