单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr = Array(1,2,3,4,5)
j=1
For i = 5 To 1 Step -1
S = S + Art(i) * j
j =j * 10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。

A．54321
B．123
C．12345
D．345

<上一题目录下一题>

热门试题

单项选择题

在窗体上添加一个命令按钮，名为Command1，其单击事件中有如下程序段，则事件过程执行后，文本框中输出( )。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i Text1.Text = Str(x)

A．3
B．6
C．9
D．12

单项选择题

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (

A．
s2 = Factorial (
B．
Print "s1="; s1; "s2="; s2
End Sub
Function Factorial(a() As Integer)
Dim t#, i%
t=1
For i = LBoun
C．s1=24 s2=24
D．s1=360 s2=360

相关试题