在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。A．4221B．1234C．34D．12

题目

在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。

A．4221

B．1234

C．34

D．12

相似考题

1.在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j =3 To 4 Print a(j，i)； Next j Print Next i End Sub程序运行后，单击命令按钮，其输出结果为______ 。A．6 9 7 10B．7 10 8 11C．8 11 9 12D．9 12 10 13

2.在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )A．2B．4C．8D．48

3.在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls＜60 a＄=“F” Case 60 T069 a＄=“D” Case 70 To 79 a＄=“C” Case 80 To 89 a＄=“B” Case Else a＄=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是A．AB．BC．CD．D

4.在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是A．4321B．1234C．34D．12

更多“在窗体上面一个命令按钮(其Name属性为Command1),然后编写如下代码:Option Base 1Private Sub Cor ”相关问题

  • 第1题：

    在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:

    Option Base 1

    Private Sub Command1_Click()

    Dim a

    s=0:j=1

    a=Array(1,2,3,4)

    For i=4 To 1 Step-1

    s=s+a(i)*j

    j=j*10

    Next

    Print s

    End Sub

    运行上面的程序并单击命令按钮,其输出结果是

    A．4221

    B．1234

    C．34

    D．12


    正确答案：B
    解析：数组名a为变体型变量,用Array函数对其进行初始化,得到a(1)=1,a(2)=2,a(3)=3和a(4)=4。变量j在循环中每次计算后扩大10倍,变量s的计算过程为s=4*1+3*10+2*100+1*1000=1234。

  • 第2题：

    在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是

    A．22

    B．24

    C．26

    D．28


    正确答案：D
    解析：根据题意，For循环在i为4和1时分别执行1次For循环语句，第1次执行时j值为1，a(㈠为8；第2次执行时，j值为10，a(i)值为2，故最终用Print输出。时，s的值为20加8。注意，本题事先声明了OptionBasel，故数组s的下标下界为1。

  • 第3题：

    在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
    程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
    略

  • 第4题：

    在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click() Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是

    A．22

    B．24

    C．26

    D．28


    正确答案：D
    解析：根据题意，For循环在i为4和1时分别执行1次For循环语句，第1次执行时j值为1，a(i)为8；第2次执行时，j值为10，a(i)值为2，故最终用Print输出s时，s的值为20加8，答案为D。注意，本题事先声明了OptionBase1，故数组a的下标下界为1。

  • 第5题：

    在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:

    Option Base 1

    Private Sub Command1_Click（）

    Dim a

    s = 0

    a = Array（1,2,3,4）

    j = 1

    For i = 4 To 1 Step -1

     s = s + a（i） * j

     j = j * 10

    Next i

    Print s

    End Sub

    运行上面的程序，单击命令按钮，其输出结果是（ ）。

    A．4321

    B．1234

    C．34

    D．12


    正确答案：B

相关内容