在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。A．2B．7C．14D．37

题目

在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。

A．2

B．7

C．14

D．37

相似考题

1.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 2x=x+6NextNextPrint xEnd Sub程序运行后,单击命令按钮,输出结果是A．12B．13C．16D．17

2.在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是： ______。A．1 4 7 2 5 8 3 6 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出

3.在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Comnmnd1_Click() Dim a(5,5)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a＜i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是______。A．1 4 7 2 5 8 3 6 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出

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

更多“在窗体中画一个命令按钮,然后编写以下时间过程:Private Sub Command1_Click()For i=1To4x=1For j ”相关问题

  • 第1题：

    在窗体上画一个名称为Comlnalld1的命令按钮，然后编写如下程序： 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)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是( )。

    A．1 2 3 2 4 6 3 6 9

    B．2 3 4 2 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
    解析：本题考查利用多重循环获取数组的值，题目难度不大，但却是考试重点，要求考生重点掌握。本题出自2002年9月考题，需要注意输出方法：外循环第1次i=0，内层循环j循环3次，输出1 2 3，然后换行，接着外循环执行第2次，依次类推，可得答案为D。

  • 第2题：

    在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结果为

    A．11

    B．33

    C．11 33

    D．11 33 55


    正确答案：D
    解析：可以使用排除法，由于存放在Forj循环，所以输出结果排除A与B项，同时由于第一个Print方法的最后有j，所以输出结果不会换行显示，故排除C，答案为D。注意Tab(n)表示把光标移到由参数n指定的位置。

  • 第3题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 X=4 For j=1 To 2 X=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是

    A．12

    B．13

    C．16

    D．17


    正确答案：C
    解析：观察程序，由于每次执行外层循环时x都被重新赋值，因此只要看当i=4时，执行内循环所得到的结果就可以。

  • 第4题：

    在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click() For j=1 To 3 Print Tab(3(j)；11((2(j-1)； Next j Print End Sub 程序的执行结果为

    A．11

    B．33

    C．11 33

    D．11 33 55


    正确答案：D
    解析：本题考查Tab函数以及Print方法的使用。可以使用排除法，由于存在For j循环，所以输出结果排除A与B项，同时由于第一个Print方法的最后有j，所以输出结果不会换行显示，故排除C，答案为D。注意Tab(n)表示把光标移到由参数n指定的位置。

  • 第5题：

    在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Shb Command1_Chck() Dim a(5,5) As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1) * 3+j Print a(i,j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是______。

    A．1 4 7 2 5 8 3 6 9

    B．1 2 3 4 5 6 7 8 9

    C．1 2 3 4 5 6 7 8 9

    D．没有输出


    正确答案：B
    解析：程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项A，B可能正确，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此可判断选项B为正确答案。

相关内容