1、国家二级（ VB）机试模拟试卷 38及答案与解析 一、选择题 1 文件 d:city.txt的内容如下： BeiJing TianJin ShangHai ChongQing 编写如下事件过程： Private Sub Form_Click() Dim InD Open “d:city.txt“ For Input As #1 Do While Not EOF(1) Line Input #1, InD Loop Close 1 Print InD End Sub 运行程序，单击窗体，输出结果是 （ A）文件 city.txt的全部内容 （ B） BeiJing （ C） ChongQing
2、（ D）空白 2 在窗体上画一个文本框，其名称为 Text1，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr(i) = i - 3 Next i Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10) End Sub 程序运行后，单击窗体，在文本框中显示的内容是 （ A） 7 （ B） 8 （ C） 9 （ D） 10 3 在窗体上画一个命令按钮（其 Name属性为 Command1），然后编写如下代码： Private
3、Sub Command1_Click() Dim n() As Integer Dim a, b As Integer a = InputBox(“Enter the first number“) b = InputBox(“Enter the second number“) ReDim n(a To b) For k = LBound(n) To UBound(n) n(k) = k Print n(k); Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2和 3，输出结果为 （ A） 1 2 （ B） 2 3 （ C） 3 4 （ D） 4 5 4 在窗体上
4、画一个命令按钮和一个文本框，其名称分别为 Command1和 Text1，然后编写如下程序： Function Fun(x As Integer, y As Integer) As Integer Fun = IIf(x = 1 tStr = tStr + Mid(xStr, L, 1) L = L - 1 Loop yStr = tStr End Sub Private Sub Form_Click() Dim S1 As String, S2 As String S1 = “abcdef“ Inv S1, S2 Print S2 End Sub 运行程序，单击窗体，输出结果为 （ A） a
5、bcdef （ B） afbecd （ C） fedcba （ D） defabc 8 阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then Arr(i, j) = 1 Else Arr(i, j) = 0 End If Next j Next i For i = 1 To 3 For j = 1 To 3 Print Arr(i, j); Next j Print Next i End
6、Sub 程序运行后，如果单击窗体，则输出结果为 （ A） 1 1 1 1 1 1 1 1 1 （ B） 0 0 0 0 0 0 0 0 0 （ C） 1 0 0 0 1 0 0 0 1 （ D） 1 0 1 0 1 0 1 0 1 9 下列关于算法复杂度叙述正确的是 （ A）最坏情况下的时间复杂度一定高于平均情况的时间复杂度 （ B）时间复杂度与所用的计算工具无关 （ C）对同一个问题，采用不同的算法，则它们的时间复杂度是相同的 （ D）时间复杂度与采用的算法描述语言有关 10 设有栈 S和队列 Q，初始状态均为空。首先依次将 A,B,C,D,E,F入栈，然后从栈中 退出三个元素依次入队，再将
7、 X,Y,Z入栈后，将栈中所有元素退出并依次入队，最后将队列中所有元素退出，则退队元素的顺序为 （ A） DEFXYZABC （ B） DEFXYZABC （ C） FEDXYZCBA （ D） DEFZYXABC 11 下列叙述中正确的是 （ A）有两个指针域的链表称为二叉链表 （ B）循环链表是循环队列的链式存储结构 （ C）带链的栈有栈顶指针和栈底指针，因此又称为双重链表 （ D）结点中具有多个指针域的链表称为多重链表 12 某二叉树共有 845个结点，其中叶子结点有 45个，则度 为 1的结点数为 （ A） 400 （ B） 754 （ C） 756 （ D）不确定 13 软件需求分析
8、阶段的主要任务是 （ A）确定软件开发方法 （ B）确定软件开发工具 （ C）确定软件开发计划 （ D）确定软件系统的功能 14 下面对软件测试描述错误的是 （ A）严格执行测试计划，排除测试的随意性 （ B）随机地选取测试数据 （ C）随机地选取测试数据 （ D）软件测试是保证软件质量的重要手段 15 结构化程序的三种基本控制结构是 （ A）顺序、选择和重复（循环） （ B）过程、子程序和分程序 （ C）顺序、选择和调用 （ D）调用、返回和转移 16 数据库中对概念模式内容进行说明的语言是 （ A）数据定义语言 （ B）数据操纵语言 （ C）数据控制语言 （ D）数据宿主型语言 17 某个
9、工厂有若干个仓库，每个仓库存放有不同的零件，相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是 （ A）多对多 （ B）一对多 （ C）多对一 （ D）一对一 18 表达式 5 * Sqr(25) + Sgn(4 4) 的值是 （ A） 29 （ B） 25 （ C） 26 （ D） 36 19 无论 X取何值，均能成立的表达式是 （ A） Int(X) = Abs(X) （ B） Int(X) = Abs(X) （ C） Int(X) Abs(X) 20 要求在窗体中定义一个变量 x，在本窗体所有过程中都可以访问它，而在其他模块中不能访问，则该变量的定义是 （ A）在本窗体的某个过程中
10、写语句： Dim x （ B）在本窗体所有过程之前写语句： Dim x （ C）在本窗体所有过程之前写语句： Public x （ D）在本窗体的所有过程中写语句： Dim x 21 以下叙述中错误的是 （ A）对象具有属性、方法等成员 （ B）对象可以识别预先定义的事件 （ C）一个对象中包含数据及其对这些数据的相关操作 （ D）对象的属性值一经初始化，则不能再改变 22 以下叙述中正确的是 （ A）影响窗体上某个文本框的 Tab顺序的属性是 TabStop （ B）语句 Me.Text = “Visual Basic“用于设置当前窗口的标题信息 （ C）用于获取文本框中当前被选中文本的属性
11、为 SelText （ D）要获取水平滚动条中当前滚动块的位置应使用其 Position属性 23 下面关于组合框 Cb1的叙述中正确的是 （ A）程序运行时，列表项可以多选 （ B）鼠标单击一个列表项后， Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值 （ C）利用 Selected属性可以判断哪个列表项被选中了 （ D）组合框不响应 Change事件 24 下面关于组合框 Cb1的叙述中正确的是 （ A）程序运行时，列表项可以多选 （ B）鼠标单击一个列表项后， Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值 （ C）利用 S
12、elected属性可以判断哪个列表项被选中了 （ D）组合框不响应 Change事件 25 在列表框或组合框中，能够表示当前被选中列表项序号的是 （ A） ListIndex （ B） Index （ C） TopIndex （ D） List 26 要在程序运行过程中把 Command1按钮的标题修改为 “按钮 “，正确的做法是 （ A）在属性窗口中把 Command1按钮的 Caption属性改为 “按钮 “ （ B）在程序中执行语句： Command1.Caption = “按钮 “ （ C）在属性窗口中把 Command1按钮 的 Text属性改为 “按钮 “ （ D）在程序中执行语句
13、： Command1.Text = “按钮 “ 27 文件列表框中用于设置或返回所选文件路径和文件名的属性是 （ A） File （ B） FilePath （ C） Path （ D） FileName 28 在窗体上画 2个名称分别为 Text1和 Text2的文本框，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text = “ABCDEF“ Text2.SetFocus End Sub Private Sub Text1_GotFocus() Text1.SelStart = 2 Text1.SelLength = 3 End Sub 运
14、行程序，单击 Text1，该文本框中的内容为 （ A）显示 ABCDEF，且 BCD被选中 （ B）显示 ABCDEF，且 CDE被选中 （ C）显示 BCD （ D）显示 CDE 29 下面关于框架控件的叙述中正确的是 （ A）框架响应 Click事件 （ B）框架可以接受焦点 （ C）框架的标题是字符串，放在 Text属性中 （ D）可以在框架中输入 文本 30 通过语句 X = InputBox(“输入数据 “, “示例 “, “0“)对变体类型的变量 X输入数据，程序运行后，如果在对话框的输入区中输入数值 100并按回车键，则下列叙述中正确的是 （ A）变量 X的值是字符串 “0“ （
15、 B）在 InputBox 对话框标题栏中显示的是 “输入数据 “ （ C）输入对话框的输入区中的初始默认值为数值 0 （ D）变量 X的值是字符串 “100“ 31 下面说法中错误的是 （ A）使用 ReDim语句可以改变数组的维数 （ B）使用 ReDim语句可以改变数组的类型 （ C）使 用 ReDim语句可以改变数组的每一维的大小 （ D） ReDim语句可以使原数组中的内容被清除 32 若程序中有语句： y = proc(6)，则 proc 应该是 （ A）一个 Function过程的名称 （ B）一个 Sub过程的名称 （ C）一个事件过程的名称 （ D）既可能是一个 Functi
16、on过程的名称，也可能是一个 Sub过程的名称 33 下列说法中正确的是 （ A）任何情况下都可以用标准工具栏的 “菜单编辑器 “按钮打开菜单编辑器 （ B）任何情况下都可以用标准工具栏的 “菜单编辑器 “按钮打开菜单编辑器 （ C）任何情况下都可以用 “工具 “菜单中的 “菜单编辑器 “命令打开菜单编辑器 （ D）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 34 下面关于菜单的叙述中正确的是 （ A）弹出式菜单和下拉式菜单都可用菜单编辑器编辑 （ B）弹出式菜单不能有子菜单 （ C）菜单项可以响应 Click事件和 DblClick事件 （ D）有子菜单的菜单项不响应 Click事件
17、 35 为了向 c盘根目录下的 Stud.txt文件中添加数据而不破坏其原有数据，下列正确打开该文件的语句是 （ A） Open “c:Stud.txt“ For Output As #1 （ B） Open “c:Stud.txt“ For Append As #1 （ C） Open c:Stud.txt For Output As #1 （ D） Open c:Stud.txt For Append As #1 36 如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是 （ A） Append （ B） Output （ C） Random （ D） Inp
18、ut 37 设有如下事件过程： Private Sub Command1_Click() ch = “ABCDEFG“ n = Len(ch) k = 1 Do Print Mid(ch, k, 1); Mid(ch, n, 1); k = k + 1 n = n - 1 Loop Until k n End Sub 运行此过程所产生的输出是 （ A） AGBFCEDD （ B） AGBFCED （ C） GFEDCBA （ D） GAFBECD 38 有如下事件过程： Private Sub Form_Click() Dim a As Long, b As Long Dim sum As L
19、ong Dim x As Integer a = 1 b = 1 For x = 1 To 11 Step 2 a = b * x _ s = s + a sum = sum + s Next x Print sum End Sub 以上程序的功能是 ，计算 1!+(1!+3!)+(1!+3!+5!)+(1!+3!+5!+11!) 的值并输出。程序不完整，在 _处应填入的内容是 （ A） b = a * (x + 1) （ B） a = a * (x - 1) （ C） a = a * (x + 1) （ D） b = a * x 39 下面程序的功能是找出这样一个三位整数：它等于每位数字的阶
20、乘之和，例如145就是这样的数（即 145 = 1！ + 4！ + 5！） Private Sub Command1_Click() Dim x As Integer, i As Integer, j As Integer, k As Integer For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = _ If a = fact(i) + fact(j) + fact(k) Then Print a End If Next k Next j Next i End Sub Function fact(n As Integer) As Long Dim
21、 x As Long x = 1 For k = 1 To n x = x * k Next k fact = x End Function 程序不完整，在横线上应填写的是 （ A） i * 100 + j * 10 + k （ B） i * 1000 + j * 100 + k * 10 （ C） i * 10 + j * 10 + k * 10 （ D） fact(0) + fact(1) + fact(9) 40 有如下通用过程： Private Sub St(ByVal strX As String, strY As String) Dim Ts As String i = Len(s
22、trX) Do While i = 1 Ts = Ts + Mid(strX, i, 1) i = i - 1 Loop strY = Ts End Sub 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = “abcd“ Call St(s1, s2) Print s2 End Sub 程序运行后，单击命令按 钮，输出结果是 （ A） abcd （ B） dabc （ C） dcba （ D） abdc 二、基本操作题 41 (1)在名称为
23、 Form1的窗体上添加两个标签 (名称分别为 Labell和 Label2，标题分别为 “身高 ”和 “体重 ”)、两个文本框 (名称分别为 Text1和 Text2，初始文本均为空 )和一个命令按钮 (名称为 Command1，标题为 “输入 ”)。然后编写命令按钮的 Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输人对话框中分别输入身高和体重，并分别在两个文本框中显示出来， 运行后的窗体如图所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Fo
24、rm1的窗体上添加一个图片框 (名称为Picture1)、一个垂直滚动条 (名称为 VScroll1)和一个命令按钮 (名称为 Command1，标题为 “设置属性 ”)，通过属性窗口在图片框中装入一个图形 (文件名为 pic1， jpg，位于考生文件夹下 )，图片框的宽度与图形的宽度相同，图片框的高度任意 (如图 1所示 )。编写适当的事件过程。程序运行后， 如果单击命令按钮，则设置垂直滚动条的属性如下： Min 100 Max 2400 LargeChange 200 SmaUChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。程序运行后的窗体如图 2所示。要求
25、程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体中有两个控件数组，一个名称为 Text，含有三个文本框；另一个名 称为 Cmd，含有三个命令按钮，且 “暂停 ”按钮的初始状态为禁用，如图所示。请添加一个计时器 Timer1，设置时间间隔为 1秒，初始状态为禁用，并使程序实现如下功能： 单击 “开始 ”按钮，则计时器Timer1和 “暂停 ”按钮状态变为可用，且 “开始 ”按钮的标题变为 “继续 ”，且状态为不可用。与此同时， Te
26、xt的 3个文本框开始显示计时的小时、分、秒值。 单击 “暂停 ”按钮，则 Timer1停止工作， “暂停 ”按钮状态为禁用， “继续 ”按钮变为可用。 单击 “继续 ”按钮，则 Timer1接着开始工作， “继续 ”按钮变为不可用， “暂停 ”按钮变为可用。 单击 “结束 ”按钮，则结束程序运行。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件下有一个工程文件sjt4 vbp，其窗体中有一个初始文本内容为空的文本框 Text1，两个标题分别是 “读数据 ”和 “计算 ”的命令按钮。请
27、添加一个标题为 “所有行中最大数的平均值 ”的标签Label1，再添加一个初始文本内容为空的文本框 Text2，如图所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件 夹下iM dat文件的内容读入 20行 5列的二维数组 a中，同时在 Text1文本框中显示。 单击 “计算 ”按钮，则自动统计二维数组中每行最大数的平均值 (截尾取整 )，并将最终结果在 Text2文本框内显示。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click 事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “计算 ”，且必须
28、用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有一个名称为 Textl的文本框；还有两个名称分别为 C1、 C2的命令按钮，标题分别为 “计算 ”、 “存盘 ”。有一个函数过程 isprirne(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得程序运行时，单击 “计算 ”按钮，找出小于 18000的最大素数，并显示在 Text1中；单击 “存盘 ”按钮，则将 Text1中的计算结果存入考生文件夹下的 ou
29、t5 txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过 “存盘 ”按钮存入 out5 txt文件中，否则将没有成绩。 国家二级（ VB）机试模拟试卷 38答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 #1文件以读操作的方式打开。在文件结尾的部分退出。退出时InD内存储的内容是 ChongQing，打印的内容就是 ChongQing，选 C。 2 【正确答案】 D 【试题解析】 For循环对数组 Arr的第 6个到第 10个元素赋值。 Arr(6)=3；Arr(10)=7； 因此，输出结果是 10。选 D）。 3 【正确答案】 B 【试题解
30、析】 输入 2和 3后， n被重新定义，下标为 2，上标为 3。 For循环执行2次， k=2和 k=3。因此选 B）。 4 【正确答案】 A 【试题解析】 Form_Load（）过程中， Command1获得焦点。当按回车键时，触发 Command1_Click()事件。该事件中给定 a和 b 的值，并调用函数 Fun。函数Fun 返回整型数据。 IIf(x n 成立。故正确答案为选项 A。 38 【正确答案】 A 【试题解析】 最简单的方法，直接代入一些数字，如 x=1时， A) b=2a； B) a=0； C)a=2a； D)b=a；再代入程序中，知 B选项不符合题意。当循环体执行了两次
31、，即当 x=3时，再分别将 A、 C、 D的答案代入程序中，知 C和 D选项错误；另一种方法是，本程序的主要由累加和累乘两种运算结合在一起，分析内容，可知， a=b*x，实现的是记录单个数值，如 :1!、 3!、 5!、 7!等，空格处的功能，是要保存下一次阶乘的值，如 7!等价于 a=b!*7， b的值应该是 b=a*（ 7+1）；故本题正确答案为 A。 39 【正确答案】 A 【试题解析】 本题中 fact（）过程表示求得 n 的阶乘，即 n！；程序中， i、 j、 k分别表示该整数的百、十、个位上的数，旨在使得 100 * i + 10 * j + k = i！ + j！ + k！。故正
32、确答案为选项 A。 40 【正确答案】 C 【试题解析】 求字符串长函数 Len(s)，英文全称： Length，返回字符串 s的长度，即所 包含的字符的个数。 Do WhileLoop ，当程序开始执行时，先计算循环 “条件 “值，当条件为假时结束循环，否则执行循环体。字符串截取函数Mid$(s,n1,n2),从 s第 n1 个字符开始，向后截取 n2个字符。 St过程中 strX前有ByVal，是按值传递，即 s1将值传给形参 strX； strY是按地址传递， s2把地址传给了形参 strY， strX的变化不引起 s1的变化，但 strY的变化却能改变 s2。程序开始执行时，先将字符变
33、量 s1的值按值传递的方式传给了过程 St，i=Len(strX)=Len(s1)=4；执行 do while循环，循环条件 4=1为真，执行循环体，Mid(strX,4,1)=d, Ts = Ts + d = d， i=3；循环条件 3=1为真，执行循环体，Mid(strX,3,1)=c,Ts = Ts+d = dc， i=2；如此循环，知最后 strY=dcba,因 strY与 s2是按地址传递的方式，故 strY值的变化也会引起 s2值的变化，所以s2=strY=dcba；本题正确答案为 C。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面并设置控件属性。程序中
34、用到的控件及其属性见表 3.81和表 3.82。步骤 2：分析并编写程序代码。参考答案 Private Sub Command1_Click()Text1.Text = InputBox(“请输入身高 “,“输入对话框 “,100,100)Text2.Text = InputBox(“请输入体重 “,“输入对话框“,100,100)End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.83。 步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() VScro
35、ll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change() Picture1.Height = VScroll1.ValueEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件， 画 1个计时器 timer1，设置计时器 Interval属性为1000， Enabled属性设置为 False。 步骤 2：分析并编
36、写程序代码。 程序提供代码 Dim t(3) As Integer Private Sub Cmd_Click(Index As Integer) Select Case ? Case 0 Timer1.Enabled = ? Cmd(1) Enabled = True If Cmd(0) Caption = “开始 “ Then Cmd(0) Caption = “继续 “ End If Cmd(0) Enabled = ? Case 1 Timer1.Enabled = False Cmd(0) Enabled = True Cmd(1) Enabled = False Case 2 En
37、d End Select End Sub Private Sub Timer1_Timer() t(3) = t(3) + 1 If t(3) = ? Then t(3) = 0 t(2) = t(2) + 1 If t(2) = 60 Then t(2) = 0 t(1) = t(1) + 1 End If End If For i = 1 To 3 Text( ? ) Text = t(i) Next End Sub 程序结束 参考答案 第 1个？处填入： Index 第 2个？处填入： True 第 3个？处填入： False 第 4个？处填入： 60 第 5个？处填入： i - 1 步
38、 骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，添加一个标题为 “所有行中最大数的平均值 “的标签Label1，再添加一个初始内容为空的文本框 Text2。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 5) As Integer Private Sub Command1_Click() Open App.Path & “in4.dat“ For Input As #1 For i = 1 To 20 For j = 1 To 5 Input #1, a(i, j) Text1 = Text1
39、 + Str(a(i, j) + Space(2) Next j Next i Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() Dim sum As Long Dim max As Integer For i = 1 To 20 max = a(i, 1) For j = 1 To 5 If a(i, j) max Then max = a(i, j) End If Next j sum = sum + max Next i Text2 = Int(sum / 20) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag = True b% = 2 Do While b% = Int(a / 2) And flag If Int(a / b%) = a / b% Then flag = False Else b% = b% + 1 End If Loop isprime = flag End Function 程序结束 参考答案
