在窗体上画一个命令按钮，其名称为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 运行上面的程序，单击命令按钮，其输出的结果为

单项选择题将窗体的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”键，则输出的结果为

单项选择题在窗体上画一个命令按钮，然后编写如下程序： 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，输出的结果为