有如下事件过程，单击命令按钮扣，输出结果是( )。 　　 Private Sub Command1 Click( ) 　　　　Dim b% (1 To4) ,j%, t# 　　　　For j=1 To 4 　　　　　　b(j) =j 　　　　Next j 　　　　t=Tax(b( ) ) 　　　　Print "t="; t, 　　 End Sub 　　 Function Tax (a( ) As Integer) 　　　　Dim t#, i% 　　　　t=1 　　　　For i=2 To UBound (a) 　　　　　　t=t * a(i) 　　　　　　Next i 　　　　　　Tax=t 　　 End Function

A:私有成员 B:保护成员 C:公有成员 D:所有成员

如下事件过程： 　　Function Feed(x) 　　　　If x ＜10 Then 　　　　　　Feed=X 　　　　Else 　　　　　　Feed=10+x 　　End If 　　End Function 　　Private Sub Command1_Click( ) 　　　　x=Val(Input Box(" "，0)) 　　　　pay=Feed(x) 　　　　Print pay 　　End Sub 　　运行时在输入框内输入变量x的值为15，输出结果为( )。

B:15 C:25 D:30

在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click（　） Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输 出结果为______。

B:5 C:15 D:无任何输出

有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（ ）。 　　Const ShiftKey=1 　　Const CtrlKey=2 　　Const Key_F5=&H74 　　Const Key_F6=&H75 　　Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　If KeyCode=Key_F5 And Shift=ShiftKey Then 　　　　　　Print"Press Shift+F5" 　　　　ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then 　　　　　　Print"Press Ctrl+F6" 　　　　End If 　　End Sub

A:无任何信息 B:Press Shift+F5 C:Press Ctrl+F6 D:程序出错

在窗体上面1个名称为Command1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click（　） Dim a (5,5) As Integer For i=1 to 5 For j = 1 to 5 A ( i ,j)=(i+j)85/10 Next j Next i S=0 For i=1 to 5 S=s+a(i,i) Next i Print s End sub 程序运行后,单击命令按钮,输出结果是【 】

A:15 B:13 C:11 D:9

有如下事件过程： 　　Private Sub Commaild1_Click( ) 　　　　Dim i As Integer 　　　　For i =1 To 2 　　　　　　DC 　　　　Next i 　　End Sub 　　Sub DC( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　x=x + 1 　　　　y=y + 1 　　　　m=m&"*"：n=n &"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

A:1 1 * # 　　 1 1 * # B:1 1 * # 　　 1 2 * # C:1 1 * # 　　1 1 * ## D:1 1 * # 　　 1 2 * ##

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： 　　Option Base 1 　　Private Sub Command1_Click（　） 　　　Dim a(10) As Integer 　　　For i = 1 To 10 　　　　a(i) = i 　　　Next 　　　Call swap（【 】） 　　　For i = 1 To 10 　　　　Print a(i); 　　　Next 　　　End Sub 　　　Sub swap(b（　） As Integer) 　　　　n =【 】 　　　For i = 1 To n / 2 　　　　　 t = b(i) 　　　　　　b(i) = b(n) 　 b(n) = t 　　　　　【 】 　　　Next 　　End Sub 　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。

下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。 　　Private Sub Form_Click（　） 　　　Dim i As Integer 　　　Open【 】　As #1 　　　For i=1 To 10 　　　　　【 】　 　　　Next i 　　　Close #1 　　End Sub

“Base．txt”For Output

设有如下程序： Private Sub Form_Click（　） Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。

求整数 A~H 之和 , CF

在窗体上有一个命令按钮，然后编如下事件过程： 　　Function SR( x As Double)As Double 　　　　Select Case Sgn(x) 　　　　　Case 1 　　　　　　　SR=Sqr(x) 　　　　　　　Exit Function 　　　　Case 0 　　　　　SR=0 　　　　Case-1 　　　　　SR=-1 　　　End Select 　　End Function 　　Private Sub Command1 _ Click( ) 　　　Dim Msg，SRN 　　　Dim N AS Double 　　　N=InputBox("请输入要计算平方根的数") 　　　Msg=N&"的平方根" 　　　Select Case SR(N) 　　　　　　Case 0 　　　　　　　　Msg=Msg &"是0" 　　　　　　Case-1 　　　　　　　　Msg=Msg&"是一个虚数" 　　　　　　Case ElSe 　　　　　　　　Msg=Msg &"是"& SR(N) 　　　End Select 　　　MsgBox Msg 　　End Sub 　　程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。

-1的平方根是一个虚数