单项选择题

在窗体上画一个命令按钮(其Nmne属性为Command1)，然后编写如下代码：
Option Base l
Private Sub Command1_Click( )
Dim a
s=0
a=Array(1，2，2，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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n=Val(Text1.Text) If n 2=n 2 Then f=f1(n) Else f=f2(n) End if Print f；n End Sub Public Function f1(ByRef x) x=X*X n=x+x End Function Public Function f2(ByVal x) X=X*X f2=X+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
A．72 36
B．108 36
C．72 6
D．108 6
单项选择题
在窗体上画四个文本框(如图所示)，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click( ) For Each Text Box ln Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为
相关试题