在Activate事件过程中，写入下面的程序： Prirate Sub Form_Activate() Dim S As String，a As String，b As String a="*"：b="$" For i=1 To 4 If i/2=Int(i/2) Then S=String(Len(a)+i,b) Else S=String(Len(a)+i,a) End If Print S： Next i End Sub 运行程序后，显示的结果是( )。

A．$$***$$$$*****

B．*$$**$$***$$$****$$$$

C．**$$$****$$$$$

D．$*$$**$$$***$$$$****

[单选题]程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60

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

[单选题]编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是( )。A．642B．246C．2D．6

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

[单选题]编写如下事件过程: 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．同时按下Ct

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

[单选题]对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” E

[单选题]对窗体编写如下事件过程： Private Sub Form_ Mouse Down(Button As Integer，Shift As Integer，X AS Single，Y As Single) If Button=2 Then Print "AAAAA" End if End Sub Private Sub Form. _ MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Print "BBBB

[单选题]下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C/100 End SubA． 123B．3C．5D．579

[单选题]有如下事件过程： Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x/100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。A．123B．3C．5D．579