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.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Integer,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiEnd SubA．B．C．D．

2.请阅读下面程序 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，10B．8，9C．9，8D．10，10

3.在窗体上画一个名称为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 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9

4.在窗体上画一个名称为Conunandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Intege,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i,j)=(i-1)*3+jPrinta(i,j)；NextjPrintNextiEnd 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”相关问题

  • 第1题：

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

  • 第2题：

    在窗体上画一个命令按钮，其名称为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。

  • 第3题：

    对于以下程序，当执行完第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


    √

  • 第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题：

    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;


    错误

相关内容