vb笔试模拟试题(九套).doc

vb笔试模拟试题(九套)

———————————————————————————————— 作者：
———————————————————————————————— 日期：

82

个人收集整理 勿做商业用途
附录1 Visual Basic笔试模拟试题（1～6套)
笔试模拟试题 1
第一部分 软件技术基础(共15分）
一、是非判断题（每小题1分，共10分)（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B)
1．在操作系统中,作业调度和进程调度没有区别。 （ ）
2．数据类型是具有共同属性的一类变量的抽象。 ( ）
3．瀑布模型中需求分析的主要工作是确定要开发的软件做什么. （ ）
4．软件设计阶段产生的最重要的文档之一是概要设计说明书。 （ )
5．在进行插入排序时，其数据比较次数与数据的初始排列无关. ( ）
6．软件测试不是为了证明软件的正确性，而是立足于软件有错误而进行的。 （ ）
7．线性表若采用链式存储表示时所有结点之间的存储单元地址必须连续。 （ ）
8．中断处理通常是按中断优先级响应和进行中断的。 （ )
9．缓冲池可作为CPU与I/O设备之间信息传输的集散地。 （ ）
10．进程调度是根据一定的调度算法，从等待队列中挑选出合适的进程. ( )
二、选择题(每小题1分，共5分）
1．把高级语言的源程序翻译成二进制代码的过程称为: （ A )
（A）编译 （B）连接 （C）运行 (D）重定位
2．把逻辑地址转变为内存的物理地址的过程称作: （ D ）
（A）地址分配 （B）地址连接
（C)地址调用 （D）地址变换
3．白盒法又称为逻辑覆盖法，主要用于: （ D ）
（A)功能测试 （B)系统测试
（C)α测试 （D）单元测试
4．在操作系统中，进程最基本的特征是: ( A ）
（A）动态性和并发性 （B)顺序性和可再现性
(C）与程序的对应性 （D）执行过程的封闭性
5．以下哪一项不是软件危机的表现形式。 ( C ）
（A）成本高 　 （B)生产率低
（C）技术发展快 （D）质量得不到保证
第二部分 Visual Basic语言程序设计(共85分)
一、单项选择题（每小题1分，共10分）
1。 数学表达式｜(2x+3y）sinz｜的VB表达式为（ C ）。
（A）| （ （2*x+3*y）*sin(z） )| （B）Abs( (2x+3y)*sin（z） ）
（C）Abs（ (2＊x+3＊y）＊sin（z) ） （D）Abs( （2*x+3＊y）＊sinz )
2。 在下列VB运算符中，运算优先级最低的是（ A )。
（A）NOT (B）〉= (C)+ （D）MOD
3. 按照VB默认规定，以下对数组dim a（3，5）中数组元素引用错误的是（ C )。
（A)a（0，0） （B）a(2， 2*2）
(C）a(3,6） （D)a(2-2， 5—4）
4。 针对语句“If i=1 Then j=1”,下列说法中正确的是（ C ）。
（A)i=1和j=1均为赋值语句
（B）i=1和j=l均为关系表达式
（C)i=1为关系表达式，j=1为赋值语句
（D）i=1为赋值语句，j=1为关系表达式
5。 如果要改变窗体的标题，需要设置窗体对象的（ B ）属性。
(A）Name （B)Caption
（C)BackColor （D）BorderStyle
6. 将组合框设置为简单组合框(Simple Combo），应将其Style属性设置为( B ）。
（A)0 （B）1 （C）2 （D）3
7. 在VB中，要将一个窗体forml从内存中释放，应使用语句（ B ）。
（A）forml．hide （B)unload forml
（C）forml．show （D)load forml
8. 在VB中，要禁止命令按钮对事件作出反映并使按钮变灰，应设置( B )属性.
（A）Caption (B）Enabled
（C）Visible （D）Name
9. 下列方法中，（ A )不能实现程序的不同过程之间的数据传递。
(A）局部变量 （B）全局变量
（C）窗体或模块级变量 (D）将形参与实参结合
10。 以下关于文件的叙述中，不正确的是（ D ）。
(A）VB文件根据数据存取方式不同,可分为顺序文件和随机文件。
（B）顺序文件的访问只能按记录顺序访问，不能随机访问。
（C）随机文件只要给出记录号就能读取该记录。
（D）随机文件的每个记录长度可以不相同.
二、阅读分析程序(每个选择3分，共45分）
1. 程序如下：
0ption Explicit
Private Sub Command1_Click(）
Dim n As Integer,s As Integer
n = 1
S = 1
Do While n＜6
S = S + n
If n＜=2 Then n=n*2
If n＜=4 Then n=n＊2
Loop
Print s
End Sub
（1）程序运行中，语句“S=S+n"的执行次数是（ B ）.
（A）1 （B)2 （C)4 （D)6
（2）程序运行后输出的数据结果是( D )。
（A）1 （B）2 （C）4 (D）6
（3)如果将语句“Do white n＜6”改为“Do While n＜10”，由程序运行后输出的结果是（ D ）。
（A）2 （B)4 (C）6 （D）以上都不对
2。 程序如下：
Option Explicit
Option Base 1
Private Sub Commandl_Click（）
Dim A（2,2) As Integer，B（2，2） As Integer,C(2，2）As Integer
Dim n As Integer， m As Integer, S As Integer， k As Integer
A（1，1) =3：A（1，2） =1：A （2,1）=-2:A（2，2）=5
B（1,1） =2：B（1，2)=-3：B（2,1）=6：B(2,2）=1
For n=1 TO 2
For m=1 TO 2
S=0
For k=1 TO 2
S=S+A(n,k)＊B（k,m）
C（n，m）= S
Next k
Next m
Next n
For n=1 TO 2
For m=1 TO 2
Print C（n,m）；Spc（3）;
Next m
Print
Next n
End Sub
（1）以下关于语句“Option Base 1”,正确的说法是（ C ）.
（A）其功能是声明数组下标的默认上界
（B）其功能是定义动态数组
（C）其功能是声明数组下标的默认下界
（D）其功能是定义静态数组
（2）以下关于语句“Option Explicit"，正确的说法是( D )。
（A）表明此模块没有通用过程
（B)表明此模块的通用过程不能被其他模块调用
（C）表明此模块变量不声明可以直接使用
（D)表明此模块变量必须先声明后使用
（3）程序运行完成后,Print C（n,m）语句输出的结果是（ D ）。
（A）0 -16 （B）12 26 （C)26 11 （D）12 -8
—13 11 —8 11 12 —8 26 11
3. 程序如下：
Private Sub Command1_Click（）
Dim n As Integer
n = InputBox（”请输入一个大于1的整数：”)
t =—1
s= 1
For i = 2 To n
s = s + fact（i） ＊ t
L1: t = -t
Next i
Print ”s=”; s
End Sub
Function fact （n)
f=1
For i = 2 To n
f= f＊ i
Next i
fact = f
End Function
(1）以上程序的功能是（ D ）.
（A）计算S=1+2+3+4+5+……+n
(B）计算S=1—22+33—44+55……+（—1）nn-1nn
(C）计算S=l+2！+3！+4!+5!+……+n！
（D）计算S=1—2!+3！-4!+5！+……+（—1)n—1n！
（2）如果在输入框中输入整数3，则程序运行的结果是（ A ).
（A）5 （B）7 （C）9 （D)24
（3）如果取消L1语句并在输入框中输入整数3，则程序运行的结果是（ D ）。
（A）5 （B）7 （C）9 （D）-7
4。 在窗体中添加一个命令按钮Commandl和一个文本框Textl，然后编写如下程序:
Dim str As String
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer， X As
Single, Y As Single）
str = "”
If Button = 2 Then
str = str + ”123”
End If
Text1 = str
End Sub
Private Sub Commandl_MouseUp(Button As Integer, Shift As Integer, X As
Single， Y As Single）
str = str + ”789"
Text1 = str
End Sub
（1）程序运行后,在命令按钮上单击鼠标左键，则在Text1中显示的内容是 （ B ）。
（A)123 （B)789 （C)123789 (D）789123
（2）程序运行后，在命令按钮上单击鼠标右键，则在Textl中显示的内容是 （ C ）.
（A）123 (B）789 （C)123789 （D）789123
（3）程序运行后，将焦点移到命令按钮上并按回车键，则程序运行结果( D ).
(A）程序运行结果与单击鼠标左键相同
（B）程序运行结果与双击鼠标左键相同
（C）程序运行结果与单击鼠标右键相同
(D）以上说法都不对
5. 程序如下：假定字符串lw中只含有字符和空格（空格用来分隔不同的单词):
Public Function estw(lw As String） As String
Dim W As String， L As String, S As String， fL As String
Dim a As Integer， b As Integer, c As Integer， n As Integer
S = lw + ” "
b = Len(S）
fL = ””
a = 0： c = 0： n = 0: W = ””
For i = 1 To b
L = Mid（S, i, 1）
If L <〉 ” "Then
W = W + L
c = c + 1
ElseIf fL <> ” ” Then
If c > a Then
a = c： lw = W
End If
c = 0: W =""： n = n + 1
End If
fL = L
Next i
Print n， a
estw = lw
End Function
（1）该函数的返回值为（ B ）.
（A）找出原字符串中最短的单词 （B）找出原字符串中最长的单词
(C）找出原字符串中最后的单词 （D）找出原字符串中第一个单词
（2）假设字符串1w为：”I am a student”,n的结果是（ B ）。
(A)1 （B）4 （C)7 （D)11
（3）假设字符串1w为：”I am a student”，a的结果是( C ）。
(A)1 （B）4 （C）7 (D）11
三、程序填空（每空2分，共30分）
1. 已知程序的输出结果如下，请完善程序。

图1
Private Sub Commandl_Click（）
For i = 1 To 5
If ① i mod 2=0 Then
S=”#"
Else
S =”＊”
End If
Print Tab（20 — i）；
For j = 1 TO ② 2＊i—1
Print S;
Next j
Print
Next i
End Sub
2。 下面程序的功能是用递归算法计算斐波拉齐数列
1 1 2 3 5 8 13 21 34 55 89 144 ……
的前20项，并按每行5个数据输出，请完善程序。

图2
Private Sub Form_Click(）
Dim i As Integer, j As Integer
Cls
For i=0 To 19
j=j+1
If i Mod 5=0 Then
Print
j=0
End If
Print Tab(j * 10）； ① fact（i）
Next i
End Sub
Private Function fact(n As Integer）
If ② Then
fact = 1
Else
fact ③
End If
End Function
3．以下程序的功能是：随机产生10个字符串（每个字符串由l～8个小写字母组成），并存放于数组str中,再依次输出这10个字符串并显示其长度，请完善程序。

图 3
Option Base 1
Private Sub Form_Click（）
Randomize Timer
Dim str（10） As String
Dim i As Integer, j As Integer， n As Integer
For i = 1 To 10
n=Int（1 + Rnd * 8)
For j = ①
str(i） = str(i) + Chr（Int( ② ）)
Next j
Next i
For i= 1 To 10
Print str（i）, ③
Next i
End Sub
4。 以下程序的功能是：计算一元二次方程“ax2+bx+c=0”的两个实根，请完善程序.
Dim x1 As Single, x2 As Single
Dim a As Single， b As Single， c As Single
Private Sub Form_Click()
a = 0.5 : b = 6。18 : c = 1。45
①
Print ”root l =” ; x1
Print ”root 2 =” ； x2
End Sub
Sub quad （ ）
p=-b/（2 ＊a)
q= ②
x1 =p+q
x2 = ③
End Sub
5。 下面程序功能如下:运行时，先在文本框中输入学号（xh）、姓名（xm）、年龄（n1）、成绩（cj）等数据,再单击Command1（写入）按钮,则将各数据添加到已打开的随机文件（abc．dat)的末端，同时，清除各文本框中的内容并把输入焦点移到学号（xh）文本框中位置，以待下次输入。单击command2（结束）按钮，则结束程序，请完善程序。
图 4
Dim last As Integer
Private ①
xh As String * 10
xm As String * 6
nl As Integer
cj As Single
End Type
Private da As data
Private Sub Command1_Click（）
Dim i As Integer, last As Integer
last = last + LOF(1） / Len（da） + 1
da.xh = Text1（0).Text
da.xm = Text1(1）。Text
da。nl = Val(Text1(2)。 Text)
da.cj = Val（Text1（3）.Text)
②
For i = 0 To 3
Text1（i）. Text = ""
Next i
③
End Sub
Private Sub Command2_Click(）
④
End
End Sub
Private Sub Form_Initialize（)
Open “abc。dat" For Random As #1 Len = Len （da）
End Sub
笔试模拟试题 2
第一部分 软件技术基础
一、是非判断题（每小题1分，共10分)
(判断下列各题是否正确,如正确，在客观答题纸上对应编号选A，否则选B）
1．顺序表和线性链表的物理存贮形式都是顺序存贮。 （ ）
2．数据类型是某种程序设计语言中已实现的数据结构。 （ )
3．如果通过软件测试没有发现错误，则说明软件是完全正确的. （ ）
4．快速原型模型可以有效地适应用户需求的动态变化。 （ ）
5．不同进程之间的动作在时间上不能重叠。 ( ）
6．分区式存储管理能够进行存储空间共享. ( ）
7．链接文件和索引文件都可以非连续存放。 （ )
8．中断处理一般分为中断响应和中断处理两个步骤。前者由软件实施，后者
主要由硬件实施。 （ ）
9．在C++语言中，“重载”表达了最简单的多态性。 （ ）
10．进程调度根据一定的调度算法，从等待队列中挑选出合适的进程。 ( ）
二、选择题（每小题1分，共5分)
1．在数据结构中，一个存储结点存放一个（ ）。
（A）数据项 （B）数据元素
（C）数据结构 （D）数据类型
2．把逻辑地址转变为内存的物理地址的过程称作（ ）。
（A）编译 （B)连接
(C)运行 （D)重定位
3．SPOOLing技术可以实现设备的（ )分配。
（A）虚拟 （B）共享
（C）独占 （D）物理
4．允许用户把若干作业提交计算机系统集中处理的操作系统称为( ）。
（A）分时操作系统 （B)实时操作系统
(C）网络操作系统 （D）批处理操作系统
5．进程从运行状态进入就绪状态的原因可能是（ ）。
（A）被选中占有处理机 （B）时间片用完
（C）等待的事件已发生 (D)等待某一事件
第二部分 Visual Basic语言程序设计（共85分）
一、单项选择题（1分/题，共10分）
1．用于声明全局变量的关键字是（ ）。
（A）Static (B）Private (C）Public （D）Dim
2．设a=20，b=15，c=6，执行语句Print a>b>c后，窗体上显示的是( ）。
（A）True （B）False (C）20 （D）出错信息
3．下列语句中a，b,x，y都是整型变量，则只有（ ）语法格式是正确的。
（A）y=（a—1）(b-1) (B）if a〉l not（or b〉3）then x=4
（C）x=4a （D)if a〉b-2*3 then y=a+b
4．表达式4+5*7\8Mod9的值是（ )。
（A)4 （B)5 (C）6 （D)8
5．如果在窗体上已有一个文本框Textl和一个命令按钮Commandl，再编写以下事件：
Private Sub Commandl_ Click（）
x=InputBox(”请输入x”）
y=InputBox（”请输入y”）
Text1。Text=X+y
End Sub
在运行程序时输入20和6，则在文本框Textl中显示的内容是( ）.
（A)26 （B）206 (C）620 （D）出错
6．确定一个窗体大小的属性是（ ）。
（A)Width和Height （B）Width和Top
（C）Top和Left (D）Top和Height
7．在程序运行时不能改变属性的是（ ）。
（A）name （B）caption （C）visible （D）enabled
w8．下列哪个方法能将项目添加到ComboBox控件中（ ）。
（A）AddItem (B）List （C)AddNew （D）Move
9．以下关于变量的叙述中不正确的是（ ）。
（A)在不同的函数或过程中可以使用DIM定义变量名相同的变量.
（B）在forml窗体中定义的模块级变量public a as integer可以在form2窗体中以forml．a的方式使用。
（C)全局变量既能在标准模块中定义,又能在窗体模块中定义。
(D)VB的变量分为局部变量，模块变量，和全局变量三种。
10．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为( ）。
（A）Get文件号，记录号，变量号
(B)Get文件号,变量号，记录号
（C)Put文件号，变量号,记录号
（D)Put文件号,记录号,变量号
二、程序阅读（每个选择3分，共45分）
1．程序代码如下:
Private Sub Commandl_Click（）
n=Val（Text1)
s=0
k=0
For i=1 To n
k=k+i
s=s+k
Nexti
Label1．Caption=Str（s）
End Sub
(1）如果在Textl中输入4，并单击“Commandl”按钮，则输出的结果是（ ）.
（A）4 （B）10 （C)16 （D）20
（2）在该程序的窗体中至少定义了（ ）个控件。
（A）2 （B）3 （C）4 （D）5
(3)上述程序的功能是：（ ).
（A）计算1+2+3+4+5+……+n
（B)计算1+(2+2）+（3+3+3)+……+（n+n+n……+n）
(C）计算1+(1+2）十（1+2+3）+……+（1+2+3+……+n）
(D）计算n+n+……+n
2．程序代码如下：
Private Sub Commandl_Click(）
Dim i As Integer
LL: For i=1 to 4
Print fun(i）；
Next i
End Sub
Function fun（n As Integer)
If n=0 Or n=1 Then
Fun=1
Else
Fun=fun（n—1）+fun（n—2）
End If
End Function
（1）单击命令按钮后，程序运行的结果是（ ）。
（A）1 2 3 4 (B）1 2 3 5
（C）1 2 5 7 （D）1 2 5 8
（2)如果将LL处的语句改为For i=1 To 3，则函数fun(）共执行了多少次（ )。
（A)3 （B)5 （C）8 （D）9
3．程序界面如下：

图 1
Dim i％,strS$
Private Sub Commandl_Click()
Dim n％
strS=Text1
For i =0 To List1。ListCount—1
n=InStr(List1．List（i)，strS）
If n<〉0 Then
List1。RemoveItem i
i=i-1
End If
Next i
End Sub
Private Sub Command2_Click0
Dim flag As Boolean
flag=True
strS=Text1
For i=0 To List1.ListCount—1
If strS=List1.List1(i）Then
flag=False
Exit For
End If
Next i
L1： If flag Then List1。AddItem strS
EndSub
（1）以下叙述正确的是（ ）。
（A）变量i、strS是局部变量
（B）变量n存放的是strS在List1.List（i）中出现的位置
(C)comandl是一个控件数组
(D)L1行的语句相当于If flag=false Then Listl．Addltem strS
（2）运行程序时单击commanl后( ）。
（A)将listl中包含字符串“VB”的项目在textl中显示
(B）将“VB”添加在listl中
（C）将listl中的“简明vb”、“VB习题集”、“VB程序设计”删除
（D)将listl中包含字符串“VB”的项目删除
（3）关于comman2的错误描述是( ）。
（A）取消exit for，对程序的运行结果没有任何影响
（B）comman2的作用是将textl中与listl不重复的内容添加到listl最后
（C）单击comman2后将字符串“VB”添加到listl的最后
（D）单击comman2后将字符串“VB”添加到listl的第一项
4．程序代码如下：
Private Sub Form_Click（)
Dim i As Integer，n As Integer
Dim f As Boolean
Open“test。dat”For output As#1
L1：For n=3 To 100 Step 2
f=True
i=2
Do While i〈Int（Sqr(n)）+l And f
If n Mod i=0 Then f=False
i=i+1
Loop
If f Then Write #1，n
Next n
Close#1
End Sub
（1)数据文件“test.dat”为（ ）。
（A)随机文件 （B）二进制文件
（C）顺序文件 （D)都可能
（2）写进数据文件的数据为（ )。
(A）3～100之间的所有素数 （B）3~100之间的所有奇数
（C）3~100之间的所有偶数 （D）A、B、C都不对
5. 程序代码如下：
Private Sub Commandl_Click()
Dim words As String，t As String
Dim n As Integer，x As Integer
Words=inputBox（“请输入字符串：”)
n=Len(words)
t=” ”
For i=1 To n
ch=Mid（words，i，1）
AA: If ch〈>” "Then
If t=” ”Then
x=x+1
t=ch
End If
Else
t=” ”
End If
Next i
Print x
End Sub
（1）此程序的功能是（ )。
(A）统计字符串words的长度 （B）统计字符ch在字符串中出现的次数
(C）统计字符串words中有多少空格 （D）统计字符串words中有多少单词
（2）如果inpubox输入字符串“vb is ok”（不含引号）。则程序运行结果为( ）。　
（A）8 （B)2 (C)3 (D)l
（3)如果将AA处的语句改为If ch=” ”Then， 输入字符串“vb is ok”(不含引号）,则程序运行结果为（ ).
(A)8 （B）2 (C）3 （D）1
6. 阅读下面程序
Private Sub Form_Load(）
Form1。Caption=”——--—用户信息—-—-—“
Timer1.Interval=500
Text1.Text="”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer）
X =（Chr（KeyAscii）)
Select Case X
Case”1”:Form1.FontSize=12：Print “欢迎使用VB6。0"
Case”2”：Form1。Picture=LoadPicture(“d：\ll\IMG_0004.JPG”）
Case"3”：
J=InputBox(“请输入姓名”,”输入”）
Form1.FontSize=11：Print ”我的姓名是：” & j
End Select
End Sub
Private Sub Timerl_T