7．下列程序运行的结果是（)。 Dim a（3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If i = j Then a（i, j) = 1 Else a（i, j) = 0 Print a（i, j); Next j Print Next i A．1 1 1 B．0 0 0 C．1 0 0 D．1 0 1 1 0 1 0 1 0 0 1 0 0

第1题

请阅读程序：

Option Base 1

Pfivate 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

点击查看答案

第2题

请阅读程序．

0ption Base 1

Private Sub Fo,m 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

点击查看答案

第3题

有F面的程序段．其功能是按图1所示的规律输出数据

Dim a(3，5)As Integer

For i=1 To 3

For i=1 To 5

a(i，j)=i+j

Print a(i，j)；

A．For i=i To 5 For j=1 To 3 Print a(j，i)； Next Print Next

B．For i=1 To 3 For i=1 To 5 Print a(j，i)； Next Print Next

C．For j=1 To 5 FOr i=1 TO 3 Print a(j，1)； Next Print Next

D．For i=1 To 5 For j=1 To 3 Print a(i，j)； Next Print Print Next Next

点击查看答案

第4题

有F面的程序段．其功能是按图1所示的规律输出数据

Dim a(3，5)As Integer

For i=1 To 3

For i=1 To 5

a(i，j)=i+j

Print a(i，j)；

A．For i=i To 5 For j=1 To 3 Print a(j，i)； Next Print Next

B．For i=1 To 3 For i=1 To 5 Print a(j，i)； Next Print Next

C．For j=1 To 5 FOr i=1 TO 3 Print a(j，1)； Next Print Next

D．For i=1 To 5 For j=1 To 3 Print a(i，j)； Next Print Print Next Next

点击查看答案

第5题

（ 23 ）有下面的程序段，其功能是按图 1 所示的规律输出数据

Dim a ( 3 , 5 ) As Integer

For i=1 To 3

For j=1 To 5

A ( i,j ) =i+j

Print a ( i,j ) ;

A ）

For i=1 To 5

For j=1 To 3

Print a （ j,i ） ;

For i=1 To 3

For j=1 To 5

Print a （ j,i ） ;

For j=1 To 5

For i=1 To 3

Print a （ j,i ） ;

For i=1 To 5

For j=1 To 3

Print a （ i,j ） ;

第6题

（ 23 ）有下面的程序段，其功能是按图 1 所示的规律输出数据

Dim a ( 3 , 5 ) As Integer

For i=1 To 3

For j=1 To 5

A ( i,j ) =i+j

Print a ( i,j ) ;

A ）

For i=1 To 5

For j=1 To 3

Print a （ j,i ） ;

For i=1 To 3

For j=1 To 5

Print a （ j,i ） ;

For j=1 To 5

For i=1 To 3

Print a （ j,i ） ;

For i=1 To 5

For j=1 To 3

Print a （ i,j ） ;

第7题

编写如下程序： Private Sub Command1_Click() Dim a(3, 3) As Integer Dim b(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i + j b(i, j) = a(i, j) + i * (j - 1) Next j Next i For i = 1 To 3 For j = 1

A、2 3 4 3 4 5 4 5 6

B、2 4 6 3 6 9 4 8 12

C、3 5 7 5 8 11 7 11 15

D、4 6 8 7 10 13 10 14 18

点击查看答案

第8题

下列程序的运行结果为（）。 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a(m, n); " "; Next m Next n End Sub

A、2 4 6 1 2 3

B、1 2 3 2 4 6

C、1 2 3 4 5 6

D、6 5 4 3 2 1

点击查看答案

第9题

下面程序段的执行结果是（）。 Dim A(10) As Integer For i=0 To 10 A(i)=2*i Next i Print A(A(3))

点击查看答案

第10题

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。

A．20

B．7

C．16

D．17

点击查看答案