单项选择题

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

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

单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后，单击命令按钮，输出的结果是
A．7
B．15
C．157
D．538
单项选择题
下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = abcdef Print Pat(FirStr) End Sub Private Function Pat( xStr As String) As String Dim tempStr As String, strLen As Integer tempStr = strLen = Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 ) i=i+1 Loop Pat = tempStr End Function
A．abcdef
B．afbecd
C．fedcba
D．defabc
相关试题