vb试题(10套).doc

第1套（笔试）第一部分 软件技术基础一、判断题（每小题1分，共10分）1在目前，用于保证软件质量的主要手段是进行软件测试。 （ ）2使用DMA方式传送数据期间不需要CPU干预。 （ ）3线性顺序队列会产生“假溢出”，而线性循环队列则不会。 （ ）4对同一种算法，用高级语言编写的程序比用低级语言编写的程序运行速度慢。（ ）5在线性表中，数据的存储方式有顺序和链接两种。 （ ）6进程由程序块、文件控制块和数据块三部分组成。 （ ）7在面向对象的程序设计中，派生类只能从一个基类产生。 （ ）8操作系统是用户和硬件的接口。 （ ）9个人计算机中可配置的最大内存容量受地址总线位数的限制。 （ ）10软件维护中最困难的问题就是软件配置不全。 （ ）二、单项选择题（每小题1分，共5分）1在排序法中，从未排序序列中依次取出元素，与已排序序列中的元素作比较，将其放入已排序序列的正确位置称为（ ）。（A）选择排序 (B) 快速排序 （C）插入排序 （D）冒泡排序2有X、Z、Y三个元素依次入栈，不可能的出栈顺序是（ ）（A）Z、Y、X (B)Z、X、Y (C)Y、X、Z (D)X、Y、Z3进程的状态是可以转换的，而以下哪个状态转换是不可能的（ ）（A）就绪状态执行状态 (B) 执行状态就绪状态 (C) 阻塞状态就绪状态 (D) 等待状态执行状态4线性链表的地址（ ）。 (A)必须连续 (B)部分地址必须连续 (C)一定不连续 (D) 连续与否均可5在软件测试中，（ ）主要分析程序的内部结构。 (A)白盒法 (B) 黑盒法 (C) 因果图法 (D)错误推测法第二部分 VB语言程序设计一、单项选择题（每小题l分，共10分）1在 Visual Basic中，窗体文件的扩展名为（ ）。AEXE B. BAS C. FRM D. VBP2表达式8+2*329 /8-3 mod 2的结果是（）。A. 25 B. 24 C. 7 D. 7.253从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（ ）。A. Left B. Mid C. String D. Instr4若x是一个正实数，能对x的第3位小数进行四舍五入的表达式是（ ）。A. 0.01*Int(100*(x0.05)B. 0.01*Int(100*(x0.005)C. 0.01*Int(x0.05) D. 0.01*Int(x0.005)5下面四个语句中，能打印显示20*30字样的是（）。A. Print “20*30” B. Print 20*30C. Print Chr(20)+”*”+Chr(30) D. Print Val(”20”)* Val(”30”) 6变量在窗体模块中声明为公共的。下列关于变量的陈述哪条是正确的？（ ）A. 可以从项目的任何模块中存取变量 B. 可以在窗体的任何地方存取变量，而不是在窗体模块外。 C. 只有在同一个项目的其他窗体模块中存取变量。 D. 变量不能在窗体模块中声明为公共的。7对一个窗体对象，其最先发生的事件是（）事件。 A. Click B. DblClick C. Load D. UnLoad8以下能够触发文本框Change事件的操作是（ ）。 A. 文本框失去焦点 B. 文本框获得焦点 C. 设置文本框的焦点 D. 改变文本框的内容9若要使标签控件显示时覆盖其背景内容，要设置其BackStyle属性的值为（）。 A. 0 B. l C. 2 D. 310下面对控件数组叙述的正确的是（）。 A. 在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组。 B. 控件数组使用index属性来标识下标，其范围是从0开始的。 C. 控件数组使用的资源比用几个单独同样的控件占用的更多。D. 如果有一按钮数组，按任一按钮不会调用相同的click事件过程。二、阅读分析程序（每小题3分，共45分）1阅读下面程序Option ExplicitDim a()As Integer Private Sub Commandl_Click（） Dim n%, L%, i %, j % nInputBox(“请输入一个整型数”) ReDim a(1 To n) a(1)=1： a(2)2： a（3）3： L4L1： For i 5 To n For j2 To Ll If i Mod a(j) 0 Then Exit For End IfL2: Next jL3： If j L1 Then a(L) I: L L+l Next iL4： For i1 To Ll Print a(i)； Next i LLl Print “L”; L End Sub(1) 程序运行后点击“Command1”，如果在输入框中输入20，输出的结果是（ ）。 A. l，2，3，5，7，11，13，17，19，L=9 B. l，3，5，7，9，11，13，15，17，L19 C. l，2，3，4，5， 18， 19， L19 D. l，2，3，4，5，18，19，20 20(2)上述程序中语句“DIM a( ) As Integer”的功能是（ ）。A. 定义a是11个元素的整型数组。B. 定义了一个动态数组。C. 定义了一个静态数组。 D. 定义了a个整型变量。(3) 当执行语句“Exit For”后，程序流程将（ ）继续执行。 A. 从语句标号LI处 B. 从语句标号L2处 C. 从语句标号L3处 D. 从语句标号L4处2阅读下面程序 Option Explicit Private Sub Commandl_Click（） Dim strPassword As Sting Dim i As Integer For i=1 To 3 strPasswordInputBox(“Password：”) If strPassword”123” ThenLLL： Exit For End If Next i If i 4 Then MsgBox “你是非法用户” Else MsgBox “欢迎你” End Sub(l) 该程序的作用是（ ）。A. 输入三次正确口令”123”，才显示”欢迎你”，输入三次错误口令才显示“你是非法用户”B. 只输入一次正确口令“123”，就显示欢迎你”，输入一次错误口令就显示”你是非法用户”C. 只输入次正确口令”123”，会显示“欢迎你，输入三次错误口令才显示”你是非法用户D. 只要输入一次错误口令就会显示“欢迎你”，输入三次正确口令才显示“你是非法用户”(2)如果将LLL处的语句去掉，则（ ）。 A. 和原来的程序效果一样 B. 用户必须输入三次正确口令后，才会显示欢迎你” C. 用户必须输入三次口令，且输入任何口令都显示“欢迎你” D. 用户必须输入三次口令，且输入任何口令都显示“你不是合法用户”3阅读下面程序Private Sub Form_Click（） Dim a%(2，4), b%(4) ， i %, j%DO While i ”a” And stra”z” Then count count1 strt(count) stra+ strb End If End If Next i For i1 To countFor j i To count一i If strt（j） strt（j1）Thent strt(j): strt(j) Strt(jl): Strt(jl） t End If Next j Next i For i 1 To count Print strt(i) Next i End Sub（l）程序运行后count的值应为（ ）。 A. 0 B. 2 C. 4 D. 6(2) 程序运行后，窗体上显示的结果为（ ）。 A. basic Visual easy is B. is is as as C. is as is as D. as as is is(3) Option explicit的作用是（ ） 。A. 表明此模块内变量必须先声明后使用 B. 表明此模块没有通用过程C. 表明此模块的通用过程不能被其他模块调用 D. 表明此模块变量不声明可以直接使用（4）以下关于语句“Option Base1”的说法中正确的是（ ） A. 其功能是指定数组的默认上界 B. 其功能是指定数组的默认下界 C. 其功能是定义动态数组 D. 其功能是定义静态数组5阅读下面程序 Option Expliicit: Option Base l Private Type Abc A as Integer End Type Private Sub Form_Click（） Dim recAbc As Abc， Dim arrA（4， 4）As Integer， intI%, intJ%，IntN% Open “abc.txt” For Random As l For intI1 To 4 For intJ1 To 4 intN intN l recAbc.AintN Put l，recAbc Next intJ, intI Close Open ”abc.txt” For Random Asl For intJ1 To 4For intI1 To 4 Getl， intIintJ， recAbc arrA (intI, intJ)recAbc.A Next intI, intJ Close For intI1 To 4For intJ1 To 4Print Tab(intJ* 3); Format(arrA(intI, intJ),”#”); Next intJ Print Next IntI End Sub（1）程序中的”abc.txt”文件在第一次打开时是按（ ）方式打开的。 A. 顺序文件读 B. 顺序文件写 C. 随机文件 D. 二进制文件（2）数组arrA完成赋值以后，数组元素arrA(3，2)的值为（ ）。 A. l B. 7 C. 6 D. 4（3）程序运行后在窗体上输出的结果为（40）。 A. 1 2 3 4 B. 1 2 3 4 5 6 7 8 2 4 6 89 10 11 12 3 6 9 1213 14 15 16 4 8 12 16C. 1 5 9 13 D. 1 2 3 4 2 6 10 14 2 3 4 5 3 7 11 15 3 4 5 6 4 8 12 16 4 5 6 7三、程序填空（每空2分，共30分） l下面函数的功能是：求变量s（saaaaaaaaaa）的值。其中，a是一个0-9的数字，总共累加a项。例如，当a=3时，s= 333333（共累加 3项）当 a5时， s555555555555555（共累加 5项）请完善程序： Public Function calc（a As Double）sa: ta For i2 To t SSt Next i Print s End Function 2下面程序是用“冒泡”法将数组a中的10个整数按升序排序，并将排好序的结果显示在文本框中。请完善程序。 Option Explicit: Option Base l Private Sub Form_Click（） Dim I%, j, t Textl.Text” aArray（345, 3, 65, 24 , 765 , 32, 56, 421,54, 235） For i1 To 9 For j1 To If Then t a(j): : a(j l） t End If Next j Next i For i 1 To 10 TextlTextl & “ “ & a(i) Next i End Sub3下面程序的功能是将一个整数转化为数值字符串，例如123，转换为“123”。Private Sub NtoC（ByVal n！，strc As string） Dim sign As Boolean, i%, a%, count%, temp%(100) sign False If n0 Then sign True： n= Do While n 0 a nn10 count count1 temp(count)=a Loop If sign Then StrC”-” Else strc ”+”For i=count To 1 Step 1 StrC= Next i End Sub4从键盘任意输入一个整数x将其插入一个按升序排列的整数数组A中并保证数组在插入后仍按升序排列。 Option Explicit: Option Base 1: Const n= 10 Private Sub Form_Click（）Dim A , i As Integer, J As Integer , x As IntegerAArray(1,3,4, 5, 9,15,22, 28, 30,60)For i 1 To n Print A（i）； Next i Print xInputBox（”输入一个整数x：”） ReDim Preserve A(nl) For in To l step l If Then A（i l）A（i） Else Exit For End IfNext I For i1 To n l Print A（i）； Next i Print End Sub5下列程序实现当“单击”命令按钮cmdRead从文件“List.txt”中读人行数据并写入一个列表框中，文件中的每一行在列表框中占一个选项。请在下划线处填写适当的内容。Private Sub cmdRead_Click() Dim strList As String, ntFileNum As Integer intFileNumFreeFile() Open App.Path+”List.txt” For Input As # intFileNum Do Until Line Input # intFileNum， strList Listl.Addltem Loop End sub第1套（机试）机试1-1一、调试程序（程序存盘文件名为TEST11.vbp，TEST11.frm）(40分) 在磁盘上有一名为TEST11.vbp中的文件，该工程只有一个form窗体（如图所示） 程序的主要功能是：单击“开始”按钮后，要求用户输入一个大写英文字母。然后，以此英文字母为首字符，输出一个6x6的字符矩阵。例如，当输入字符“S”时，输出如上所示。程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST11.vbp存盘）。Option ExplicitPrivate Sub Command1_Click() Dim n As String， k As Integer， i As Integer Do n = InputBox(请输入一个大写英文字母：) Loop k = For i = 1 To 6 Print Tab(25); For j = 1 To 6 k = k + 1 Print Chr(k - 1); Space(1); Next i Print Next iEnd Sub二、编制程序：（程序存盘文件名Test12.vbp）（60分） 程序运行界面如图所示。程序实现的功能： l、程序运行时，首先随机产生30个1003000之间的任意年份，并显示在List1中。 2、当单击“判断”按钮时，选出是闰年的年份，显示在List2中。 3、当单击“排序”按钮时，将选出的是闰年的年份值按从小到大的顺序排序，并重新显示在List2中。 说明：判断某一年是否是闰年有两个条件： 能被4整除，但不能被100整除。 既能被4整除，又能被400整除。机试1-2一、调试程序（程序存盘文件名为TEST21.vbp，TEST21.frm）(40分) 在磁盘上有一名为TEST21.vbp的文件，该工程只有一个form窗体（如右图所示）。程序的主要功能是：用户在第一文本框输入目标字符串，在第二文本框输入要删除的字符串。单击删除按钮后，目标字符串中要删除的字符被删除掉，并在第三文本框中显示删除后的结果。程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST21.vbp存盘）。Option ExplicitPrivate Sub Command1_Click()Dim ObjectString As String， ResultString As StringDim objLength As Integer， delLength As IntegerDim temp As String， i As IntegerObjectString = Text1.TextdelString = Text2.TextobjLength = Len(ObjectString)delLength = Len(delString)i = 1Do While i = temp = Mid(ObjectString, i, delLength) If temp delString Then ResultString = ResultString + Mid(ObjectString, i, 1) i = i + 1 Else Loop Text3.Text = ResultStringEnd SubPrivate Sub Form_Load()End Sub二、编制程序：（程序存盘文件名TEST22.vbp、TEST22.Frm）（60分）在磁盘上已有顺序文件test22in.txt。要求编程实现以下功能：l、单击“读入串”按钮，从文件中读出一个字符串并显示在textl中； 2、单击“排序”按钮，将字符串按字母ASC码值从小到大排序，并显示在text2中；3、单击“追加”按钮，将排序后生成的字符串添加到文件末尾（要求采用冒泡法排序）。机试1-3一、调试程序（程序存盘文件名为TEST31.vbp，TEST31.frm）(40分) 在磁盘上有一名为TEST3l.vbp的文件，该工程只有一个form窗体（如下图所示）。 程序的主要功能是： 1、单击“读入”按钮，从数据文件test31in.txt中读入一组十进制数据（范围0255）。并显示在List1中。 2、单击“转化按钮，将全部十进制数据转化成二进制数据，并显示在List2中。 程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补允语句，添加的语句不能超过两条。调试通过后仍以文件名TEST31.vbp存盘）。Option ExplicitPrivate Sub Form_Load() List1.Clear: List2.Clear Command1.Enabled = True: Command2.Enabled = FalseEnd SubPrivate Sub Command1_Click() Dim a As Integer Open test31in.txt For Do While Not EOF(1) Input #1, a List1.AddItem a Loop Close #1 Command1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Dim n As Integer, strBinary As String, i As Integer For i = 0 To List1.ListCount - 1 n = List1.List(i) strBinary = For j = 1 To 8 strBinary = strBinary n = n 2 Next i List2.AddItem Next i Command1.Enabled = False Command2.Enabled = FalseEnd Sub二、编制程序：（程序存盘文件名TEST32.vbp，TEST32.frm）（60分） 编写程序，实现对任意字符串的加密和解密操作。其中，对大小写英文字母的加密规则为：AD，BE，CF . . .，MP，NQ，WZ XA，YB，ZC；其他字符保持原样不变。 要求程序界面如下所示。当在text1中输入需要加密的源文后，单击“加密”按钮，得到密文，并显示在text2中；当在text3中输入需要解密的密文后，单击“解密”按钮，得到源文，并显示在text4中。机试1-4一、调试程序（程序存盘文件名为TEST41.vbp，TEST41.frm）(40分) 在磁盘上有一个名为“TEST4l.vbp”的程序，程序运行时的界面为： 其功能是：当用户输入行数（例如8），并单击“开始”按钮时，在Picture1内输出如上三角形数阵。程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST41.vbp存盘）。Option ExplicitPrivate Sub Command1_Click() Cls Dim a() As Integer, n As Integer, i As Integer, j As Integer n = ReDim a(n, n) For i = 1 To n For j = 1 To n If j = 1 Or j = n Then a(i, j) = 1 Else a(i, j) = End If Next j Next j For i = 1 To n For j = 1 To n Picture1.Print Tab(5 * j); a(i, j); Next j Next iEnd Sub二、编制程序：（程库存盘文件名TEST42.vbp、TEST42.Frm）(60分) 建立一个成绩查询窗体如下图所示： 要求在From_Load时打开磁盘文件test42in.txt读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组（每个数组可定义为200个元素）；并将两个列表框的ListIndex属性置为0。当点击姓名中任意一项，学号的ListIndex应随之改变，同样点击学号中任意一项，姓名的ListIndex应随之改变。 点击“查询”则将该学生的三项成绩显示在右边的三个文本框内，同时将平均成绩置空。点击“计算”则将该学生三项成绩的平均值显示出来。点击“退出”则结束程序第2套（笔试）第一部分 软件技术基础一、判断题（每小题1分，共10分）1.应用程序在执行过程中，需要通过打印机输出数据时，一般先形成一个打印作业，将其存放在硬盘中的一个指定队列中。当打印机空闲时，就会按先来后服务的方式从中取出待打印的作业进行打印。 （ ）2若无进程处于运行状态，则就绪队列和等待队列均为空。 （ ）3多道程序设计是指在一台处理机上并发运行多个程序。 （ ）4黑盒法是软件测试方法中的静态测试方法之一。 （ ）5软件的详细设计就是要编写出具体的程序。 （ ）6软件生命周期中花费最多的阶段是软件维护。 （ ）7Windows是单用户多任务操作系统，UNIX是多用户多任务操作系统。 （ ）8进程把程序作为它的运行实体，没有程序也就没有进程。 （ ）9在结构化分析中，用于描述加工逻辑的主要工具有三种，即：结构化语言、判定表和判断树。 （ ）10作业调度程序从后备队列中选一个作业装入主存后，决定能否占用处理机的是设备调度程序。 （ ）二、单项选择题（每小题1分，共5分）1交换技术是在（ ）之间交换程序和数据。（A）主内存与CPU (B) CPU与外设 （C）主内存与外存 （D）外存与CPU2以下的工具中哪个不是软件详细设计中使用的工具（ ）（A）数据流图 (B)N_S图 (C)PDA图 (D)PDL语言3任何两个并发进程之间（ ）（A）一定存在互斥关系 (B)一定存在同步关系 (C)一定彼此独立无关 (D)可能存在同步或互斥关系4.进程从运行状态进入就绪状态的原因可能是（ ）。 (A)被选中占有处理机 (B) 等待某一事件 (C)等待的事件已发生 (D) 时间片用完5 算法指的是（ ）。 (A)计算机程序 (B) 解决问题的有限运算序列(C) 排序算法 (D)解决问题的计算方式第二部分 VB语言程序设计一、单项选择题（每小题1分，共10分）1. 在Visual Basic中，窗体模块的扩展名是（ ）。 (A) EXE (B) BAS (C) FRM (D)VBP2. 表达式 Val(“2a0”) + 2 Mod 4 + 3 * 2 2的值范围是（） (A) 16 (B)14 (C)34 (D)403. 表达式Int(3*Rnd+2)*Int(5*Rnd-1)的取值范围是( ) (A)1,7 (B) -2, 12 (C) -4, 12 (D) -4, 64. 设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达方式可以用（ ）表示（A）A+B=C OR A+C=B OR B+C=A(B) A+B=C OR A+C=B OR B+CC OR A+CB OR B+C.A (D) A+BC AND A+CB AND B+C.A5. 在过程定义的以下叙述中，不正确的是（ ）(A) 如果不指明参数传达方式，则将按引用方式将实参传送给形参(B) 如果不指明参数传送方式，则将按传值方式将实参传送给形参(C) 如果指明传值方式，则在调用该过程时，不会引起实参的值改变(D) 如果指明引用方式，则在调用该过程时，可能引起实参的值改变6. 若要使窗体启动处于最大化状态，可设置（ ）属性。(A)startUpPosition (B) WindowState (C) Caption (D) AutoRedraw7. 命令按钮标题热字的下划线，可通过（ ）符号来设置 (A) (C) _ (D) &8. 当鼠标在窗体上移动时，会触发哪种鼠标事件（ ） (A) MouseMove (B) MouseUp (C) MouseDown (D) Click9. 下面关于窗体事件叙述不正确的是（ ）。(A) 通过代码调整窗体的大小，会触发一个Resize事件 (B) 用鼠标单击窗体会产生一个Click事件 (C) 每当一个窗体变成活动窗体时，就会产生一个LOAD事件 (D) 调用Show方法与设置窗体Visible属性为True具有相同的效果10. 若想存放如下数据，其中，最为恰当的数组定义方式为：（ ） (A) Dim ArrB(2,3) as integer (B) Dim ArrB&(2,3) (C) Dim ArrB!(-4 to -3, 2 to 4) (D) Dim ArrB(-5 to 4 , -1 to 1) as double二、程序阅读（每个选择3分，共45分）1. 如下程序Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 0: c = 0 For i = 1 To 3 Print f (a, b, c) * 2 Next iEnd SubFunction f (a As Integer, b As Integer, ByVal c As Integer) b = b + 1: c = c + 1: f = a + b + cEnd Function(1) 程序的执行结果是（ ）。 （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 18(2) 如果将过程定义中ByVal c As Integer 改为 c As Integer，程序的执行结果是（ ） （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 182Option ExplicitPrivate Sub Command1_Click() Dim inp, out As String, i As Integer inp = 1234321 For i = 1 To 4 out = Left(inp, i) + Right(inp, i - 1) Picture1.Print Tab(20 - i + 1); out Next i For i = 1 To 3 out = Left(inp, 4 - i) + Right(inp, 4 - i - 1) Picture1.Print Tab(17 + i); out Next iEnd SubPrivate Sub Command2_Click() Picture1.ClsEnd Sub(1) 该程序在窗体上至少设置了几个控件？（ ） （A）一个 （B）二个 （C）三个 （D）四个(2) 下列说法中正确的是（ ）。（A）变量inp、out均为字符串类型 （B）变量inp、out的定义可以省略 （C）变量inp为变体型、而out为字符串类型 （D）变量inp、out可以在其他过程中直接使用(3) 当单击名为Command1的命令按钮时，输出结果为（ ）。 （A） 1 (B) 1 （C）1 (D) 1 121 121 121 121 12321 12321 12321 12321 1234321 1234321 1234321 1234321 12321 12321 121 1211 13. 阅读下列程序Option ExplicitPrivate Sub Form_Click() Dim a As Integer, n As Integer a = 2: n = 10 Print MyFun(a, n); nEnd SubPrivate Function MyFun(a As Integer, n As Integer) If n = 0 Then Exit Function Else n = n - 1: MyFun = a + MyFun(a, n) End IfEnd Function（1） 程序中定义的MyFun是（ ）函数。 （A）递归 （B）系统 （C）数学 （D）字符串（2） 用户单击窗体时，输出的结果是（ ）。 （A） 20 0 （B）20 1 （C）20 5 （D）20 10（3） 将语句n = n - 1: MyFun = a + MyFun(a, n)改为MyFun = a + MyFun(a, n-1)后，用户单击窗体时，输出的结果是（ ）。（A） 20 0 （B）20 1 （C）20 5 （D）20 104. 阅读下列程序Private Sub Command1_Click() m = Val(Text1.Text): n = Val(Text2.Text) : mn = m