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

附录1 Visual Basic笔试模拟试题（16套）笔试模拟试题 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）BorderStyle6. 将组合框设置为简单组合框（Simple Combo），应将其Style属性设置为（ B ）。（A）0 （B）1 （C）2 （D）37. 在VB中，要将一个窗体forml从内存中释放，应使用语句（ B ）。 （A）formlhide （B）unload forml （C）formlshow （D）load forml 8. 在VB中，要禁止命令按钮对事件作出反映并使按钮变灰，应设置（ B ）属性。 （A）Caption （B）Enabled （C）Visible （D）Name9. 下列方法中，（ 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 n6 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 n6”改为“Do While n10”，由程序运行后输出的结果是（ 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 kNext mNext n For n=1 TO 2 For m=1 TO 2 Print C（n，m）；Spc（3）；Next m PrintNext 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 113. 程序如下：Private Sub Command1_Click（） Dim n As Integer n = InputBox（”请输入一个大于1的整数:”） t =-1 s= 1 For i = 2 To n s = s + fact（i） * tL1: t = -t Next i Print ”s=”; sEnd 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）-74. 在窗体中添加一个命令按钮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 IfText1 = str End Sub Private Sub Commandl_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）str = str + ”789”Text1 = strEnd 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, aestw = 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 5If 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 Sub2. 下面程序的功能是用递归算法计算斐波拉齐数列1 1 2 3 5 8 13 21 34 55 89 144 的前20项，并按每行5个数据输出，请完善程序。图2Private 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 Function3以下程序的功能是：随机产生10个字符串（每个字符串由l8个小写字母组成），并存放于数组str中，再依次输出这10个字符串并显示其长度，请完善程序。图 3Option 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 Sub4. 以下程序的功能是：计算一元二次方程“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 =” ; x2End Sub Sub quad （ ） p=-b/（2 *a） q= x1 =p+q x2 = End Sub5. 下面程序功能如下：运行时，先在文本框中输入学号（xh）、姓名（xm）、年龄（n1）、成绩（cj）等数据，再单击Command1（写入）按钮，则将各数据添加到已打开的随机文件（abcdat）的末端，同时，清除各文本框中的内容并把输入焦点移到学号（xh）文本框中位置，以待下次输入。单击command2（结束）按钮，则结束程序，请完善程序。图 4 Dim last As IntegerPrivate xh As String * 10 xm As String * 6 nl As Integer cj As Single End Type Private da As dataPrivate 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）重定位 3SPOOLing技术可以实现设备的（ ）分配。 （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 abc后，窗体上显示的是（ ）。 （A）True （B）False （C）20 （D）出错信息 3下列语句中a,b,x,y都是整型变量，则只有（ ）语法格式是正确的。 （A）y=（a-1）（b-1） （B）if al not（or b3）then x=4（C）x=4a （D）if ab-2*3 then y=a+b4表达式4+5*78Mod9的值是（ ）。（A）4 （B）5 （C）6 （D）8 5如果在窗体上已有一个文本框Textl和一个命令按钮Commandl，再编写以下事件： Private Sub Commandl_ Click（） x=InputBox(”请输入x”) y=InputBox(”请输入y”) Text1.Text=X+yEnd 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）Move9以下关于变量的叙述中不正确的是（ ）。 （A）在不同的函数或过程中可以使用DIM定义变量名相同的变量。 （B）在forml窗体中定义的模块级变量public a as integer可以在form2窗体中以formla的方式使用。 （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 Label1Caption=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 SubFunction 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）93程序界面如下：图 1Dim i,strS$ Private Sub Commandl_Click() Dim n strS=Text1 For i =0 To List1.ListCount-1 n=InStr(List1List(i)，strS) If n0 Then List1.RemoveItem i i=i-1 End IfNext 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 IfNext 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 ListlAddltem 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 iInt(Sqr(n)+l And f If n Mod i=0 Then f=False i=i+1 Loop If f Then Write #1,n Next nClose#1End Sub （1）数据文件“test.dat”为（ ）。（A）随机文件 （B）二进制文件 （C）顺序文件 （D）都可能 （2）写进数据文件的数据为（ ）。（A）3100之间的所有素数 （B）3100之间的所有奇数（C）3100之间的所有偶数 （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 nch=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）16. 阅读下面程序 Private Sub Form_Load()Form1.Caption=”-用户信息-“ Timer1.Interval=500 Text1.Text=”End SubPrivate 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:llIMG_0004.JPG”) Case”3”: J=InputBox(“请输入姓名”,”输入”) Form1.FontSize=11:Print ”我的姓名是：” & jEnd SelectEnd Sub Private Sub Timerl_Timer() s=Form1.Caption b=Len(s) Form1.Caption=Right(s，b-1)+Left(s,1) End Sub（1）该程序运行时，如果想显示自己的姓名应该做哪些操作（ ）。（A）等待500毫秒后，再输入姓名后回车 （B）点击“输入”按钮，再输入姓名后回车 （C）键盘输入“2”再输入姓名后回车（D）键盘输入“3”再输入姓名后回车 （2）时钟控件Timerl的作用是（ ）。 （A）改变窗体标题栏的长度 （B）实现窗体标题栏文字滚动显示的效果 （C）改变文本框Text1的文字内容（D）实现文本框Text1文字内容滚动显示的效果注意：请把下面“程序填空”中各小题答案写在主观题答题纸上每一个空只填一个语句或一个语句所缺的部分内容三、程序填空（每空2分，共30分）1. 以下程序的功能是：找出100999之间能被3和7同时整除的整数，并显示在列表框中。程序运行结果如图所示：图 2Private Sub Commandl_Click（） Dim i As Integer List1.Clear For i = 100 To 999 If Then End If Next iEnd Sub 2. 以下程序的功能是随机产生10个两位整数，并将其按从小到大的顺序排序后显示输入。 Private Sub Command1_Click（） Dim a（1 To 10）As Integer,temp As Integer For i = 1 To 10 Print a（i）; Next i Print For i= 1 To 9 For To 10 If Then temp = a（i） a（i） = a（j） End If Next j Next i For i = 1 To 10 Print a（i）; Next i Print End Sub3. 以下程序的功能是找出100以内的孪生素数。所谓“孪生素数”是指两个相差为2的素数对，例如（3，5）、（5，7）、（11，13）等。程序运行结果如下：Private Sub Form_Click（） Dim a As Boolean, b As Boolean a= For i = 3 To 100 Step 2 For j = 2 To Sqr（i） If i Mod j = 0 Then Next j If j Sqr（i） Then b = True Else b = False If a And b Then Print i-2; i End If a= Next i End Sub 图 34. 已知程序运行的结果为如下矩阵，请填空。图 4 Private Sub Command1_Click（） Dim a（6, 6） For i = 1 To 6 For j = 1 To 6 If Then a（i, j） = 1 Else End If Next jNext iFor i= 1 To 6 For j = Print a（i, j）; Next j Print Next i End Sub5. 以下程序的功能是英文单词填空游戏。程序会在窗体上显示缺少一个字母的英文单词及其汉语意思，要求输入完整的英文单词。如果输入正确，则显示“正确”；如果输入错误，则显示“错误”；最后统计正确的单词数。其中，单词所缺字母的位置是每次随机变化的，可能出现在单词的任意位置，缺少的字母用下画线“_”表示（例如，可能出现_riend或f_end，frie_d等）。控件Label3和Label4的Caption分别用来显示一个单词的英文及中文。请将该程序补充完整。图 5Private Type wordtype english As String 单词的英文 chinese As String 单词的中文 num As Integer 单词的长度 End Type Private Sub Command1_Click() Dim word(1 To 3) As wordtype Dim answer As String Dim i As Integer, j As Integer, k As Integer word(1).english=”friend”: word(1).chinese = “朋友”: word(1).num=6 word(2).english =”help”: word(2).chinese = “帮助”: word(2).num = 4 word(3).english = ”good”: word(3).chinese = “好的”: word(3).num = 4 For i = 1 To 3 Label1.Caption =” Label2.Caption =” Randomize x= For j = 1 To word(i).num If Then Label1.Caption = Label1.Caption + Mid(word(i).english, j, 1) Else Label1.Caption = Label1.Caption + “_” End If Next j Label2.Caption = word(i).chinese answer = InputBox(“请输入完整单词:”) If answer= Then k=k+1 MsgBox “正确” Else MsgBox “错误” End If Next i Print “正确的单词数为:”, k End Sub笔试模拟试题 3第一部分 软件技术基