单项选择题
在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a= Array (1,2,3,4)
j=1
for i=a To 1 Step-1
s=s+ a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是______ 。
A.4321
B.12
C.34
D.1234
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
有如下的一个函数过程:Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num 10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程,在运行该程序后,在输入对话框中输入数字123,该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub
A.12
B.6
C.3
D.1
点击查看答案&解析
单项选择题
在窗体上添加一个命令按钮,名为Command1,然后为该命令按钮编写如下事件过程,该过程执行结果为______。Option Base 1Private Sub Cemmand1_Click() Dim a As Variant 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 sEnd Sub
A.4321
B.1234
C.34
D.12
点击查看答案&解析
相关试题
以下程序用来建立一个5×5矩阵,该矩阵两...
关键字ASC和DESC分别表示 【5】 的含义...
以下程序用随机函数模拟掷骰子,统计掷50...
以下是一个判断一元二次方程ax2+bx+c=...
以下程序用于计算“1+1 3+1 5+…...