1、国家二级（ VB）机试模拟试卷 49及答案与解析 一、选择题 1 数据库设计过程不包括 （ A）概念设计 （ B）逻辑设计 （ C）物理设计 （ D）算法设计 2 在 Visual Basic环境下设计应用程序时，系统能自动检查出的错误是 ( )。 （ A）语法错误 （ B）逻辑错误 （ C）逻辑错误和语法错误 （ D）运行错误 3 下列合法的变量名是 ( )。 （ A） sum a （ B） num_9 （ C） print$ （ D） 5avg 4 已知： x 6 y 39 则表达式 “yx * Sgn(x)“的值为 ( )。 （ A） 6.5 （ B） 6 （ C） 6 （ D） 6.5
2、 5 在 Visual Basic中，所有标准控件都具有的属性是 ( )。 （ A） Caption （ B） Name （ C） Text （ D） Value 6 下列有语法错误的赋值语句是 ( )。 （ A） y 7 9 （ B） s m n （ C） Text1.Text 10 （ D） m n 12 7 在面向对象的程序设计中，可被对象识别的动作称为 ( )。 （ A）方法 （ B）事件 （ C）过程 （ D）函数 8 下列关于顺序文件的描述中，正确的是 ( )。 （ A）文件的组织与数据写入的顺序无关 （ B）主要的优点是占空间少，且容易实现记录的增减操作 （ C）每条记录的长度是
3、固定的 （ D）不能像随机文件一样灵活地存取数据 9 下列操作说明中，错误的是 ( )。 （ A）在具有焦点的对象上进行一次按下字母键操作，会引发 KeyPress事件 （ B）可以通过 MousePointer属性设置鼠标光标的形状 （ C）不可以在属性窗口设置 MousePointer属性 （ D）可以在程序代码中设置 MousePointer属性 10 以下打开 Visual Basic菜单编辑器的操作中，错误的是 ( )。 （ A）执行 “编辑 “菜单中的 “菜单编辑器 “命令 （ B）执行 “工具 “菜单中的 “菜单编辑器 “命令 （ C）单击工具栏中的 “菜单编辑器 “按钮 （ D
4、）右击窗体，在弹出的快捷菜单中选择 “菜单编辑器 “命令 11 Visual Basic中的 “启动对象 “是指启动 Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动对象 “的描述中，错误的是 ( )。 （ A）启动对象可以 是指定的标准模块 （ B）启动对象可以是指定的窗体 （ C）启动对象可以是 Sub Main过程 （ D）若没有经过设置，则默认的 “启动对象 “是第一个被创建的窗体 12 为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为( )。 （ A） BackColor （ B） BorderStyle （ C
5、） ForeColor （ D） BackStyle 13 Visual Basic控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption的控件是 ( )。 （ A）列表框 (ListBox) （ B）标签 (Label) （ C）文本框 (TextBox) （ D）组合框 (ComboBox) 14 下列说法中，错误的是 ( )。 （ A）将焦点移至命令按钮上，按 Enter键，则引发命令按钮的 Click事件 （ B）单击命令按钮，将引发命令按钮的 Click事件 （ C）命令按钮没有 Picture属性 （ D）命令按钮不支持 DblCli
6、ck事件 15 为了将 “联想电脑 “作为数据项添加到列表框 List1的最前面，可以使用语句( )。 （ A） List1.AddItem “联想电脑 “， 0 （ B） List1.AddItem “联想电脑 “， 1 （ C） List1.AddItem 0， “联想电脑 “ （ D） List1.AddItem 1， “联想电脑 “ 16 下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。 （ A） InitDir属性用于设置对话框中显示的起始目录 （ B） Filter属性用于设置对话框默认的过滤器 （ C） DefaultExt属性用于设置对话框中默认的文件
7、类型 （ D） FileTitle属性用于存放对话框 中所选择的文件名 17 下列事件的事件过程中，参数是输入字符 ASCII码的是 ( )。 （ A） KeyDown事件 （ B） KeyUp事件 （ C） KeyPress事件 （ D） Change事件 18 已知图片框 Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是 ( )。 （ A）在设计阶段选择图片框 Picture1，并按 Delete键 （ B）在运行期间执行语句 Picture1.Picture LoadPicture(“) （ C）在运行期间执行语句 Picture1.Pictu
8、re “ （ D）在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键 19 窗体上有 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 为了实现上述功能
9、，应该在横线处填入的内容为 ( )。 （ A） Enabled True （ B） Enabled False （ C） Visible True （ D） Visible False 20 窗体上已有的 3个单选按钮组成了 1个名为 ChkOpt1的控件数组。用于区分控件数组 ChkOpt1中每个元素的属性是 ( )。 （ A） Caption （ B） ListCount （ C） ListIndex （ D） Index 21 在窗体上画一个名称为 Command1的命令按钮 ，并编写如下程序： Option Base 1 Private Sub Command1_Click() Dim
10、 a(4， 4) 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 22 在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Function Fun(x) y 0 If x1 （ D） i 10 Do i i
11、 2 Loop Until i 1 26 编写如下程序： 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
12、 115 （ C） 35 15 （ D） 20 15 27 编写如下程序： 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 第二次，
13、 a a 1 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。 31 【正确答案】 A 【试题解析】 在窗体事件中，鼠标按键按下激发 MouseDown事件，鼠标按钮松开激发 MouseUp 事件，鼠标按下并松开后激发 Click事件，所以这三个事件的顺序是 MouseDown、 MouseUp、 Click，因此输出文字的顺序是 “欢迎！ “、 “热烈欢迎！ “、 “Welcome！ “。 32 【正确答案】 D 【试题解析】
14、 算法的空间复杂度是指算法在执行过程中所需要的内存空间，算法的时间复杂度，是指执行算法所需要的计算工作量，两者之间并没有直接关系，答案为 D。 33 【正确答案】 A 【试题解析】 在循环队列中，用队尾指针 rear指向队列中的队尾元素，用排头指针 front指向排头元素的前一个位置。因此，从排头指针 front指向的后一个位置直到队尾指针 rear指向的位置之间所有的元素均为队列中的元素。所以循环队列中的元素个数与队头指针和队尾指针的变化而变化， A正确。 34 【正确答案】 B 【试题解析】 二叉树中，度为 0的节点数等于度为 2的节点数加 1，即 n2=n0-1，叶子节点即度为 0，则
15、n2=79，总结点数为 n0+n1+n2=80+70+79=229，答案为B。 35 【正确答案】 C 【试题解析】 冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为9+8+7+6+5+4+3+2+1=45，选 C。 36 【正确答案】 D 【试题解析】 软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档 ，选 D。 37 【正确答案】 C 【试题解析】 开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求分析、总体设计和详细设计 3个阶段，实施则包括编码和测试两个阶段， C不属于开发阶段。 38 【
16、正确答案】 A 【试题解析】 结构化方法软件需求分析工具主要有数据流图、数据字典、判定树和判定表。 39 【正确答案】 A 【试题解析】 关系模型采用二维表来表示，即每个二维表称为一个关系。 40 【正确答案】 B 【试题解析】 A和 B 为一对多的联系，则对于 A中的每一个实 体， B 中有多个实体与之联系，而 B与 C为一对一联系，则对于 B中的每一个实体， C中之多有一个实体与之联系，则可推出对于 A中的每一个实体， C中有多个实体与联系，所以为一对多联系。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.138
17、。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.139 步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0 HScroll1.LargeChange = 50 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Print HScroll1.ValueEnd Sub 步骤 3：调试并运行
18、程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 （ 1）【操作步骤】 步骤 1：打开本题工程文件。 步骤 2： 分析并编写程序代码。 程序提供代码 Option Base 1 Function Fun(a() As Single) As Single 需要考生编写的内容 End Function Private Sub Command1_Click() Dim arr Dim arr2(40) As Single arr = Array(12.5, 65.4, 56, 73, 46.23, 58.25, 83.49, 96, 27.3, 36.78, _ 29.26, 8
19、9.4, 34.7, 45.4, 56.9, 67.4, 78, 98, 87.5, 76.8, _ 34.6, 55.8, 64.7, 43.7, 99.4, 84.7, 66.2, 23.9, 55.5, 44.1, _ 33.2, 43.5, 41.2, 28.3, 78.6, 98.3, 56.1, 73.6, 49.3, 48.3) For i = 1 To UBound(arr) arr2(i) = arr(i) Next i r = Fun(arr2() Text1.Text = Str(r) SaveData End Sub Sub SaveData() Open App.Pa
20、th & “out3.txt“ For Output As #1 Print #1, Text1.Text Close 1 End Sub 程序结束 参考答案 Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = Sum 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 （ 2）【操作步骤】 步骤 1：打开本题工程文件 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Command1.Caption = “开始 “ Command2.Caption = “停止 “ Ti
21、mer1.Interval = 50 Timer1.Enabled = False Label1.Caption = “热烈欢迎 “ Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = True End Sub Private Sub Command1_Click() Command1.Caption = “继续 “ Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Clic
22、k() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left 0 Then For k = 1 To 15 If Left(a(k), ? ) = Text1.Text Then c = c + “ “ + ? End If Next k If c = “ Then Text2.Text = “未找到！ “ Else Text2.Text = ? End If Else Text2.Text = “未输入查找内容！ “ End If End Sub 程序结束 参考答案 第 1个？处填入： #1 第 2个？处填入： Text1.Text 第 3个？处填入： n 第 4个？处填入： a(k) 第 5个？处填入： c 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
