1、VB 笔试模拟试卷 6及答案与解析 1 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成 （ A）动态结构和静态结构 （ B）紧凑结构和非紧凑结构 （ C）线性结构和非线性结构 （ D）内部结构和外部结构 2 设一棵二叉树中有 3个叶子结点，有 8个度为 1的结点，则该二叉树中总的结点数为 （ A） 12 （ B） 13 （ C） 14 （ D） 15 3 在下列几种排序方法中，要求内存量最大的是 （ A）插入排序 （ B）选择排序 （ C）快速排序 （ D）归并排序 4 下列叙述中，不属 于结构化程序设计方法的主要原则的是 （ A）自顶向下 （ B）由底向上 （ C）模块
2、化 （ D）限制使用 goto语句 5 下列不属于软件调试技术的是 （ A）强行排错法 （ B）集成测试法 （ C）回溯法 （ D）原因排除法 6 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图， 通常也把这种图称为 （ A） PAD图 （ B） N-S图 （ C）结构图 （ D）数据流图 7 软件复杂性度量的参数包括 （ A）效率 （ B）规模 （ C）完整性 （ D）容错性 8 下 列叙述中，不属于数据库系统的是 （ A）数据库 （ B）数据库管理系统 （ C）数据库管理员 （ D）数据库应用系统 9 数据库系统的核心是 （ A）数据库 （ B）数据库管理系统
3、 （ C）数据模型 （ D）软件工具 10 视图设计一般有 3种设计次序，下列不属于视图设计的是 （ A）自顶向下 （ B）由外向内 （ C）由内向外 （ D）自底向上 11 下列说法错误的是 （ A）资源文件的扩展名为 res （ B）一个窗体对应一个窗体文件 （ C） Visual Basic中的一个工程只包含一个窗体 （ D） Visual Basic中一个工程最多可以包含 255个窗体 12 下列说法错误的是 （ A）方法是对象的一部分 （ B）方法的调用格式和对象的属性的使用格式相同 （ C）方法是一种特殊的过程和函数 （ D）在调用方法时，对象名是不可缺少的 13 在运行程序时，在
4、文本框中输入新的内容，或在程序代码中改变 Text的属性值，相应会触 发到的事件是 （ A） GotFocus （ B） Change （ C） Click （ D） DblClick 14 Print方法可以在对象上输出数据，这些 对象包括 （ A）图片框 （ B）状态栏 （ C）标题栏 （ D）代码窗口 15 可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是 （ A） % （ B） # （ C） ! （ D） 16 下列语句的输出结果为 Print Format (100036， “000， 000 000”) （ A） 10， 009 36 （ B） 10， 009
5、 360 （ C） 10， 009 3 （ D） 010， 009 360 17 使 “Microsoft“在当前窗体上输出的语句是 （ A） Picture Print “Microsoft“ （ B） Print “Microsoft“ （ C） Printer Print “Microsoft“ （ D） Debug Print“Microsoft“ 18 在修改列表框内容时， AddItem方法的作用是 （ A）在列表框内插入一行文本 （ B）在列表框中插人多行文本 （ C）删除列表框中指定的项目 （ D）清除列表框内的全部内容 19 图片框与图像框的区别是图片框可以作为其他控件的父对
6、象，即为容器控件，而图像框 只能 （ A）显示图形信息 （ B） 显示文本内容 （ C）显示文本和图形信息 （ D）显示程序代码 20 执行下面的程序段后，变量 c的值为 a=14 b=30 Slect Case b10 Case 0 C=a * 10 + b Case 1 To 9 C=a * 100+b Case 10 To 99 C=a * 1000 + b End Select print c （ A） 363 （ B） 2548 （ C） 1430 （ D） 9875 21 下列程序段的执行结果 为 m=1 n=1 Select Case m Case 1 Select Case n
7、 Case 0 Print “* * 0 * *“ Case 1 Print “ * * 1 * * “ End Select Case 2 print “ * * 2 * * “ End Select （ A） * * 0 * * （ B） * * 1 * * （ C） * * 2 * * （ D） 0 22 下 列程序段的执行结果为 m=2 n=3 Do m=m+n n=n + 1 Loop While m 10 Print m； n （ A） 1 5 （ B） 14 6 （ C） a b （ D） 10 25 23 有如下的程序段，该程序段执行完后，共执行的循环次数是 total=0 C
8、ounter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total 10 Then Exit Do End If Loop While Counter =10 （ A） 4 （ B） 10 （ C） 15 （ D） 20 24 下列程序的运行结果为 Dim a(-1 To 6) For i=LBound(a， 1)To UBound(a， 1) a(i) = i Next i Print a (LBound(a， 1)； a(UBound(a，1) （ A） 0 0 （ B） -
9、5 0 （ C） -1 6 （ D） 0 6 25 下面的数组声明中，正确的是 （ A） Dim pict3,4As Integer （ B） Dim pict(3， 4)As Integer （ C） Dim pict3 4As Integer （ D） Dim pict(3： 4)As Integer 26 下面的过程定义语句中不合法的是 （ A） Sub Para(ByVal n() （ B） Sub Para(n) As Integer （ C） Function Para(ByVal n) （ D） Function Para(procl) 27 单击命令按钮时，下列的执行结果为 P
10、rivate Sub Command1_Click() Dim x As Integer， y As Integer x=86： y=29 Call Proc(x， y) Print x； y End Sub Public Sub Proc(n As Integer， ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （ A） 12 32 （ B） 6 29 （ C） 2 3 （ D） 12 3 28 下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr=“abc
11、def“ Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr=“ strLen=Len(xStr) i=1 Do While i =Len(xStr)-3 tempStr=tempStr + Mid(xStr， i， l) + Mid(xStr， strLen - i+i ， 1) i=i + 1 Loop Pct=tempStr End FunCtion （ A） abcdef （ B） afbecd （
12、 C） fedcba （ D） defabc 29 单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20， 18) End Sub Public Function MyFunc (m As Integer， n As Integer)As Integer Do While m n Do While m n： m=m - n： Loop Do While m n： n=n - m： Loop Loop MyFunc=m End FunCtion （ A） 0 （ B） 2 （ C） 4 （ D） 6 30 有如下程序：
13、 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2： b=4 Call CS(a， b)End Sub Sub CS(x As Single， y As Single) t=X x=ty y=t Mod y End Sub 程序运行后，单击命令按钮， a和 b的值分别为 （ A） 0 0 （ B） 1 1 （ C） 0 2 （ D） 1 2 31 下面有一段程序代码，如果从键盘上输入 “Computer“，则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Int
14、eger) If KeyAscii =65 And KeyAscii =122 Then KeyAscii=42 End If End Sub （ A） Computer （ B）什么都没有 （ C） * * * * * * * * （ D）程序出错 32 下列有关子菜单的说法中，错误的是 （ A）除了 Click事件之外，菜单项不可以响应其他事件 （ B）菜单项的索引号必须从 1开始 （ C）每个菜单项都是一个控件，与其他控 件一样也有其属性和事件 （ D）菜单的索引号可以不连续 33 在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如 下事件过程：
15、 Private Sub Commandl_Click() CommonDialogl， Flags=vbOFNHideReadOnly CommontDialogl Filter=“All Files(* *)|* *|Text Files (*.*)|* txt|“_ b(i)=I，且数组 a的上下界分别为 1和 4，数组 b的上下界分别为 3和 6；接着将数组 a作为参数调用 YAS 过程，在 YAS 过程中，定义了两个变量 t及 I， I 作为循环语句 For的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，
16、程序返回的就是数组 a中的各元素的积；同理程序将数组 b作为参数传递给 YAS 过程后返回数组 b中各元素的积，运行程序结束后，输出结果为 :s1=24 s2=360。 42 【正确答案】 100 【试题解析】 在程序 Sub中定义了一个含 4个元素的数组，并且分别给它们赋值，数组上界是 4，下界为 1；将数组 m作为实参调用 Fmax事件过程，并将数组m的地址传递给数组 a，即此时数组 a与 m用一个存储空间；将数组的上界和下界分别赋给变量 Last和 First，在赋值表达式中分别调用了 Lbound()函数求数组下界，及 Ubound()函数求数组的上界；在循环语句中，变量的初始值为数组
17、的下界为 1，终值为数组的上界为 4，循环体是一个条件语句，如果 a(I)中的值大于Max，那么就将 a(I)的值赋给 Max，当循环结束后，将 Max作为函数的返回值，所以 此事件过程的功能即为求数组中的最大值。 43 【正确答案】 Arc=Array(35， 48， 15， 22， 67) , For Each x In Arr 【试题解析】 Form _ Load 事件给数组赋初值，且限定只能用一条语句完成，显然只能用 Array函数给数组赋值了。 Form _ Click 事件是打印出数组中能被 3整除的数，程序中只有 “Nextx”语句，没有与之对应的 For语句。循环体是对数组元素
18、进行处理，但循环体中又没有出现表示数组元素的下标变量，由此判断出应该用 For Each 语句。 44 【正确答案】 And , Or 【试题解析】 此题主要考查了闰年的条件，并把条件用逻辑关系式表示出来。闰年的条件是能被四整除不能被 100整除的是闰年，或者是能被 400整除，所以由此可以写出逻辑关系式： (x Mod 4=0 And x Mod l00 0 ) Or (x Mod 400=0)。 45 【正确答案】 Form1 BackColor = vbRed , Mark=1 , Mark=0 【试题解析】 首先过程中定义了一个模块级整型变量 Mark，每次都保留上次运行 后的值。由程序可以看出：本题约定 Mark 等于 0表示背景色为红色； Mark 等于 1表示背景色为绿色； Mark 等于 2表示背景色为蓝色，每次单击运行后要将Mark 变为下次运行时的值，以便符合题目要求。所以【 】应为Form1 BackColor= vbRed，【 】为 Mark=1；当背景色变为蓝色后再单击背景色要变为红色，所以应将 Mark 变为 0，所以【 】为 Mark=0。注意：多分支控制语句。
