单项选择题

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

A．1234
B．12
C．34
D．4321
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a() As Integer, in As Integer Private Sub Command1_Click() m=InputBox( 请输入一个正整数 ) ReDim a(m) End Sub Private Sub Command2_Click() In=InputBox( 请输入一个正整数 ) ReDim a(m) End Sub 运行程序，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是
A．5
B．6
C．10
D．11
单项选择题
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，如图2所示，编写以下程序： Private Sub Command1_Click() Call cale(HV.Value, HT.Value) End Sub Public Sub tale(x As Integer, y As Integer) Text1.Text=x*y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是
相关试题