Private Sub Commandl Click（）Dim i As Integer, j As IntegerDim a （10,10）As IntegerFor i=1 To 3For j= i To 3a（i,j）=（i-1）*3+jPrint a （i,j）;Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是（）。

题目

Private Sub Commandl Click（）

Dim i As Integer, j As Integer

Dim a （10,10）As Integer

For i=1 To 3

For j= i To 3

a（i,j）=（i-1）*3+j

Print a （i,j）;

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是（）。

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

对于以下程序，当执行完第8行continue语句后，接下来将执行哪一行语句？ 1 for（i=n;i＜=m;i++) 2 { 3 for（j=2;j＜i;j++) 4 { 5 if（!（i%j)) 6 { 7 isPrime=0; 8 continue； 9 printf（“是素数”）; 10 } 11 } 12 isPrime=1; 13 } 14 printf（“不是素数”）；

A．3

B．9

C．12

D．14

E．1

√

第2题：

5、int i,j,a[2][3];按照数组a 的元素在内存的排列次序，不能将数1,2,3,4,5,6存入a 数组的是？

A．for(i=0;i＜2;i++)for(j=0;j＜3;j++)a[i][j]=i*3+j+1;

B．for(i=0;i＜3;i++)for(j=0;j＜2;j++)a[j][i]=j*3+i+1;

C．for(i=0;i＜6;i++)a[i/3][i%3]=i+1;

D．for(i=1;i＜=6;i++)a[i][i]=i;

错误

第3题：

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim al(4,4),a2(4,4) Dim i As Integer,j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print al(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。

A． 6 6

B．10 5

C．7 21

D．6 12

正确答案：D
解析：本题也是通过一个For循环来给数组赋值。由a1(i,j)=i+j可知，a1(3,3)=3+3=6，而由a2(i,j)=al(i,i)+i+j可知a2(3,3)=a1(3,3)+3+3=6+3+3=12。

第4题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

A．1 2 3 246 3 69

B．2 3 4 3 4 5 4 5 6

C．1 4 7 2 5 8 3 6 9

D．1 2 3 4 5 6 7 8 9

正确答案：D
解析：本题仍然是使用For循环对二维数组赋值。由于有For,循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j”可知输出的数值为1、2、3。此时For j循环终止，并执行“Print”语句，即进行换行。然后再执行For i的第二次循环，以此类推，正确答案为D。

第5题：

在窗体上画一个名称为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

正确答案：B
解析：本题程序在过程中定义了一个二维数组，该数组可容纳9个元素，在循环中给数组元素赋值，在每次循环中有Ifi=jThena(i，j)=1，表示主对角线置1；IfijThena(i，j)=2，表示主对角线以上元素置2;Ifi＞jThena(i,j)=3，表示主对角线以下元素置3。

第6题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

A．1 2 3 24 6 3 6 9

B．2 3 4 3 4 5 4 5 6

C．1 4 7 2 5 8 3 6 9

D．1 2 3 4 5 6 7 8 9

正确答案：D
解析：由于有For循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j“可知输出的数值为1、2、3。此时Forj循环终止，并执行“Print”语句，即进行换行。然后再执行Fori的第二次循环，以此类推，正确答案为D。

第7题：

请阅读下面程序 public class ForLoopStatement { public static void main(string []args){ int i,j; for (i=1; i＜5; i++) { //i循环 for (j=1;j＜=i;j++) //j循环 System.out.print(i+"×"+j+"="+i*j+" "); System.out.println(); } } } 程序完成后，i循环和j循环执行的次数分别是

A．4，10

B．8，9

C．9，8

D．10，10

正确答案：A
解析：本题考查for循环语句。for循环执行时，首先执行初始化操作，然后判断中止条件是否满足，如果满足，则执行循环体中的语句，最后执行迭代部分。完成一次循环后，重新判断终止条件。
本题程序中，外层for循环i首先进行初始化操作，然后判断中止条件i5，然后执行循环体中的语句，最后执行迭代部分，即i++。因此，直接可以判断外层循环i执行的次数是4。故本题的正确答案是选项A。
进一步分析，内层for循环j每次的执行次数都和i的值有关。第一次i的值为1，内层for循环执行的次数是1；第二次i的值为2，内层for循环执行的次数是2；第三次i的值为3，内层for循环执行的次数是3；第四次i的值为4，内层for循环执行的次数是4。因此，内层for循环j的执行次数是1+2+3+4=10。

第8题：

在窗体上画一个名称为Conunandl的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Dimi As Intege,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i,j)=(i-1)*3+j

Printa(i,j)；

Nextj

Print

Nexti

End Sub

程序运行后，单击

A．

B．

C．

D．

正确答案：D

第9题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Dimi As Integer,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i，j)=(i-1)*3+j

Printa(i，j)；

Nextj

Print

Nexti

End Sub

A．

B．

C．

D．

正确答案：D

Private Sub Commandl Click（）Dim i As Integer, j As IntegerDim a （10,10）As IntegerFor i=1 To 3For j= i To 3

题目

相似问题和答案

相关内容