下列程序执行的结果为（ ）。 　　x=25：y=20：z=7 　　Print "S"；x+z*y；")"

A:!a=b B:a!=b C:a=：b D:a=b

窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 的命令按钮。命令 按钮的单击事件过程 如下 ： Private Sub Command1_Click（　） CD1.FileName = "" CD1.Filter = "All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex = 2 CD1.Action = 1 End Sub 关于以上代码，错误的叙述是______。

A:执行以上事件过程，通用对话框被设置为"打开"文件对话框 B:通用对话框的初始路径为当前路径 C:通用对话框的默认文件类型为*.Txt D:以上代码不对文件执行操作

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（ ）。

A:For i=0 To List1.ListCount-1 　　…… 　　Next B:For i=0 To ListCount-1 　　　…… 　　Next C:For i=1 To List1.listCount 　　…… 　　Next D:For i=1 To ListCount 　　…… 　　Next

如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性？

A:Value B:Visible C:Default D:Enabled

单击命令按钮时，下列程序的执行结果是( )。 　　Private Sub Command1_Click（　） 　　　　Dim a As Integer，b As Integer，C As Integer 　　　　a=3 　　　　b=4 　　　　c=5 　　　　Print SecProc(c，b，a) 　　End Sub 　　Function FirProc (x As Integer，y As Integer，z As Integer) 　　　　FirProc=2 * x + y + 3 * z+2 　　End Function 　　Function SecProc (x As Integer，y As hteger，z As Integer) 　　　　SecProc=FirProc(z，x，y)+x+7 　　End Function

A:13 B:16 C:36 D:33

有如下事件过程，单击命令按钮扣，输出结果是( )。 　　 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