Ⅰ、计算机基础部分（30分）
试题一、选择题（每个选项1分，共30分）。考生从提供的答案中选择一个正确的，并把所选答案的字母填入答题卡对应栏内。
略（该部分包含计算机基础知识、windows、word、excel、powerpoin基本知识）
Ⅱ、程序设计语言部分（70分）
试题二、语言基础选择题（每个选项1分，共25分）。考生从提供的答案中选择一个正确的，并把所选答案的字母填入答题卡对应栏内。
31．若要使用户不能修改文本框TextBox1中的内容，应修改( )属性。
A、Locked B、MultiLine C、 PassWordChar D、 ScrollBar
32．为了在按下ESC键时执行某个命令按扭的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是( )。
A、Value B、 Default C、 Cancel D、 Enabled
33．下列关于事件的叙述中不正确的是( )。
A、事件是系统预先为对象定义的能被对象认别的动作
B、事件可分为用户事件与系统事件两类
C、Visual Basic为每一个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写
D、Visual Basic中所有对象的默认事件都是Click
34．以下不能要“工程资源管理器”窗口中列出的文件类型是( )。
A、 BAS B、 RES C、FRM D、OCX
35．下面的( )控件不具备Caption属性。
A、标签 B、文本框 C、命令按钮 D、单选按钮
36．执行以下程序段后，变量c$的值为( )。
a$=“Visual Basic Programing”
b$=“Quick”
c$=b$ & Ucase$(Mid$(a$,7,6) & Right$(a$,11)
A、Visual BASIC Programing B、Quick Basic Programing
C、QUICK Basic Programing D、Quick BASIC Programing
37．在过程定义中用( )表示形参的传址。
A、ByRef B、Val C、By Val D、Value
38．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置( )。
A、Text属性值为“#” B、Caption属性值为“#”
C、Password属性值为空 D、Passwordchar属性值为“#”
39．为了清除PictureBox控件Picture1中的图形，下列方法正确的是( )。
A、Picture1.Picture=”blank.bmp”
B、Picture1.Picture=””
C、Picture1.Picture=LoadPicture(”blank.bpm”)
D、Picture1.Picture=”LoadPicture(””)
40．在Visual Basic默认状态下，用下面语句定义的数组的元素个数是( )。
Dim A(-4 To 2)As Integer
A、6 B、
41．在Visual Basic中，通过( )属性来设置字体的颜色。
A、ShowColor B、ClipControl C、BackColor D、FontColor
42．下列不是Visual Basic文件的是( )。
A、*.frm文件 B、*.cls文件 C、*.bas文件 D、*.dbc文件
43．可视化程序设计强调的是( )。
A、过程的模块化 B、对象的模块化 C、控件的模块化 D、程序的模块化
44．在Visual Basic中，一个语句行内写多条语句时，语句之间应该用( )。
A、逗号 B、顿号 C、分号 D、冒号
45．命令cls的功能是( )。
A、清0 B、清屏 C、设置初值0 D、没置初值1
46．下列各组中，两个函数功能完全相反的是( )。
A、Str(x) 和Val (x) B、Sin(x)和Cos (x)
C、LTrim(x)和RTrim(x) D、Timer(x)和Time(x)
47．假定窗体上有一个文本框，名为Txt1,为了使该文本框的内容能够换行，并且具有水平和垂直滚动条，正确的属性设置为( )。
A、Txt1.Multiline=True B、Txt1.Multiline=True
Txt1.ScrollBars=0 Txt1.ScrollBars=3
C、Txt1.Multiline=False D、Txt1.Multiline= False
Txt1.ScrollBars=0 Txt1.ScrollBars=3
48．下列变量名中，不合法的是( )。
A、City B、Class_
49．设a=3,b=5则以下表达式值为真的是( )。
A、a>=b and b>10 B、(a>b) or (b>0)
C、(a<0) Eqv (b>0) D、(-3+5>a)And (b>0)
50．设有语句x=InputBox(“输入数值”，”示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是( )。
A、在Input Box对话框标题栏中显示的是“示例”
B、变量x的值是数值10
C、变量x的值是字符”
D、0是默认值
51．下面程序运行时，内层循环的循环总次数是( )。
For M=1 To 3
For N=0 To M-1
Next N
Next M
A、3 B、
52．下列程序的执行结果为( )。
a=100
b=50
If a<>b Then a=a+b Else b=a-b
Print a, b
A、100 100 B、150
53．以下能够触发文本框Change事件的操作是( )。
A、改变文本框的内容 B、设置文本框的焦点
C、文本框失去焦点 D、文本框获得焦点
54．当窗体被加载时运行，发生的事件是( )。
A、Resize B、Paint C、Load D、Unload
55．以下关于菜单的叙述中，错误的是( )。
A、在程序运行过程中可以增加或减少菜单项
B、如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项
C、弹出式菜单在菜单编辑器中设计
D、利用控件数组可以实现菜单项的增加或减少
试题三、程序阅读选择题（每个选项2分，共30分）。考生从提供的答案中选择一个正确的，并把所选答案的字母填入答题卡对应栏内。
1．对窗体编写如下事件过程：
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”
End Sub
程序运行后，如果单击鼠标右键，则输出结果为( )。
(56) A、BBBBB B、AAAAA C、AAAAA D、BBBBB
AAAAA BBBBB
2．以下程序的功能是：找出能够被13、23、43除，余数分别为1、2、3的最小的两个整数。阅读程序并填空。
Private Sub Command1_Click ()
Dim m (57) Integer, n As Integer
M=0
N=43+3
(58)
N=n+1
If (59) Then
Print n
M=m+1
End If
Loop (60)
End Sub
(57) A、As B、At C、In D、On
(58) A、Do B、For C、1： D、Repeat
(59) A、n Mod 13=1 Or Mod23=2 Or n Mod 43=3
B、n Mod 13=1 And Mod23=2 And n Mod 43=3
C、n%13=1 Or n%23=2 Or n%43=3
D、n%13=1 And n%23=2 And n%43=3
(60) A、Until m<2 B、Until m<=
3．下列程序中，内层循环执行了( )次。
Dim intsum As Integer
Dim i As Integer
Dim j As Integer
For i=1 To 17 Step2
For j=1 To 30 Step2
Intsum=intsum+j
If intsum >20 Then Exit Sub
Next j
Next i
(61) A、11 B、
4．以下程序的功能是：建立一个8×8的矩阵，该矩阵的两条对角线上的元素都为1，其余元素都为0。阅读程序并填空。
Option Base 1
Private Sub Form_Click( )
Dim s(8,8) As Integer
(62)
Do While a<=8
b=1
Do While (63)
If a=b Or a=9-b
Then s(a,b)=1
Else (64)
End If
Print Tab (b*3); (65)
(66)
Loop
A=a+1
(67)
(62) A、a=0 B、a=
(63) A、b<=8 B、b>=
(64) A、a=1 B、b=
(65) A、s B、s ; C、s(a,b) D、s(a,b) ;
(66) A、b=b+1 B、a=a+
(67) A、Loop Until B、Loop C、Next D、Until
5．下面程序的功能是把数组B中的7个数逆序存放(即排列为24，23，19，17，15，13，11)。为实现此功能，请在( )处选择正确答案将程序完成。
Dim B As Variant
B=Array(11, 13, 15, 17, 19, 23, 24)
For i=0 To (68)
tmp =B(i)
(69)
(70)
Next
(68) A、UBound(B) B、2
C、UBound(B)-2 D、UBound(B)-1
(69) A、B(i)=B(UBound(B)-i) B、B(i)=B(UBound(B))
C、B(i-1)=B(UBound(B)-i) D、B(i-1)=B(UBound(B))
(70) A、B(UBound(B))=tmp B、B(UBound(B)-i)=B(i)
C、B(UBound(B)-i)= tmp D、B(UBound(B))=B(i)
试题四、综合应用题（15分）。考生把答案写在答卷纸对应栏内。
编程实现将任意的十进制数转换成二进制数。程序窗口如下图所示，要求在第一个文本框中输入一个址进制数，然后用“转换”按钮实现将址进制数转换成二进制数，并在第二个文本框中输出转换后的结果，再用“清空”按钮实现重新开始输入。试写出这两个命令按钮的Visual Basic 代码，完成程序的要求。(注：文本框名称从上到下依次为TxtNum ,TxtResult ,命令按钮由上到下依次为CmdConvert , CmdClear)。
