1、国家二级（ VB）机试模拟试卷 67及答案与解析 一、选择题 1 在窗体上画一个名称为 Command1的命令按钮，然后编写其 Click事件过程代码如下： Private Sub Command1_Click() Dim i As Integer, num As Integer Do For i = 1 To 10 num = Int(Rnd * 10) + 1 Select Case num Case 2 Exit For Case 7 Exit Do End Select n = n + 1 Next i Loop Print n End Sub 则下面描述中正确的是 （ A）当变量 n
2、um的值为 2时，事件过程 Command1_Click执行结束 （ B）当变量 num的值为 7时， Do循环将终止 （ C）变量 num的值一定是大于或等于 11的整数 （ D） Do循环的执行次数一定为 10次 2 在窗 体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer x = -10 Mod -4 If x 0 Then Command1.Left = Command1.Left - 100 End If End Sub 下面叙述中正确的是 （ A）程序一运行，命令按钮就向左
3、移动，到窗体左端停止 （ B）程序运行后，单击命令按钮，则按钮向左移动，到窗体左端停止 （ C）程序运行后，单击命令按钮，则按钮向左移动，每秒移动一次 （ D）程序一运行，命令按钮就向右移动，到窗体右端停止 5 在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim a As Integer Static b As Integer a = 20 b = 5 Call sub1(a, b) Print a; b End Sub Private Sub sub1(ByRef x1 As Integer, y1 As In
4、teger) x1 = x1 + 3 y1 = x1 + y1 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 （ A） 23 23 （ B） 23 28 （ C） 20 5 （ D） 20 25 6 下列叙述中正确的是 （ A）结点中具有两个指针域的链表一定是二叉链表 （ B）结点中具有两个指针域的链表可以是线性结构，也可以是非线性结构 （ C）二叉树只能采用链式存储结构 （ D）循环链表是非线性结构 7 某二叉树的前序序列为 ABCD，中序序列为 DCBA，则后序序列为 （ A） BADC （ B） DCBA （ C） CDAB （ D） ABCD 8 下面不能作为软件设计
5、工具的是 （ A） PAD图 （ B）程序流程图 （ C）数据流程图 (DFD图 ) （ D）总体结构图 9 逻辑模型是 面向数据库系统的模型，下面属于逻辑模型的是 （ A）关系模型 （ B）谓词模型 （ C）物理模型 （ D）实体 -联系模型 10 运动会中一个运动项目可以有多名运动员参加，一个运动员可以参加多个项目。则实体项目和运动员之间的联系是 （ A）多对多 （ B）一对多 （ C）多对一 （ D）一对一 11 某二叉树中有 15个度为 1的结点， 16个度为 2的结点，则该二叉树中总的结点数为 （ A） 32 （ B） 46 （ C） 48 （ D） 49 12 下面对软件特点描述错
6、误的是 （ A）软件没有明显的制作过程 （ B）软件是一种逻辑实体，不是物理实体，具有抽象性 （ C）软件的开发、运行对计算机系统具有依赖性 （ D）软件在使用中存在磨损、老化问题 13 设有表示公司和员工及雇佣的三张表，员工可在多家公司兼职，其中公司（公司号，公司名，地址，注册资本，法人代表，员工数），员工（员工号，姓名，性别，年龄，学历），雇佣（公司号，员工号，工资，工作起始时间）。其中表的键为公司号，表的键为员工号，则表的键（码）为 （ A）公司号，员工号 （ B）员工号，工资 （ C）员工号 （ D）公司号，员工号，工资 14 表达式 Int(5.3)+Int(-5.8) Fix(5.
7、3)+Fix(-5.8)的值是 （ A） True （ B） False （ C） 1 （ D） 0 15 下列各声明语句中错误的是 （ A） Dim Test As String=“计算机等级考试 （ B） Const Country = “China“ （ C） Public Sum As Integer （ D） Static v1 16 以下不合法的 Visual Basic变量名是 （ A） Cab24 （ B） Sims （ C） A#B （ D） Print_Text 17 对于当前窗体，以下能打开代码窗口的操作是 （ A）按 F7键 （ B）单击窗体 （ C）单击窗体上的某个控
8、件 （ D）按 Ctrl+D键 18 对于窗体 Form1，下列叙述中正确的是 （ A）语句 Form1.Hide与 Form1.Visible=True的功能是等价的 （ B）语句 Form1.Hide与 Form1.Visible=False 的功能是等价的 （ C）语句 Load Form1 与 Form1.Visible=False 的功能是等价的 （ D）语句 Unload Form1与 Form1.Visible=True的功能是等价的 19 属性 BorderColor的作用是 （ A）设置形状边界线和直线的颜色 （ B）设置直线或形状的背景颜色 （ C）设置直线或形状边界线的线
9、型 （ D）设置形状的内部颜色 20 在窗体上画多个控件，其中有一个名称为 Text1的文本框，影响 Text1的 Tab顺序的属性是 （ A） TabStop （ B） Enabled （ C） Visible （ D） TabIndex 21 为了使组合框成为简单组合框，应把其 Style属性设置为 （ A） 0 （ B） 1 （ C） 2 （ D） 3 22 要使图片框 P1中显示当前路径下的图片文件 img1.jpg，则应使用的语句是 （ A） P1.Picture=“img1.jpg“ （ B） P1.Image=“img1.jpg“ （ C） P1.Picture=LoadPict
10、ure(“img1.jpg“) （ D） LoadPicture(“img1.jpg“) 23 假定把计时器控件 Timer1的 Interval 属性设置为 1000， Enabled属性设置为True，并编写下面的事件过程： Private Sub Timer1_Timer() Dim x As Integer For i = 1 To 100 x = x + 1 Next i Print x End Sub 程序运行的结果为 （ A）总是输出 100 （ B）输出 1000 （ C）输出 10000 （ D）不确定 24 为了用形状控件画出不同的图形，应设置的属性是 （ A） Heigh
11、t （ B） Index （ C） Enabled （ D） Shape 25 在设计阶段，为了设置某控件的 Left属性，可使用的方法是 （ A）在属性窗口中设置该属性的值 （ B）在某个事件过程中，编写代码为该属性赋值 （ C）双击该控件，在打开的窗口中设置该属性的值 （ D）以上方法都可以 26 设有如下程序段，则正确的说法是 For i = 1 To 100 Step 0 x = x + 1 Next （ A）该循环为无限循环 （ B）该循环只循环 1次 （ C）该程序段有语法错误，不能执行，系统报错 （ D）该循环循环 100次 27 有下面的程序段： For i = 14 To 5
12、 Step -3 Print Next i 执行此程序段后， i的值为 （ A） 1 （ B） 2 （ C） 3 （ D） 4 28 如果在过程 A中用语句： Call proc(a, b) 调用下面的过程 Private Sub proc(b As Integer, ByVal a As Integer) a = a + 1 b = b * 2 End Sub 则调用结束后的结果是 （ A）过程 A中变量 b的值变为原有值的 2倍 （ B）过程 A中变量 a的值变为原有值的 2倍 （ C）过程 A中变量 a的值变为原有值的 2倍 ， b的值等于原有值加 1 （ D）过程 A中变量 b的值变为
13、原有值的 2倍， a的值等于原有值加 1 29 在窗体上画一个通用对话框控件 CD1，则执行以下程序段后，在显示的 “打开 “文件对话框的 “文件类型 “框中显示的信息是 CD1.Filter = “所有文件 |*.*|Word文件 |*.Doc|文本文件 |*.Txt“ CD1.FilterIndex = 2 CD1.ShowOpen （ A） Word文件 （ B） *.Doc （ C）文本文件 （ D） *.Txt 30 在窗体上画一个名称为 CD1的通用对话框，一个名 称为 Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() C
14、D1.FileName = “ CD1.Filter = “所有文件 |*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex = 2 CD1.DialogTitle = “选择文件 “ CD1.Action = 1 End Sub 则当程序运行时，单击命令按钮 Command1后，将显示对话框窗口，以下有关叙述中错误的是 （ A）语句 CD1.Action = 1可等价地替换为语句 CD1.ShowSave （ B）在显示的对话框中指定的默认文件名为空 （ C）显示的对话框的标题为 “选择文件 “ （ D）在对话框中显示的默认文件类型为 (*.Doc
15、) 31 假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuColor End If End Sub 则以下描述中错误的是 （ A） mnuColor是在菜单编辑器中已定义的弹出式菜单的名称 （ B）在窗体上，不管按下鼠标的哪个按键，系统都会触发执行该事件过程 （ C）参数 Shift可表示 shift、 Ctrl和 Alt键的按键状态 （ D）只有在窗体上按下鼠标左键才可弹出菜单
16、 mnuColor 32 设有如下的程序段： s = 0 i = 1 While i b Print “*“; a = a + 1 Loop 36 下面程序段中 Print方法不能执行 6次的是 （ A） For i = 1 To 2 For j = 1 To 3 Print i Next Next （ B） i = 1 Do While i 0 Then Print num(k); Next k End Sub Private Sub p(a() As Integer, ch As String) For k = 1 To Len(ch) st = Mid(ch, k, 1) If st =
17、 “a“ And st 0结果为 False。故正确答案为 B选项。 15 【正确答案】 A 【试题解析】 A选项的正确写法是： Dim Test As String : Test = “计算机等级考试 “。故正确答案为 A选项。 16 【正确答案】 C 【试题解析】 VB 中变量的命名规则有： 变量名的第一个字符必须是英文字母，最后一个字符可以是类型符。 变量名只能由字母、数字和下划线 “_“组成。 变量名有效长度为 255个字符。 Visual Basic中保留字不能作变量名，但变量名可以含有保留字。选项 C含有特殊字符，故 正确答案为选项 C。 17 【正确答案】 A 【试题解析】 VB
18、 中打开代码窗口的方式有： 1.双击窗体上的某一控件。 2.按 F7快捷键。故正确答案为 A选项。 18 【正确答案】 B 【试题解析】 Form1.Hide：隐藏窗体 Form1，使当前窗体不可见。Form1.Visible：设置窗体 Form1是否可见， Visible值为 True时，窗体 Form1可见，值为 False时，窗体 Form1不可见，故选项 A错误，选项 B正确； Load(装入 )事件，该事件主要用来在启动程序时对属性和相关变量的初始 化。在装入窗体后，如果运行程序，将自动触发该事件。 Unload(卸载 )事件，该事件的作用是从当前的内存中清除一个窗体包括关闭和执行
19、Unload 语句所触发的事件。此外如果重新装入该窗体，则窗体中的所有控件都要重新初始化，故选项 C和 D均错误。正确答案为 B选项。 19 【正确答案】 A 【试题解析】 FillColor用来设置形状内部的填充颜色。 BorderStyle用来设置直线和形状的边界形的线型。 BorderColor用来设置直线和形状的颜色。故本题正确答案为 A选项。 20 【正确答案】 D 【试题解析】 TabStop 属性指定是否能使用 Tab 键将焦点移到控件上，为 True可以获得焦点，为 False不可获得焦点，故选项 A错误； Enabled 属性用来确定文本框或其他可获得焦点的控件，是否对用户产
20、生的事件作出反应，故当为 False时，文本框被禁用，当为 True，可以获得焦点，故选项 B 错误； Visible设置控件是否可见，故选项 C错误；控件的 TabIndex属性决定了 Tab顺序，故本题正确答案为选项 D。 21 【正确答案】 B 【试题解析】 组合框的 Style属性用于设置组合框的类型和 显示方式，共 3种方式。 0为下拉组合框， 1为简单组合框， 2为下拉列表框。故正确答案为选项 B。 22 【正确答案】 C 【试题解析】 在程序代码中可以使用 LoadPicture函数把图形文件装入图片框或图像框中。 格式 对象 .Picture = LoadPicture(“文件
21、名 “)；可知选项 A， B， D均错误。本题正确答案为 C选项。 23 【正确答案】 A 【试题解析】 Interval 属性用来设置计时器事件之间所间隔的毫秒数（ ms），题中 Interval 属性值为 1000，即每隔 1秒发生 一个计时器事件。 Enabled 属性用来设置计时器是否可用， Enabled 为 True，即计时器可用，整型变量默认值为 0， For循环每执行一次， x的取值加 1，一共执行了 100次，故 x=1+1+1+1=100 。根据题意，计时器控件每隔 1秒钟输出一次 100。故本题正确答案为 A选项。 24 【正确答案】 D 【试题解析】 Shape属性用来
22、设置控件的形状； Height决定控件对象的高度；Enabled属性值为逻辑型，决定对象是否可用； Index用来标识控件数组中的每个控件索引。故正确答案为选项 D。 25 【正确答案】 A 【试题解析】 设置控件的 Left属性只能在属性窗口中设置该属性的值，故正确答案为选项 A。 26 【正确答案】 A 【试题解析】 题目中的 “Step 0“表示在 For 循环中步长为 0，即 i的取值均为 1，循环结束条件为 i=100，该循环为无限循环。故正确答案为 A选项。 27 【正确答案】 B 【试题解析】 此题考查 For循环语句的执行顺序， For循环遵循 “先判断，后执行 “的原则，先判
23、断循环变量是否超过终值，如果没有超过，执行循环体，并且循环变量加一个步长；否则 ，退出循环。题中当 i=5时，未超过终值 5，执行 print操作并加一个步长， i=5+（ -3），最终 i=2，故正确答案为选项 B。 28 【正确答案】 B 【试题解析】 用 Call语句调用 Sub过程。如果形参前面有关键字 ByVal，则该参数以传值方式传送。调用结束后，变量 a的值变为原有值的 2倍，变量 b的值不变。故本题正确答案为 B。 29 【正确答案】 A 【试题解析】 Filter 属性是用来指定对话框中显示的文件类型，它的属性值有一对或多对文本字符串组成，每对字符串用 “|“隔开， “|“前
24、面部分 为描述符，后面部分一般为通配符和文件扩展名。 FilterIndex 属性是指定默认的过滤器，当 Filter属性设置为多个过滤器后，每个过滤器都有一个值，本文中 FilterIndex=2，则默认的文件类型为 Word文件，故正确答案为 A选项。 30 【正确答案】 A 【试题解析】 语句 CD1.Action = 1与 CD1.ShowOpen 等价， ShowOpen 方法用于显示打开文件对话框，打开指定目录中的文件，故选项 A错误。 Filter属性用于文件过滤器，属性格式为：描述 1| 过滤器 1| 描述 2 | 过滤 器 2 ； FilterIndex 属性用于指定默认的文
25、件过滤器，即本题中默认的文件过滤器为 Doc文件，文件名为空，故选项 B， D正确； DialogTitle属性设置对话框的标题，选项 C正确。故正确答案为选项 A。 31 【正确答案】 D 【试题解析】 MouseDown 是按下鼠标时触发的事件。鼠标键参数， Button=2，按下右键，触发弹出菜单。选项 D错误，故本题正确答案为 D。 32 【正确答案】 C 【试题解析】 i=1，循环条件 18为假，执行循环体， a=6，依次类推，共执行了 4次。故本题正确答案为 D。 36 【正确答案】 B 【试题解析】 选项 A，双重 For循环，外层循环 i从 1到 2，内层循环 j从 1到3。外
26、层循环每执行 1次，内层循环执行 3次，总共执行了 6次。选项 B， While与 For循环的结合体， While循环条件 i从 1到 2执行了 2次， For 循环与变量 i的取值相关，当 i=1， For循环执行了 3次，当 i=2时， For循环从 2到 3执行了 2次，共执行了 5次打印 print方法，故选项 B 错误。选项 C， For 循环， i从 -2开始，直到 8，步长为 2， i取值为 -2， 0， 2， 4， 6， 8，执行了 6 次打印 Print方法。选项 D， DoLoop Until ，当程序开始执行时，先执行循环体 ，再判断循环 “条件 “值，当条件为真时结束
27、循环，否则执行循环体。变量 i的取值： 10， 7， 4，1， -2， -5，共执行了 6次打印 Print方法。故 正确答案为 B 选项。 37 【正确答案】 C 【试题解析】 用户定义数据类型可以用 Type语句来定义，格式是： Type 数据类型名 数据类型元素名 AS 类型名 数据类型元素名 AS 类型名 End Type。用户定义的数据类型必须先定义后使用，而且只能在模块（窗体模块或标准模块）的声明部分定义，故选项 A错误。文件的打开格式： Open 文件说明 For 方式 Access存取类型 锁定 As #文件号 Len=记录长度 。如果以输出（ Output）、附加（ Appe
28、nd）或随机（ Random）访 问方式打开的文件不存在，则会建立相应的文件，故选项 B 错误。随机文件写操作格式： Put #文件号， 记录号 ，变量，功能是把 “变量 “的内容写入由 “文件 “号所指定的磁盘文件中。当记录号没有指明时，系统默认，则数据将被写到下一个记录位置，即最近执行 Get或 Put 语句后的记录，或由最近的 Seek函数指定的记录，故选项 D错误。本题正确答案为 C。 38 【正确答案】 A 【试题解析】 如果形参前面没有关键字 ByRef 或 ByVal，系统默认为按地址传递参数。形参对实参的值作更改会改变相应实参的值。 Dim定义的变 量称为 “自动变量 “，当引
29、用 Dim定义变量时，变量值会被重新设置（数值变量重新设置为 0，字符串变量被设置为空）。也就是说，下次再使用此变量，其值为初始值。而 Static定义变量，每次引用该静态变量后，其值会继续保留，作为下一次引用时该变量的初始值。 For循环变量 i的取值从 1到 3。当 i=1时，调用 Fun(a)实参与形参默认按地址传递参数，静态整型变量第一次默认的初始值为 0，x=0,x=x+1=1,y=y+1=1,a=1,Fun=1。当 i=2，第二次调用 Fun(a)时，因变量 x为静态变量，下一次引用该变量的初始值 是上一次处理后的最后取值，x=x+1=2,y=y+1=1,a=y=1,Fun=2；当
30、 i=3，第三次调用 Fun(a)时，x=x+1=3,y=y+1=1,a=y=1,Fun=3 最后将 3返回给 x，故最后打印的结果为x=3,a=1。本题正确答案为 A。 39 【正确答案】 C 【试题解析】 程序开始执行时， f1=1， f2=1， s=f1+f2=2。 For循环变量 i的取值从 1到 3，当 i=1 时， f1=f1+f2=2， f2=f2+f1=1+2=3， s=s+f1+f2=2+2+3=7；当 i=2时， f1=f1+f2=2+3=5， f2=f2+f1=3+5=8， s=s+f1+f2=7+5+8=20；当 i=3时，f1=f1+f2=5+8=13， f2=f2+
31、f1=8+13=21， s=s+f1+f2=20+13+21=54；故本题正确答案为 C。 40 【正确答案】 A 【试题解析】 Len(ch)计算 program的字符数为 7， num(26)数组用来统计每个字符出现的次数， Asc()函数用来返回指定字符的 ASCII码值。程序开始执行，输入字符串 “program“给变量 ch，然后调用过程 p，调用开始时实参 num()将地址传 给形参 a()，实参 ch 将地址传给形参 ch。程序开始执行过程 p：首先进入 For循环， k取值从 1到 7。当 k=1,st=mid(ch,k,1)=“p“,判断 If 条件为真，执行n=Asc(st
32、)-Asc(“a“)+1=16， a(16)=0+1=1；当 k=2,st=mid(ch,k,1)=“r“,判断 If 条件为真，执行 n=Asc(st)-Asc(“a“)+1=18， a(18)=0+1=1；当 k=3,st=mid(ch,k,1)= “o“,判断 If 条件为真，执行 n=Asc(st)-Asc(“a“)+1=15， a(15)=0+1=1；依次执行，当k=7执行最后一次循环结束。 a()数组中存放的值为字符串 ch 中每个字符出现的次数。最后程序返回 Command1_Click 过程。 For循环将数组中非 0元素依次打印输出。故答案为 A选项。 二、基本操作题 41
33、【正确答案】 (1)【操作步骤】步骤 1：新建一个窗体，在窗体中添加一个图像框。窗体中的控件属性见表 3.38。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：新建一个窗体，在窗体中添加一个文本框三个命令按钮和一个标签。步骤 2：在属性窗口中设置控 件的属性，控件的属性见表 3.39和表 3.40。 步骤 3：编写程序代码。参考答案 Private Sub Command1_Click() Text1.PasswordChar = “End SubPrivate Sub Command2_Click() Text1.PasswordChar = “*“End
34、 SubPrivate Sub Command3_Click() Text1 = “ Text1.SetFocusEnd Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0) Text) s = a b = a For k = 1 To ? s = s + Val(Text1(k) Text) If ? Val(Text1(k) Text) Then b = Val(Text1(k) Text) End If Next k
