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

1、国家二级（ VB）机试模拟试卷 36及答案与解析 一、选择题 1 Visual Basic中的 “启动对象 “是指启动 Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动对象 “的描述中，错误的是 ( )。 （ A）启动对象可以是指定的标准模块 （ B）启动对象可以是指定的窗体 （ C）启动对象可以是 Sub Main过程 （ D）若没有经过设置，则默认的 “启动对象 “是第一个被创建的窗体 2 为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为( )。 （ A） BackColor （ B） BorderStyle （ C）

2、 ForeColor （ D） BackStyle 3 Visual Basic控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption的控件是 ( )。 （ A）列表框 (ListBox) （ B）标签 (Label) （ C）文本框 (TextBox) （ D）组合框 (ComboBox) 4 下列说法中，错误的是 ( )。 （ A）将焦点移至命令按钮上，按 Enter键，则引发命令按钮的 Click事件 （ B）单击命令按钮，将引发命令按钮的 Click事件 （ C）命令按钮没有 Picture属性 （ D）命令按钮不支持 DblClick事

3、件 5 为了将 “联想电脑 “作为数据项添加到列表框 List1的最前面，可以使用语句( )。 （ A） List1.AddItem “联想电脑 “， 0 （ B） List1.AddItem “联想电脑 “， 1 （ C） List1.AddItem 0， “联想电脑 “ （ D） List1.AddItem 1， “联想电脑 “ 6 下列关于利用通用对话框产生的文件 对话框的相关属性的描述中，错误的是( )。 （ A） InitDir属性用于设置对话框中显示的起始目录 （ B） Filter属性用于设置对话框默认的过滤器 （ C） DefaultExt属性用于设置对话框中默认的文件类型 （

4、 D） FileTitle属性用于存放对话框中所选择的文件名 7 下列事件的事件过程中，参数是输入字符 ASCII码的是 ( )。 （ A） KeyDown事件 （ B） KeyUp事件 （ C） KeyPress事件 （ D） Change事件 8 已知图片框 Picture1中已装入一个图形 ，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是 ( )。 （ A）在设计阶段选择图片框 Picture1，并按 Delete键 （ B）在运行期间执行语句 Picture1.Picture LoadPicture(“) （ C）在运行期间执行语句 Picture1.Picture “ （

5、 D）在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键 9 窗体上有 1个名称为 Text1的文本框， 1个名称为 Timer1的计时器，且已在属性窗口将 Timer1的 Interval属性设置为 2000、 Enabled属性设置为 False。以下程序的功能是，单击窗体，则每隔 2秒钟在 Text1中显示一次当前时间。 Private Sub Form_Click() Timer1. End Sub Private Sub Timer1_Timer() Text1.Text Time() End Sub 为了实现上述功能，应该在横线处

6、填入的内容为 ( )。 （ A） Enabled True （ B） Enabled False （ C） Visible True （ D） Visible False 10 窗体上已有的 3个单选按钮组成了 1个名为 ChkOpt1的控件数组。用于区分控件数组 ChkOpt1中每个元素的属性是 ( )。 （ A） Caption （ B） ListCount （ C） ListIndex （ D） Index 11 在窗体上画一个名称为 Command1的命令按钮 ，并编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(4， 4

7、) For i 1 To 4 For j 1 To 4 a(i， j) (i 1)* 3 j Next j Next i For i 3 To 4 For j 3 To 4 Print a(j， i)； Next j Print Next i End Sub 运行程序，单击命令按钮，则输出结果为 ( )。 （ A） 6 9 7 10 （ B） 7 10 8 11 （ C） 8 11 9 12 （ D） 9 12 10 13 12 在窗体上画一个名称为 Command1的命令按钮，并编写如 下程序： Function Fun(x) y 0 If x1 （ D） i 10 Do i i 2 Loo

8、p Until i 1 16 编写如下程序： Private Sub Command1_Click() Dim x As Integer， y As Integer x InputBox(“输入第一个数 “) y InputBox(“输入第二个数 “) Call f(x， y) Print x， y End Sub Sub f(a As Integer， ByVal b As Integer) a a * 2 x a b b b 100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10和 15，则输出结果为( )。 （ A） 10 115 （ B） 20 115 （

9、 C） 35 15 （ D） 20 15 17 编写如下程序： Private Sub Command1_Click() Dim str1 As String， str2 As String str1 InputBox(“输入一个字符串 “) subf str1， str2 Print str2 End Sub Sub subf(s1 As String， s2 As String) Dim temp As String Static i As Integer i i 1 temp Mid(s1， i， 1) If temp“ Then subf s1， s2 s2 s2 第二次， a a 1

10、 0 1 1， b b 1 1 1 2 ， proc a*b i 1*2+2=4； 第三次， a a 1 0 1 1， b b 1 2 1 3 ， proc a*b i 1*3+2=5； 因此输出的结果为 3 4 5。 21 【正确答案】 A 【试题解析】 在窗体事件中，鼠标按键按下激发 MouseDown事件，鼠标按钮松开激发 MouseUp 事件，鼠标按下并松开后激发 Click事件，所以这三个事件的 顺序是 MouseDown、 MouseUp、 Click，因此输出文字的顺序是 “欢迎！ “、 “热烈欢迎！ “、 “Welcome！ “。 22 【正确答案】 D 【试题解析】 算法的空

11、间复杂度是指算法在执行过程中所需要的内存空间，算法的时间复杂度，是指执行算法所需要的计算工作量，两者之间并没有直接关系，答案为 D。 23 【正确答案】 A 【试题解析】 在循环队列中，用队尾指针 rear指向队列中的队尾元素，用排头指针 front指向排头元素的前一个位置。因此，从排头指针 front指向的后一个位置直到队尾 指针 rear指向的位置之间所有的元素均为队列中的元素。所以循环队列中的元素个数与队头指针和队尾指针的变化而变化， A正确。 24 【正确答案】 B 【试题解析】 二叉树中，度为 0的节点数等于度为 2的节点数加 1，即 n2=n0-1，叶子节点即度为 0，则 n2=7

12、9，总结点数为 n0+n1+n2=80+70+79=229，答案为B。 25 【正确答案】 C 【试题解析】 冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为9+8+7+6+5+4+3+2+1=45，选 C。 26 【正确答案】 D 【试题解析】 软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档，选 D。 27 【正确答案】 C 【试题解析】 开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求分析、总体设计和详细设计 3个阶段，实施则包括编码和测试两个阶段， C不属于开发阶段。 28 【正确答案】

13、 A 【试题解析】 结构化方法软件需求分析工具主要有数据流图、数据字典、判定树和判定表。 29 【正确答案】 A 【试题 解析】 关系模型采用二维表来表示，即每个二维表称为一个关系。 30 【正确答案】 B 【试题解析】 A和 B 为一对多的联系，则对于 A中的每一个实体， B 中有多个实体与之联系，而 B与 C为一对一联系，则对于 B中的每一个实体， C中之多有一个实体与之联系，则可推出对于 A中的每一个实体， C中有多个实体与联系，所以为一对多联系。 31 【正确答案】 D 【试题解析】 VB 中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB的保留

14、字。 _x不能以 _下划线开头，不合法； 2y不能以数字开头，不合法； a#b 中有 #，不合法； D选项符合命名规则，故D选项正确。 32 【正确答案】 C 【试题解析】 VB 应用程序不一定从 From_Load 事件开始执行，它是由工程中启动对象决定先从哪儿开始执行。故 C选项错误。 33 【正确答案】 A 【试题解析】 任何变量在被声明后都会有一个初始值。一般情况下，数值型变量的初始值为 0；字符串变量的初始值为空字符串；变体型变量的初始值为空值，即Null 值；布尔型的初始值为假，即 False。本题中变量 a定义时没有声明数据类型，默认为 Variant变体型变量，默认值是 Nul

15、l；变量 b 定义为整型变量，默认值为 0。所以输出 a为空白， b 为 0 。故 A选项错误。 34 【正确答案】 C 【试题解析】 控件数组是由类型相同的控件组成，具有相同的名称，用下标Index属性区分各数组元素，它们共用相同的事件过程。故 C选项错误。 35 【正确答案】 B 【试题解析】 标准模块文件的扩展名是 .bas，不是 .frm，故 A选项错误。一个工程中可以包含一个或多个标准模块文件，故 C选项错误。类模块文件的扩展名为 .cls，不是 .bas。故 D选项错误。 B选项正确。 36 【正确答案】 B 【试题解析】 自定义数据类型的语法结构是： Type 自定义类型名 (下

16、标 ) As (下标 ) As End Type 其中，成员可以定义为定长的或不定长字符串，也可定义为数组。 本题中， B选项符合语法规则，故 B 选项正确。 37 【正确答案】 A 【试题解析】 按算术运算符优先级从高到低顺序依次计算： /、 、 Mod，结果为5，故选 A。 38 【正确答案】 B 【试题解析】 用 Array函数可以给 Variant类型的动态数组赋值；也可给Variant类型的变量赋值，此时该变量也看作是一个 Variant类型的动态数组。 例如： Dim a()As Variant ， b As Variant a Array(1， “abc“， 3)： b Arra

17、y(5,6) 本题中 A、 D选项是把 arr都定义为 Variant型的变量， C选项是把 arr定义为动态数组，这都可以用 Array函数给 arr数组赋初值； B 选项定义了一个 Variant型的一维固定数组 arr， Array函数不能给固 定数组赋初值，故 B选项错误。 39 【正确答案】 C 【试题解析】 在窗体模块中声明的 Public变量，其作用域是应用程序的所有过程，故 C选项错误。但用时注意：变量名前要加窗体名，否则不能被其他模块的过程引用，只能被本模块内的所有过程引用。 40 【正确答案】 C 【试题解析】 顺序文件的记录是顺序存放的，先写入的记录存放在文件的最前面，后

18、写入的依次往后面存放，最后写入的记录放在文件的最后面。如果访问某条记录，要先访问前面的记录，才能访问后面的记录，不能按记录号直接访问。故 D选项错误。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.159。步骤 2：编写程序代码。参考答案 Private Sub C1_Click() C1.Width = C1.Width + 100End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.160。步骤 2：编写程序代码

19、。参考答案 Private Sub L1_Click() Shape1.Shape = L1.TextEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 （ 1）【操作步骤】步骤 1：打开本题工程文件，在窗体上添加一个单选按钮控件组 Option1，程序中用到的控件及属性见表 3.161。步骤 2：分析并编写程序代码。程序提供代码 Private Sub Command1_Click() For k = 0 To 3 If Option1(k).Value Then n = k End If Next k Option1(n).Value =

20、 False n = n + 1 If n = 4 Then n = 0 End If Option1(n).Value = TrueEnd Sub程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。（ 2）【操作步骤】步骤 1：打开本题工程文件步骤 2：分析并编写程序代码。程序提供代码 Dim is_num As BooleanPrivate Sub Command1_Click() Dim tmpStr As String * 50 Select Case Combo1.ListIndex Case 0 tmpStr = Left(Trim(Text1.Text), 3) Case

21、 1 tmpStr = Right(Trim(Text1.Text), 3) Case 2 tmpStr = Mid(Trim(Text1.Text), 3, 4) End Select Text2.Text = tmpStr End Sub 程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】步骤 1：打开本题工程文件，利用菜单编辑器，按表 3.69中的设置建立菜单项，在 窗体 Form1中绘制一个文本框，其相关属性设置见表 3.85和表 3.86。步骤 2：分析并编写程序代码。程序提供代码 Option Base 1Dim Arr(

22、100) As IntegerDim sum As IntegerSub ReadData()Open App.Path & “ & “datain1.txt“ For Input As #1For i = 1 To 100 Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & “ & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案 Private Sub Calc_Click() Text1.Text = “ For i = 1 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sumEnd SubPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Save_Click() WriteData “dataout.txt“, sumEnd Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。