A. 默认情况下，属性Visible的值为False
B. 如果设置控件的Visible属性为False，则运行时控件会隐藏 C. Visible的值可设为True或者False
D. 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态 18、下列各控件不包含滚动条的控件是( )
A. ListBox B. ComboBox C. TextBox D. LabelBox
19、 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是( ) A. Redim a As Integer B. Static a As Integer C. Public a As Integer D. Dim a As Integer 20、声明一个变量为局部变量应该用( )
A) Global B) Private C) Static D) Public
21、执行x$=InputBox(\请输入x的值\时，在弹出的对话框中输入123，在列表框List1选中1 个列表项(数据为456) ，使有的值使123456的语句是( ) A. y=x$+List1.List(0) B. y=x$+List1.List(1)
C. y=Val(x$) +Val(List1.List(0) ) D. y=Val(x$) & Val(List1.List(1) ) 22、 以下各项中，Visual Basic不能接收的图形文件是( )
A. .ico文件 B. .jpg文件 C. .psd文件 D. .bmp文件 23、下面的属性中，用于自动调整图像框中图形内容的大小的是( ) A.Picture B. CurentY C. CurrentX D. Stretch 24、 下面有关注释语句的格式，错误的是( )
A. Rem注释内容 B. ′注释内容 C. a=3:b=2 ′对a、b赋值 D. Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)
25、只有将组合框的Style属性设置为何值时，才能触发DblClick事件？( ) A. 0 B. 1 C. 2 D. 3
26、以下属于Visual Basic合法的数组元素是( ) A.x8 B. x［8］ C.s(0) D. v［8］ 27、 编写如下两个事件过程：
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序，如果按\键，则程序输出的结果是
( )
A. A A B. a A
C. A A D. a a
28、 要使菜单项MenuOne在程序运行时失效，使用的语句是( ) A. MenuOne.Visible=True B. MenuOne.Visible=False C. MenuOne.Enabled=True D. MenuOne.Enabled=False 29、在窗体上建立通用对话框需要添加的控件是( )
试卷编码： 07GL10000000-80000059330002 第 6 页 共 10 页
A. Data控件 B. From控件
C. CommonDialog控件 D. VBComboBox控件
30、在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是( ) A. Load B. Show C. Hide D. Unload 31、 运行下列程序段后，显示的结果为( ) J1=23 J2=32
If J1 A. If A≠B Then Print \不等于B\ B. If A<>B Then Printf \不等于B\C. If A<>B Then Print \不等于B\ D. If A≠B Print \不等于B\ 33、下面语句正确的是( ) A. If x<3?y And x>y Then y=x^3 B. If x<3?y And x>y Then y=3x C. If x<3?y:x>y Then y=x^3 D. If x<3?y And x>y Then y=x* *3 34、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是( ) A. If x>=y Then z=x : z=y B. If x>=y Then z=x Else z=y C. z=y : If x>=y Then z=x D. If x<=y Then z=y Else z=x 35、 下列程序段执行结果为( ) x=5 y=-6 If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x A. -3 3 B. 5 -9 C. 3 -3 D. -6 5 36、 不能脱离控件(包括客体) 而独立存在的过程是( ) A) 事件过程 B) 通用过程 C) Sub过程 D) 函数过程 37、 Sub过程与Function过程最根本的区别是( ) A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B. Function过程可以有形参，Sub过程不可以 C. Sub过程不能返回值，而Function过程能返回值 D. 两种过程参数的传递方式不同 38、单击命令按钮时，下列程序的执行结果为( ) Private Sub Command1_Click() Dim x As Integer, y As Integer x=12:y=32 Call Proc(x,y) Print x; y End Sub Public Sub Proc(n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub A. 1232 B.232 C. 23 D. 123 39、 单击命令按钮时，下列程序的执行结果是( ) 试卷编码： 07GL10000000-80000059330002 第 7 页 共 10 页 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 End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y) +x End Function A. 20 B. 22 C. 28 D. 30 40、下列程序的执行结果为( ) Private Sub Command1_Click() Dim FirStr As String FirSt=\ Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr=\ strLen=Len(xStr) i=1 Do While i<=Len(xStr) -3 tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End Function A. abcdef B.afbecd C. fedcba D. defabc 二、填空题(第41题～第50题。每题2分，满分20分。) 41、 以下过程的作用是将26个小写字母逆序打印出来，请补充完整。 Sub Inverse() For i=122 To ___________ Print ___________ ; Next i End Sub 42、在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示\打开文件\对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click() CommonDialog1.Filter= ______________ CommonDialog1.ShowOpen 试卷编码： 07GL10000000-80000059330002 第 8 页 共 10 页 PCSTextBox.Text= _____________ End Sub 43、 随机文件使用Put语句写数据，使用 _____________ 语句读数据。 44、下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open \ For i=1 To 8 _____________ Next i Close #1 End Sub 45、 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click() _____________ Form2. _____________ End Sub 46、用户可以用 _____________语句定义自己的数据类型。 47、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(\请输入第一个数字a的值\ a=Val(A) b=InputBox(\请输入第二个数字b的值\ b=Val(b) x=InputBox(\请输入第三个数字x的值\ x=Val(x) a=a + b + x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 _____________ 。 48、当对象得到焦点时，会触发 _____________ 事件，当对象失去焦点时将触发 _____________事件。 49、把窗体的KeyPreView属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下B键，则在窗体上输出的数值是_____________和 _____________ 。 试卷编码： 07GL10000000-80000059330002 第 9 页 共 10 页 50、在文件对话框中，假定有一个名为\的文件，它位于\＼pp\目录下，则\属性的值为 _____________；FileTitle属性的值为 _____________ 。 试卷编码： 07GL10000000-80000059330002 第 10 页 共 10 页