单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
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 s
End Sub
程序运行后，单击命令按钮，其输出结果是( )。

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

单项选择题
有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 print numa ; numb End Sub 连续3次调用var_dim过程，第3次调用时的输出是( )。
A) 2 1
B) 2 3
C) 6 1
D) 6 3
单项选择题
设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr = strL = Len (xStr) i = strL 2 Do While i ＜ = strL tStr = tStr & Mid(xStr, i + 1, 1) i=i+1 Loop Fun = tStr & tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1 = ABCDEF Text1. Text = LCase (Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是( )。
A) ABCDEF
B) abcdef
C) defdef D) defabc
相关试题