编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

[单选题]阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10

[单选题]设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 21B．543 2C．6 54 3D．7 6 54

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程： 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 i = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果为A．4321B．12C．34D．1234

[单选题]编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub

[单选题]编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1

[单选题]编写程序：OptionBase1D．immark()AsIntegerPrivateSubCommand1_Click()D．imn,sumAsIntegerD．imaveAsSinglen=Val(InputBox("输入学生的个数"))ReDimmark(n)AsIntegersum=0F．orI=1Tonmark(I)=10*Isum=sum+mark(I)NextIave=sum/nPrintsum;"和";aveE．ndSub单击命令按钮后输入4

[单选题]编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。A．同时按下Shift键和鼠标左键B．同时按下Shift键和鼠标右键C．同时按下Ctrl、Alt键和鼠标左键D．同

[单选题]编写如下事件过程：Private Sub Form_MouseDown（Button As Integer, Shift As Integer, _X As Single, Y As Single）If Shift＝6 And Button＝2 ThenPrint "PC"E．nd IfE．nd Sub程序运行后，为了在窗体上输出"PC"，应执行的操作为（ ）。A．同时按下Shift键和鼠标左键B．同时按下Ctrl，Alt键和鼠标右键C．同时按下Shift键和鼠标右键D．同时按下Ctrl

[单选题]编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击

[单选题]编写如下事件过程： Private SubForm_KeyDown(KeyCodeAsIntege《ShiftAsInteger',) If (Button And 3)=3 Then Print"AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 ______。A．左B．右C．同时按下左、右D．按什么键都不显示