[计算机类试卷]国家二级（VB）机试模拟试卷30及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 30及答案与解析 一、选择题 1 为了让计时器控件每隔 10秒产生一个 Timer事件，应把 Interval属性设置为 （ A） 10 （ B） 100 （ C） 1000 （ D） 10000 2 有人在属性窗口中通过设置 Picture属性为命令按钮装入了图片，但没有显示，其原因是 （ A）命令按钮的 Enabled属性为 False （ B）命令按钮的 Sytle属性为 0 - Standard （ C）命令按钮的 Default属性为 False （ D）没有用 DisabledPicture属性为命令按钮装入图片 3 窗体的单击事件过程如下： Pri

2、vate Sub Form_Click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k Print m(4) End Sub 运行程序时，单击窗体，则窗体上显示的是 （ A） 7 （ B） 6 （ C） 5 （ D） 4 4 窗体的单击事件过程如下： Private Sub Form_Click() Dim str As String str = InputBox(“Input string :“) For i = 1 To Len(str) s1 = UCase(Mid(str, i, 1) + s1 Next i Print s1 End

3、Sub 运行程序时，单击窗体，输入 visualbasic，则窗体上显示的是 （ A） CISABLAUSIV （ B） VISUALBASIC （ C） visualbasic （ D） cisablausiv 5 有如下程序代码： Private Sub Form_Click () Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub Function f(m As Integer) As Integer Static b As Integer b = b + 1 f

4、= m * b End Function 运行程序，单击窗体后，窗体 上显示的是 （ A） 12 （ B） 3 （ C） 6 （ D） 9 6 窗体的单击事件过程如下： Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i * 2 + j If i = j Then Sum = Sum + a(i, j) End If Next j Next i Print Sum End Sub 以下关于上述程序的叙述中，错误的是 （ A）输出结果是数组 a中各元素值之和 （ B）数

5、组 a默认的行、列最小下标均为 0 （ C） a(4,3)的值是 11 （ D） a(2,4)的值是 8 7 程序代码如下： Private Sub Form_Click () a = 3: b = 3 Call f(a, b) Print a； b End Sub Private Sub f(ByVal x, ByRef y) x = x + x y = y + y End Sub 运行程序，单击窗体后，窗体上显示的是 （ A） 3 6 （ B） 3 3 （ C） 6 3 （ D） 6 6 8 窗体上有一个名称为 Opt1的单选按钮控件数组，包含 2个单选按钮，下标分别为 1、 2，标题分别

6、为 “显示图片 “、 “显示文本 “。还有一个名称为 Picture1的图片框和一个名称为 Text1的文本框。工程文件的程序代码如下： Private Sub Form_Load() Picture1.Picture = LoadPicture(“e:p1.bmp“) Text1.Text = “VisualBasic“ Picture1.Visible = False Text1.Visible = False End Sub Private Sub Opt1_Click(Index As Integer) If Index = 1 Then Picture1.Visible = True

7、 Text1.Visible = False End If If Index = 2 Then Picture1.Visible = False Text1.Visible = True End If End Sub 对于上述程序代码，以下叙述中错误的是 （ A）如果把 If语句中的条件 Index = 1改为 Opt1=True ，不影响程序的正确执行 （ B）过程的参数 Index对应于被选中单选按钮的下标 （ C）当单击 “显示图片 “单选按钮时，显示图片框及其中的图片 （ D）当单击 “显示文本 “单选按钮时，显示文本框及其中的文本 9 窗体上有一个名称为 List1的列表框控件，其

8、List属性值为一组花卉的名称。一个名称为 Picture1的图片框。窗体外观如图所示。程序代码如下： Private Sub List1_Click() For i=0 To List1.Listcount-1 if List1.Selected(i)=True Then Picture1.Picture=LoadPicture(“e:p“ x End Sub 运行程序时，单击窗体，窗体上显示的是 （ A） 3 12 （ B） 12 3 （ C） 4 13 （ D） 13 4 11 窗体上有一个名称为 Command1的命令按钮。窗体的两个鼠标事件过程如下： Private Sub Form

9、_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Move X, Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Move X, Y End Sub 对于以上两个事件过程，以下叙述中正确的是 （ A）参数 Button 用于确定按下的鼠标键 （ B）两个事件过程的功能是完全等价的 （ C） Shift值用于确定 Sh

10、ift键的状态 （ D）程序有错，程序运行中命令按钮的位置不能改变 12 窗体的单击事件过程如下： Private Sub Form_Click() n = FreeFile Open “e:f1.txt“ For Input As n Do While Not EOF(n) Line Input #n, str1 Print str1 Loop Close End Sub 对于以上程序，如下叙述中错误的是 （ A） Open打开一个随机文件 （ B） n = FreeFile的作用是自动获取文件号，并赋值给 n （ C） Line Input语 句从 #n对应的文件中读数据，并赋值给 str

11、1 （ D） Not EOF(n)的含义是没有到达 n所对应文件的末尾 13 设某二叉树的后序序列为 CBA，中序序列为 ABC，则该二叉树的前序序列为 （ A） BCA （ B） CBA （ C） ABC （ D） CAB 14 下列叙述中正确的是 （ A）存储空间不连续的所有链表一定是非线性结构 （ B）结点中有多个指针域的所有链表一定是非线性结构 （ C）能顺序存储的数据结构一定是线性结构 （ D）带链的栈与队列是线性结构 15 算法时间复杂度的度量方法是 （ A）算法程序的长度 （ B）执行算法所需要的基本运算次数 （ C）执行算法所需要的所有运算次数 （ D）执行算法所需要的时间 1

12、6 设循环队列为 Q(1: m)，初始状态为 front=rear=m。现经过一系列的入队与退队运算后， front=rear=1，则该循环队列中的元素个数为 （ A） 1 （ B） 2 （ C） m-1 （ D） 0或 m 17 计算机软件的构成是 （ A）源代码 （ B）程序和数据 （ C）程序和文档 （ D）程序、数据及相关文档 18 下面不属于软件设计阶段任务的是 （ A）软件的 详细设计 （ B）软件的总体结构设计 （ C）软件的需求分析 （ D）软件的数据设计 19 下面属于黑盒测试方法的是 （ A）边界值分析法 （ B）基本路径测试 （ C）条件覆盖 （ D）条件 -分支覆盖 2

13、0 一名雇员就职于一家公司，一个公司有多个雇员。则实体公司和实体雇员之间的联系是 （ A） 1:1联系 （ B） 1:m联系 （ C） m:1联系 （ D） m:n联系 21 在数据库系统中，用于对客观世界中复杂事物的结构及它们之间的联系进行描述的是 （ A）概念数据模型 （ B）逻辑数据模型 （ C）物理数据模型 （ D）关系数据模型 22 以下合法的 VB变量名是 （ A） x_y （ B） Print （ C） _b （ D） m-n 23 以下关于 VB的叙述中，错误的是 （ A） VB的窗体模块只包含由控件组成的窗体 （ B）在 VB集成开发环境中，既可以运行程序，也可以调试程序 （

14、 C） VB采用事件驱动的编程机制 （ D） VB程序可以编译为 .exe文件 24 VB工程文件的扩展名是 （ A） .vbp （ B） .frm （ C） .vbg （ D） .bas 25 设有数组声明语句如下： Dim a(-1 to 2, ,0 to 5) a所包含的数组元素个数是 （ A） 24 （ B） 20 （ C） 18 （ D） 15 26 能够被窗体或控件所识别的操作称为 （ A）事件 （ B）方法 （ C）过程 （ D）属性 27 函数表达式 Sgn(-10)的值是 （ A） -1 （ B） 0 （ C） 1 （ D） 10 28 设： a = 3， b = 5， c

15、= 4， d = 7，表达式 a d) Or Not( b y, “go“, “back“)。以下与该表达式具有相同功能的语句是 （ A） If y = y Then A = “go“ Else A = “back“ End If （ C） If y 、 d) Or Not( b d为假， b y, “go“, “back“)意思是如果 x y,则 A的值为 “go“，否则 A的值为 “back“。观察四个选项，和 A=IIf(x y, “go“, “back“)意思相同的只有 A项，故选择 A项。 30 【正确答案】 A 【试题解析】 默认情况下，整个应用程序是从设计时的第一个窗口开始执行的

16、，如果先执行 Sub Main过程，必须通过手动方式设置，故 A项表述错误。不能把标准模块设置为启动模块，故 B项表述正确。 Hide方法功能是将窗体隐藏起来，但窗体仍在内存中，还可以引用窗体中的控件及 各种属性，故选项 C表述正确；Show方法功能是将窗体装入内存并显示出来，故 D项表述正确。 31 【正确答案】 A 【试题解析】 随机文件记录中的每一条记录的长度是固定的，记录中的字段的长度也是固定，但各个字段长度并不一定是相同的，故 A项表述正确， C表述错误。用 Append方式打开的文件，指定文件顺序输出方式，并向文件的尾部追加写入数据，故只进行写操作，不进行读操作，故 B 选项表述错

17、误。随机文件占用的空间较大，而顺序文件占用空间少，容易使用，故 D表述错误。 32 【正确答案】 A 【试题解析 】 Cls 方法用来清除由 Print方法显示的文本或在图片框中显示的图形。故选择 A项。 33 【正确答案】 A 【试题解析】 当 Enabled 属性为 False时，禁用文本框，同时 Tab顺序也不起作用，故 A项表述正确；当 TabStop 属性为 false时， Tab 不起作用，但能够接收从键盘输入的数据，故 B项表述错误。 当获得焦点时，触发 SetFocus 事件，故选项C错误。 PasswordChar属性用来指定显示在文本框中替代的字符，若PasswordCha

18、r属性设为 “a“,将会显示出 “*“；若 PassWord 属性设为 “a“，则输入到文本框的字符将显示为 “a“，故选项 D表述错误。 34 【正确答案】 A 【试题解析】 当 Enabled 属性为 False时，禁用文本框，同时 Tab顺序也不起作用，故 A项表述正确；当 TabStop 属性为 false时， Tab 不起作用，但能够接收从键盘输入的数据，故 B项表述错误。 当获得焦点时，触发 SetFocus 事件，故选项C错误。 PasswordChar属性用来指定显示在文本框中替代的字符，若PasswordChar属性设为 “a“,将会显示出 “*“；若 PassWord属性设

19、 为 “a“，则输入到文本框的字符将显示为 “a“，故选项 D表述错误。 35 【正确答案】 A 【试题解析】 容器是包含其它对象的对象。图像框控件主要作用显示图片，不能放其他控件，故 A不能做容器。框架是一个容器控件 ,用于将屏幕上的对象分组，不同的对象可以放在一个框架中；图片框是一个完整的图形控件，可以作为其他对象的容器。选项 B、 C和 D都可以作为容器使用。故选 A。 36 【正确答案】 A 【试题解析】 当执行 Unload 事件后，从当前的内存中清除窗体，包括关闭和执行 Unload语句所触发的事件， 故 A项表述错误。当窗体的 Enabled 属性为 False时，窗体被禁止，不

20、能响应鼠标、键盘操作，故 B 项表述正确。 KeyPreview 属性决定是否在控件的键盘事件之前激活窗体的键盘事件， KeyPreview 属性为 True时，窗体能优先响应键盘事件， C项表述正确。 Load事件主要用来在启动程序时对属性和相关变量进行初始化，在装入窗体后，如果运行程序，将自动触发该事件，故 D项表述正确。 37 【正确答案】 A 【试题解析】 Picture 属性可给命令按钮指定一个图片，在 Style属性值为 1的情况下， Picture的属性才有效，也就是当 Style属性为 0时， Picture 属性无效，故选择 A项。 38 【正确答案】 A 【试题解析】 列表

21、框中，用户可以选择一个或多个选项，选项 A表述错误。Sorted 属性指定控件中的项目是否自动按字母顺序排列， True表述列表中的项目按字母顺序排列，选项 B 表示正确。 ListCount属性表述列表框中表项的个数， C项表述正确。 AddItem方法用来在列表框中插入一个项目，参数中的索引值能够将列表项添加到列表框指定的位置，故 D项表述正确。 39 【正确答案】 A 【试题解析】 Value属性表述滚动块在滚动条中的当前位置， SmallChange用来设置单击滚动条两端箭头时， Value增加或减少的增量值，则 Value属性值的变化量是 SmallChange属性的值， A项正确。

22、当 Value属性值等于 Max属性值时，滚动块位于滚动条的最上部，故选项 B 错误。当拖动滚动框时触发 Scroll 事件，但当滚动框的位置改变时，触发 Change事件，故选项 C错误。 Min、 Max属性值表述滚动条能达到的最小值和最大值，其取值范围在 -3276832767，选项 D错误。 40 【正确答案 】 B 【试题解析】 如果光标移到某个位置，按下鼠标键，则产生 MouseDown 事件，其中（ x， y）是光标当前所处位置坐标，故选项 A正确。建立弹出式菜单通常分两步进行，首先用菜单编辑器建立菜单，然后用 PopupMenu 方法弹出显示，故选项 B 错误，不是窗体事件。

23、PopupMenu 方法用来显示弹出式菜单， PopupMenu 后接菜单名。菜单名是在菜单编辑器中定义的主菜单项名，故选项 C正确。通常把 PopupMenu 方法放在 MouseDown 事件中，该事件响应所有的鼠标单击事件。对于两个键的鼠标来说，左键的 Button 参数值为 1，右键的 Button参数值为 2，因此 If Button And 2 条件语句无效，即只要按下鼠标键，不论是左键还是右键都能触发 PopupMenu。故选项 D正确。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.1463.148步

24、骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并添加一个名称为 Sha1的形状控件，建立菜单的属性见表 3.149。步骤 2：编写程序代码。参考答案 Private Sub shape1_Click() Sha1.Shape = 1End SubPrivate Sub shape2_Click() Sha1.Shape = 3End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub C

25、ommand1_Click() Dim y As Integer For i = 0 To 2 If ? = True Then y = val(Option1(i)？ ) End If Next Call calc(y) End Sub Private Sub_calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 Do While i = Form1.Height - 200 Then Picture1.Top = ? End If End Sub 程序结束 参考答案 第 1个？处填入： 500 第 2个？处填入： Value

26、第 3个？处填入： 0 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim s As String CommonDialog1.Filter = “所有文件 |*.*|文本文件 |*.txt“ CommonDialog1.FilterIndex = ? On Error GoTo openerr CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpe

27、n Open ? For Input As #1 Input #1, s Close #1 Text1.Text = ? openerr： End Sub Private Sub Command2_Click() 考生需要编写的程序 End Sub Private Sub Command3_Click() CommonDialog1.Filter = “文本文件 |*.txt|所有文件 |*.*“ CommonDialog1.FilterIndex = 1 On Error GoTo openerr CommonDialog1.FileName = “out5.txt“ CommonDialo

28、g1.InitDir = App.Path CommonDialog1.Action = ? Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 openerr： End Sub 程序结束 参考答案 第 1个？处填入： 2 第 2个？处填入： CommonDialog1.FileName 第 3个？处填入： s 第 4个？处填入： 2 考生需要编写的程序 Private Sub Command2_Click() Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = “ For n = 1 To Len(s) ch = Mid(s, n, 1) If ch = “E“ Or ch = “N“ Or ch = “T“ Then ch = LCase(ch) ElseIf ch = “e“ Or ch = “n“ Or ch = “t“ Then ch = UCase(ch) End If Text1.Text = Text1 & ch Next End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。