单项选择题

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

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

单项选择题
将窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出的结果为
A．A A
B．A B
C．A C
D．A D
单项选择题
在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum 10 Loop fun1=k End Function Private Sub Command1_Click() Dim n As Long n=InputBox( 请输入一个数 ) Print fun1(n) End Sub 程序运行后，单击命令按钮，在对话框中输入234，输出的结果为
A．3
B．4
C．9
D．10
相关试题