VB模拟试卷

计算机等级考试二级VB模拟考试试卷(一)
班级 学号 姓名
说明：1．应将全部答案写在答卷纸对应的题号处；否则作无效处理；
2．编程题应写明题号，如答卷纸不够，请写在背面，不用添卷纸；
3．考试完后，试卷及答卷都应一并交回。不能将试卷带出考场；
4．考试时间100分钟。
一、计算机基础题（共15分）
（一）单项选择题（10分）
按对应的ASCII码比较，正确的说法是（ ）
（A）a比b大 （B）a比A大 （C）9比D大 （D）a与A相等
以下不同数制转换中，等式能成立的为（ ）
（A）1001110101B=4721O （B）10D=1010O
（C）241D=1100001B （D）13AH=314D
在微型计算机的下列各存储部件中读写信息，读写速度最快的是（ ）。
（A）硬盘 （B）软盘 （C）内存储器 （D）光盘
在网络方式中欲打开其它计算机中的文档时，由地址的完整格式是（ ）
（A）\\计算机名\路径名\文档名 （B）文档名\路径名\计算机名
（C）\计算机名\路径名\文档名 （D）计算机名 路径名 文档名
在FrontPage2000中，若新建了一个有3个框架的网页，并为每个框架新建了初始网页，那么在保存该网页时，将会产生（ ）个文件。
（A）1 （B）2 （C）3 （D）4
Word2000中，不能在标尺上完成的操作是（ ）
（A）设置页边距 （B）设置段间距 （C）首行缩进 （D）调节表格列宽
关于计算机网络，下列说法正确的是（ ）
（A）在Internet上，每一个IP地址只能对应一个域名地址，两者是一一对应的。
（B）计算机不但能够共享的网上的数据资源和软件资源，还可以共享硬件资源
（C）电子邮件发送成功后，若收件人还没有接收邮件，该邮件将会自动退回给发件人。
（D）FTP 的含义是统一资源定位器
在Excel2000中，用户做了“复制”操作后，可以进行“选择性粘贴”，下列不能作为“选择性粘贴”的项目的是（ ）
（A）公式 （B）批注 （C）格式 （D）行高
关于Windows2000下列说法正确的是（ ）
（A）删除快捷方式，不会影响应用程序本身；而删除应用程序，则会把关联到它的所以快捷方式都一并删除。
（B）若在“我的电脑”中搜索“a .txt”，就可以找出所有以a开头的文本文件。
（C）资源管理器右窗格中的显示方式有：大图标、小图标、列表、详细资料和缩略图
（D）若菜单太长，有时会把部分菜单项隐藏起来，这时菜单中就会出现符号“…”。
CPU中的运算器能同时处理的二进制数据的位数称为计算机的（ ）
（A）字长 （B）字节 （C）主频 （D）容量
（二）双选题（5分）
下列哪种语言属于计算机程序设计高级语言：（ ）
（A）Java （B）Linux （C）BASIC （D）汇编语言
下列内存空间的地址段中，那些表示的是2K的存储空间：（ ）
（A）00H~7FFH （B）101H~300H （C）300H~5FFH （D）201H~0A00H
下列属于Windows2000“控制面板”的项目有：（ ）
（A）网上邻居 （B）自动更新 （C）区域选项 （D）输入法
为了显示与对话框有关的帮助信息，可利用（ ）
双击待求助项，出现“这是什么？” 菜单项，再选择该菜单项
单击“？”按钮，再单击待求助选项
右击待求助选项，出现“这是什么？”菜单项，再选择该菜单项
双击待求助选项，再右击待求助选项
下列属于OFFICE2000的组件的是：（ ）
（A）Notepad （B）OutLook （C）Intenet Explorer （D）Access
二、VB程序设计（共85分）
（一）判断题（10分，每题1分）
1．在VB中，一个变量若没有定义直接使用，系统默认该变量为非静态局部变量。
2．设置窗体的FontSize属性，可以改变窗体标题栏的字体大小。
3．若在“通用声明”处加语句Option Explicit，则在定义数组时，必须注明下界和上界。
4．若变量N己定义的变量，并有确定的值，则执行定义数组语句Dim a(N) As Integer，程序不会出错。
5．For 循环语句正常结束（即不是通过Exit For语句或强制中断），退出循环后，其循环变量的值一定大于“终值”，并等于“终值”+“步长”。
6．有一组名为cmdOk的控件数组，他们是命令按钮，则他们共用同一个Click事件。
7．如果在定义过程时，一个形参使用传地址方式说明的，则调用过程时与之对应的实参有可能按地址方式传递，也有可能按数值方式传递。
8．执行了语句Unload Form1后，使Form1窗体不显示，但不从内存中删除窗体，可以引用Form1中的控件及各种属性。
9．目录列表框和文件列表框都有Path属性，当改变它们的Path属性时，都会触发Change事件。
10．当焦点在文本框Text1中时，按下并释放键盘上的向左方向键，则按先后顺序触发了Text1的KeyDown事件、KeyPress事件和KeyUp事件。
（二）、选择题（20分，每题2分）
1．在VB中，下列表达式合法的是：（ ）
（A）|a| <= |b+2| （B）3/4*π*r*r*r
（C）x<=52．设Picture1.Scaleleft = -100，Picture1.Scaletop = 250, Picture1.Scalewidth = 500, Picture1.Scaleheight = - 500，则Picture1右上角的坐标是：（ ）
（A）(400, 250) （B）(400, -250) （C）(500, -500) （D）(-100, 250)
CommonDialog控件在使用（ ）方法之前，必须先设置Flags属性，否则会发生错误。
（A）ShowOpen （B）ShowSave （C）ShowColor （D）ShowFont
4．在下列关于菜单的说法中，正确的是__________。
分隔符作为一个菜单项，与其他菜单项一样，也可被用户选择
在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰 色，不能被用户选择
运行时要显示的菜单项，必需全部在设计状态时用菜单编辑器设计好
除了Click事件之外，菜单项还能响应其它的如DblClick等事件
5．哪个程序段不能分别正确显示1！、2！、3！、4！的值 。
（A）For i=1 To 4 （B）For i=1 To 4
n=1 For j=1 To i
For j=1 To i n=1
n=n*j n=n*j
Next j Next j
Print n Print n
Next i Next i
（C） n=1 （D） n=1：j=1
For j=1 To 4 Do While j<=4
n=n*j n=n*j
Print n Print n
Next j j=j+1
Loop
6．执行了下面的程序后，列表框中的数据项为__________。
Sub Form_Click()
Dim I As Integer
For I =1 to 6
List1.AddItem I
Next I
For I =0 to 2
List1.Removeltem I
Next I
End sub
（A） 1，5，6 （B） 2，4，6 （C） 4，5，6 （D） 1，3，5
7．下列叙述中，不正确的是（ ）
（A）在过程中用Dim定义的变量是局部变量，其他过程不可以访问它
（B）在过程中用Static定义的变量是静态变量，也是局部变量，其他过程不可以访问它
（C）在“通用声明”段中用Private定义的变量是窗体/模块级变量，可被本模块的任何过程访问，其他模块的过程不可以访问它
（D）在“通用声明”段中用Dim定义的变量是全局变量，可被本应用程序的任何过程访问
8．要改变Label标签中文本的颜色，应设置它的（ ）属性。
（A）Color （B）ForeColor （C）BackColor （D）FontColor
9．下列那组语句可以实现在窗体上画一个蓝边红心的矩形：（ ）
FillStyle=0: FillColor=vbRed
Line (50, 50) - (100,300), vbBlue, BF
illStyle=0
Line(50, 50) - (100,300), vbBlue, vbRed, BF
（C）FillStyle=0: FillColor=vbRed
Line (50, 50) - (100,300), vbBlue, B
（D）FillStyle=0: FillColor=vbBlue
Line (50, 50) - (100,300), vbRed, B
10．求两个数中的最大数，下列语句不正确的是__________。
Max = x
If y > x Then Max = y
If x > y Then Max = x Else Max = y
If x < y Then Max = y Else Max = x
If y > x Then Max = y
Max = x
（三）程序填空题（12分，每空2分）
1．窗体上只有一个命令按钮，单击命令按钮，从键盘输入一个字符串，将字符串中的字符按其ASCII码值由小到大自左到右重新组合，并把重组后的字符串写到文件C:\MyDir\Letter.txt中。
Private Sub Command1_Click()
Dim a() As String*1 , st As String , n As Integer
st=InputBox("输入字符串：")
n=Len(st)
ReDim a(1 to n)
For i=1 to n
a(i)= ____（1）____
Next i
For i=1 to n-1
p=i
For j=i+1 to n
If ____（2）____ Then p=j
Next j
t = a(i) : a(i) = a(p) : a(p) = t
Next I
____（3）____
For i=1 to n-1
Print #1, a(i);
Next I
Close #1
End Sub
(1) (A) Left(st, i) (B) Mid(st, i, 1) (C) Right(st, i) (D) Asc(st, i)
(2) (A) a(j)Asc(a(p))
(C) a(i)(3) (A) fn="C:\MyDir\Letter.txt" For Output as #1
(B) fn="C:\MyDir\Letter.txt": Open "fn" For Output as #1
(C) Open "C:\MyDir\Letter.txt" For Input as #1
(D) fn="C:\MyDir\Letter.txt": Open "fn" For Append as #1
2．设有一个组合框（cbox）,其Style属性设计为0,下面的程序是处理当用户在其文本区输入文本，按回车键后，如果组合框中没有的该输入的项目，则将其添加到组合框中。
Sub cbox_KeyPress(KeyAscii AsInetger)
Dim flag As Boolean
If KeyAscii=13 Then
Flag=False
For I=0 To cbox.ListCount-1
If (4) Then
Flag=True
Exit For
EndIf
Next i
If (5) Then
(6)
Else
Msgbox(“组合框中已有该项目”)
End If
End If
End Sub
(4) (A) cbox.Text=cbox.List(i) (B) (A) cbox.Text<>cbox.List(i)
(C) cbox.selected(i) (D) cbox.Text<>””
(5) (A) Flag (B) Not Flag
(C) I>cbox.ListCount (D) Flag=True
(6) (A) cbox.AddItem cbox.Text (B) cbox.AddItem cbox.list(i)
(C) cbox.AddItem (D) cbox.AddItem Text
（四）程序阅读题（20分，每题4分）
1．程序1
Private Function ff(a As Integer) As Integer
Static c As Integer
Dim b As Integer
b = b + 1
c = c + 1
ff = a + b + c
End Function
Private Sub Form_Click()
Dim a As Integer, I As Integer
a = 2
For I = 1 To 3
Print ff(a);
Next I
End Sub
单击窗体输出的结果为：________。
2．程序2
Private Sub Form_click()
Dim idec As Integer, i As Integer
Dim iDecR(16) As Integer
Dim strDecR As String
idec = Val(InputBox("输入数据idec= "))
i = 0
Do While idec <> 0
iDecR(i) = idec Mod 2
idec = idec \ 2
i = i + 1
Loop
strDecR = ""
i = i - 1
Do While i >= 0
strDecR = strDecR + Trim(str(iDecR(i)))
i = i - 1
Loop
Print strDecR
End Sub
程序运行时单击窗体，由键盘输入一个整数22，请写出窗体上的输出结果。
程序3
Private Sub Form_Click()
Dim a, i%, n%,t%
n=InputBox("Enter N= ")
a=array(1,2,3,4,5,6,7,8,9,10)
For i =1 To n\2
t=a(i) : a(i)=a(n-i+1) : a(n-i+1)=t
Next I
For i=0 to Ubound(a)
Print a(i);
Next I
Print
End Sub
程序运行后，两次单击窗体，分别输入8和6 ，则输出结果为：________。
4．程序4
Dim x As Integer, y As Integer, z As Integer
Private Sub Form_Click()
Dim x As Integer
x = 1: y = 2: z = 3
Call FunA(y)
z = FunB(x)
Print x, y, z
End Sub
Public Sub FunA(z As Integer)
x = x + z
z = x * z
End Sub
Public Function FunB(ByVal y As Integer) As Integer
y = z + 1
FunB = x + y
End Function
单击窗体后，窗体上输出的结果为：________。
5．程序5
Private Sub Text1_KeyPress(KeyAscii As Integer)
k% = KeyAscii
c$ = Chr(k)
If c >= “A” And c <= “Z” Then
k = k + 5
If k > Asc(“Z”) Then k = k – 26
ElseIf c >= “a” And c <= “z” Then
k = k + 5
If k > Asc(“z”) Then k = k – 26
End If
Text2.Text = Text2.Text + Chr(k)
End Sub
程序运行后，在文本框Text1输入“rAb,X4y5”，文本框Text2中显示的内容是什么？
（五）程序设计题（25分，题1为5分）
1．写函数g(x)，求当-1≤x≤1时，，(精度为eps)，当x>1或x<-1时，g(x)=0。
Public Function g(x As Single，eps As Single) As Single
… ’ 在此处编写代码
End Function
2．编写一程序，从键盘输入50个实数，计算出平均值，将平均值和大于平均值的数写入到顺序文件a1.txt中。
3．设计一个倒计时的程序，要求：窗体（Form1）上有一个标签（Label1），一个时钟控件（Timer1）和一个按钮（Command1）。单击“设置”按钮，用输入对话框输入要计时的秒数，开始倒计时。计时过程中，“设置”按钮不可用。计时结束，显示“时间到！”，“设置”按钮又变成可用。计时开始、计时过程和时间到的界面分别如下图所示。（假设，界面设计时，没有在属性窗口做任何设置）