1、国家二级（ VB）机试模拟试卷 105及答案与解析 一、选择题 1 下列叙述中正确的是 （ A）一个算法的空间复杂度大，则其时间复杂度也必定大 （ B）一个算法的空间复杂度大，则其时间复杂度必定小 （ C）一个算法的时间复杂度大，则其空间复杂度必定小 （ D）算法的时间复杂度与空间复杂度没有直接关系 2 下列叙述中正确的是 （ A）循环队列中的元素个数随队头指针与队尾指针的变化而动态变化 （ B）循环队列中的元素个数随队头指针的变化而动态变化 （ C）循环队列中的元素个数随队尾指针的变化而动态变化 （ D）以上说法都不对 3 一棵二叉树中共有 80个叶子结点与 70个度为 1的结点，则该二叉树
2、中的总结点数为 （ A） 219 （ B） 229 （ C） 230 （ D） 231 4 对长度为 10的线性表进行冒泡排序，最坏情况下需要比较的次数为 （ A） 9 （ B） 10 （ C） 45 （ D） 90 5 构成计算机软件的是 （ A）源代码 （ B）程序和数据 （ C）程序和文档 （ D）程序、数据及相关文档 6 软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是 （ A）测试 （ B）设计 （ C）可行性研究 （ D）实现 7 下面不能作为结构化方法软件需求分析工具的是 （ A）系统结构图 （ B）数据字典 (DD) （ C）数据流程图 (DFD图 )
3、 （ D）判定表 8 在关系模型中，每一个二维表称为一个 （ A）关系 （ B）属性 （ C）元组 （ D）主码（键） 9 若实体 A和 B是一对多的联系，实体 B和 C是一对一的联系，则实体 A和 C的联系是 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 10 有三个关系 R、 S和 T如下：则由关系 R和 S得到关系 T的操作是 （ A）选择 （ B）投影 （ C）交 （ D）并 11 在 Visual Basic中，不能关闭的窗口是 （ A）窗体设计器窗口 （ B）工程窗口 （ C）属性窗口 （ D）立即窗口 12 下列说法中，错误的是 （ A）变量名长度不能超过 25
4、5个字符 （ B）变量名的第一个字符可以是字母或数字 （ C）变量名只能由字母、数字和下划线组成 （ D）变量名不能使用保留字 13 长整型常数的类型说明符为 （ A） % （ B） # （ C） ） （ C）下划 线（ _） （ D）连字符（ -） 17 在标准模块中，将 a定义为全局整型变量的语句是 （ A） Static a As Integer （ B） Dim a As Integer （ C） Private a As Integer （ D） Public a As Integer 18 为了保存数据，需打开顺序文件 “E:UserData.txt“，以下正确的命令是 （ A）
5、Open E:UserData.txt For Input As #1 （ B） Open “E:UserData.txt“ For Input As #2 （ C） Open E:UserData.txt For Output As #1 （ D） Open “E:UserData.txt“ For Output As #2 19 下列关于菜单项的描述中，错误的是 （ A）通过内缩符号（ ）设置菜单项的层次 （ B）通过 Enabled属性设置菜单项的有效性 （ C）菜单项的索引号可以不连续 （ D）菜单项的索引号必须从 1开始 20 对于含有多个窗体的工程而言，以下叙述中正确的是 （ A）
6、没有指定启动窗体时，系统自动将最后一 个添加的窗体设置为启动窗体 （ B）启动窗体可以通过 “工程属性 “对话框指定 （ C） Load方法兼有装入和显示窗体两种功能 （ D） Hide方法可以将指定的窗体从内存中清除 21 命令按钮不支持的事件为 （ A） Click （ B） DblClick （ C） GotFocus （ D） MouseMove 22 已知列表框控件 List1中已放入若干表项，下列关于 List1的叙述中错误的是 （ A）第一个表项的序号为 0 （ B）没有选中任何一个表项时， ListIndex属性的值为 -1 （ C）最后一个表项 的序号为 ListCount
7、（ D）可用 MultiSelect属性设置是否可多选 23 下列不属于计时器控件属性的是 （ A） Enabled （ B） Interval （ C） Index （ D） Visible 24 窗体上已有 1个名称为 Picture1的图片框，要求实现下面 2个功能之一： （ 1）在窗体上移动鼠标时，立即将 Picture1显示在鼠标位置 （ 2）在窗体上单击鼠标时，立即将 Picture1显示在鼠标位置 下面不能实现上述任何功能的事件过程是 （ A） Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
8、 Single, Y As Single)Picture1.Move X, YEnd Sub （ B） Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub （ C） Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) （ D） Private Sub Form_MouseMove(Button As
9、 Integer, Shift As Integer,X As Single, Y As Single) 25 以下控件中，能显示滚动条的是 （ A）文本框 （ B）形状 （ C）标签 （ D）图片框 26 下列关于水平滚动条的叙述中，错误的是 （ A） Value属性值表示单击滚动条两端的箭头时，滚 动框向左或向右移动的增量 （ B） Scroll事件在鼠标拖动滚动框时产生 （ C）用鼠标拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端箭头时，会触发 Change事件 27 下列关于控件数组的叙述中，正确的是 （ A）控件数组可以由不同类型的控件组成 （ B）控件数组元素的最小
10、下标值为 1 （ C）在设计阶段，可以改变控件数组元素的 Index属性值 （ D）控件数组的名字由 Caption属性指定 28 判断复选框是否被选中的属性为 （ A） Selected （ B） Checked （ C） Value （ D） Index 29 命令按钮、单选按钮、复选框都可以通过 Picture属性在控件上显示图片，但需事先设置某一属性，该属性为 （ A） Appearance （ B） Style （ C） DisabledPicture （ D） DownPicture 30 以下不可以作为 “容器 “的控件是 （ A）图片框 （ B）图像框 （ C）框架 （ D）窗
11、体 31 编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 2 If a * b 0 End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） True （ B） False （ C） 1 （ D） -1 32 编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score 85 Then r = 1 ElseIf score 60 Then r = 2 Else r = 0
12、 End If Print r End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 0 （ B） 1 （ C） 2 （ D） 86 33 编写如下程序： Private Sub Command1_Click() Dim n As Integer, t As Long Static s As Integer t = 1 For n = 1 To 3 t = t * n s = s + t Next Print s End Sub 程序运行后，第二次单击命令按钮 Command1时，输出结果为 （ A） 6 （ B） 9 （ C） 12 （ D） 18 34 编写如下
13、程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y 10 Then Exit Do Else x = x + 3 End If Loop Until x 10 Then m = n fun1 = m + n End Function 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 30 （ B） 32 （ C） 34 （ D） 36 37 编写如下程序： Private Sub Command1_Click() Dim num As Inte
14、ger Dim k As Integer, n As Integer num = InputBox(“请输入一个正整数： “) k = num n = 2 Do Do While num Mod n = 0 Print n; num = num / n Loop n = n + 1 Loop Until n k / 2 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 20，则输出结果为 （ A） 2 2 5 （ B） 2 3 4 （ C） 2 3 4 5 （ D） 2 5 38 编写如下程序： Private Sub Command1_Click() Dim n As
15、Long, s As String n = InputBox(“输入一个数 “) Do While n “ Then For i = Len(x) To 1 Step -1 s = Mid(x, i, 1) If s k / 2条件时退出。执行结果选 A。 38 【正确答案】 A 【试题解析】 &为字符串连接函数。循环体取 n的个位数，十位数，百位数组成字符串 s。循环执行后 s字串和输入的字串倒序。选 A。 39 【正确答案】 B 【试题解析】 第一个 For循环对数组 a和数组 b的元素赋初值。第二个 For循环实现答应。嵌套循环先执行内循环，条件不满足时退出执行外循环。直到外循环也不满足
16、条件时结束。选 B。 40 【正确答案】 A 【试 题解析】 List1.AddItem可以为列表框添加列表项。 For循环中通过 Mid函数从字串中倒序取出字符，碰到空格时添加新列表项。选 A。 二、基本操作题 41 【正确答案】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 3 33所示。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表 3 34和表 3 35。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Commandl C1ic
17、k() Text1 PasswordChar “当 PasswordChar属性设置为空时。 Text1文本框显示内容 End Sub Private Sub Command2 Click() Textl PasswordChar=“*“当Password Char属性设置为 *时，用 *代替 Text1文本框中的字符显示 End Sub Private Sub Command3 C1ick() Textl=“清空文本框 Text1 SetFocus。 Text1获得焦点 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)图像框 (Image)的 Pic
18、ture属性用于在设计阶段设置图像框中显示的图片，它的 Stretch(自动伸缩 )属性返回设置一个值，决定是否调褴图形的大小以适应图像框控件。 图像框的宽和高分别南其 Width屙 f生和 Height屙 f生设置。 (2)PasswordChar属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论 Text属性值是什么，在文本框中都只显示该字符。另外， MuhiLine属性必须设置为 False。运用 SetFocus方法使文本框获得焦点。 三、简单应用题 42 【正确答案】 步骤 1：打开本题工程文件，添加计时器控件，并设置计时器Timerl的 Interval
19、属性为 3000， Enabled属性设置为 False。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Dim flag As Integer Private Sub Cmd_Click(Index As Integer) If Index 2Then通过下一条语句 End确定此处为单击按钮 “结束 ”，因此 Index为2 End E1se Imagel Picture=LoadPicture (“ yellow ico“)在图形框里栽入图片 flag=Index将按钮下标赋给 flag Timer1 Enabled=True End If End Sub
20、Private Sub Timer1 Timer() Select Case flag判断 flag确定按钮类型 Case 0 Imagel Picture=LoadPicture (“ green ico“)装载图片 Timer1 Enabled=False Case 1 Image1 Picture=LoadPicture (“ red ico“) Timer1 Enabled=False End Select End Sub 程序结束 步骤 3：调试并运行程序。关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤 2：打开代码 编辑窗口，去掉程序中的注释符 “?”，将问号
21、改为正确的内容。 Dim S As StringPrivate Sub Commandl_Click() Open App， Path “ in4 dat“For Input As #1 s=Input(LOF(1)， #(1)将文件读入 s中 Close： #1 Text1 Text=S End Sub Private Sub Command2 C1ick() DimmAs Integer If Len(s)=0 Then判断文本是否为空 MsgBox“请先使用 “读数据 “功能 !“ E1Se If Text1 SelIength=0 Then判断所选文本是否为空 MsgBox“请先选中文
22、本 !“ E1se t=“ For i=1 To Text1 SelLength C=Mid(Text1 SelText， i， 1) l将所选文本内容依次取一个字符比较 If C0 AndInStr(x， “n“)0 Then 在 x中查找是否有 “0“， “n“字母 m=m+l满足条件累加 End If t=“清空后，进行下一次循环 End If Next i Text2=Str(m)显示满足条件的个数 End If End If End Sub 步骤 3：调试并运行程序。关闭程序后按题目 要求存盘。 【试题解析】 (1)通过命令按钮的 Index属性来判断程序对按钮的响应，单击 “前进
23、”按钮， Index=0，则 Timer的 Enabled属性设置为 True， Timer的状态变为可用，且通过 Timer1_Timer事件过程中的 Select Case语句进行判断，在图像框中显示 3秒黄灯后显示绿灯，同理单击 “停止 ”按钮， Index=1，则 Timer的状态变为可用，且在图像框显示 3秒黄灯后显示红灯，直至下次单击某个命令按钮。单击“结束 ”按钮，即 Index=2，运行 End语句结束程序运行。 (2)单击 “读数据 ”按钮，将考生文件夹下 im4 dat文件的内容显示在 Text1文本框中。在 Command2_Click事件过程中，运用 Len()函数判断
24、文本框中是否有字符，如果 Len(s)=0那么弹出 MsgBox对话框 “请先使用 读数据 功能 !”，运用SelLength属性判断文本框中是否有字符被选中，如果 SelLength属性为 0那么弹出 MsgBox对话框 “请先选中文本 !”。 在 Text中选中部分文本，并单击 “统计 ”按钮， Lcase()函数把大写字母转化为小写字母使统计不区分大、小写字母，运用 InStr()函数判断是否在选中文本中同时出现。和 n两个字母，并统计这类单词的个数，并将统计结果显示在 Text2文本框内。 四、综合应用题 43 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在
25、代码编辑窗口指定位置编写以下代码。 For i=1 To Val(Textl Text)i从 1开始，第一个找到的肯定就是满足务件的最小素数 If IsPrime i)And IsPrime(Val(Text1 Text) i)Then判定两个数是否都满足素数条件 Labe11=i Labe12=Val(Text1 Text) i ExitFor End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 Function IsPrime()函数用来判断一个数是否为素数，在处理循环变量的上限时，为了节约循环的次数，设置为 Sqr(x)为 x的平方根，如果 x能被循环变量的值整除， IsPrime()函数的返回值为 False， x就不是素数。在Command1Click事件过程中，通过调用函数 判断是否为素数。只要出现一组数据满足条件，就停止。 For循环，这样可以保证是最小的素数。
