在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 T0 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
解析: Option Base 1语句的作用是限定数组下标的默认下限值为1;Array(arglist)函数用于将arglist参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量,UBound函数用于返回数组某一维的最大下标(即上界),LBound函数用于返回数组某一维的最小下标(即下界)。
本题源程序通过For循环将1、2、3、4按顺序组成一个4位数,即1234。