1、国家二级 VB机试（选择题）模拟试卷 207及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列关于栈和队列的描述中，正确的是( )。（分数：2.00）A.栈是先进先出B.队列是先进后出C.队列允许在队头删除元素D.栈在栈顶删除元素2.已知二叉树后序遍历序列是 CDABE，中序遍历序列是 CADEB，它的前序遍历序列是( )。（分数：2.00）A.ABCDEB.ECABDC.EACDBD.CDEAB3.在数据流图中，带有箭头的线段表示的是( )。（分数：2.00）A.控制流B.数据流C.模块调用D.事件驱动4.结构化程序设计的 3种结构是(
2、)。（分数：2.00）A.顺序结构，分支结构，跳转结构B.顺序结构，选择结构，循环结构C.分支结构，选择结构，循环结构D.分支结构，跳转结构，循环结构5.下列方法中，不属于软件调试方法的是( )。（分数：2.00）A.回溯法B.强行排错法C.集成测试法D.原因排除法6.下列选项中，不属于模块间耦合的是( )。（分数：2.00）A.内容耦合B.异构耦合C.控制耦合D.数据耦合7.下列特征中不是面向对象方法的主要特征的是( )。（分数：2.00）A.多态性B.标识惟一性C.封装性D.耦合性8.在数据库设计中，将 E-R图转换成关系数据模型的过程属于( )。（分数：2.00）A.需求分析阶段B.概念
3、设计阶段C.逻辑设计阶段D.物理设计阶段9.在一棵二叉树上，第 5层的结点数最多是( )。（分数：2.00）A.8B.9C.15D.1610.下列有关数据库的描述，正确的是( )。（分数：2.00）A.数据库设计是指设计数据库管理系统B.数据库技术的根本目标是要解决数据共享的问题C.数据库是一个独立的系统，不需要操作系统的支持D.数据库系统中，数据的物理结构必须与逻辑结构一致11.VisualBasic60 集成环境的主窗口中不包括( )。（分数：2.00）A.标题栏B.菜单栏C.状态栏D.工具栏12.在正确安装 Visual Basic 60 后，可以通过多种方式启动 Visual Basi
4、c 60。以下方式中，不能启动 Visual Basic 60 的是( )。（分数：2.00）A.通过“我的电脑”找到 vb6exe，双击该文件名B.进入 DOS方式，执行 vb6exe 文件C.通过“开始”菜单中的“运行”命令D.通过“开始”菜单中的“程序”命令13.下面 4个选项中，不是窗体属性的是( )。（分数：2.00）A.UnLoadB.BorderStyleC.MinButtonD.Caption14.设计窗体时双击窗体的任何位置，将打开( )。（分数：2.00）A.窗口设计器B.代码窗口C.工具箱窗口D.属性窗口15.下面有关标准模块的叙述中，错误的是( )。（分数：2.00）A
5、.标准模块的文件扩展名为basB.标准模块中的 Private过程不能被工程中的其他模块调用C.标准模块不完全由代码组成，还可以有窗体D.标准模块中的全局变量可以被工程中的任何模块引用16.实现字符的 UniCode编码方式与 ANSI编码方式相互转换的函数是( )。（分数：2.00）A.StrB.StrConvC.TrimD.Mid17.若将变量 TestDate声明为 Date类型，则下列为变量 TestDate赋值的语句中正确的是( )。（分数：2.00）A.TestDate=date(“112002“)B.TestDate=#“112002”#C.TestDate=#112002#D.
6、TestDate=Format(“mdyy“，“112002“)18.窗体 Form1上有一个名称为 Command1的命令按钮，以下对应窗体单击事件的事件过程是( )。（分数：2.00）A.Private Sub Form1_click() End SubB.Private Sub Form_Click() End SubC.Private Sub Command1_Click() End SubD.Private Sub Command1_Click() End Sub19.下列程序段的执行结果为( )。 Form1Cls a=“ABBACDDCBA“ For i=6 To 2 Step-
7、2 x=Mid(a，i，i)：y=Left(a，i) z=Right(a，i)：z=x&Y&Z Next i Print z（分数：2.00）A.ABCB.BBABBAC.ABBABAD.AABAAB20.不能正确表示条件“两个整型变量 A和 B之一为 0，但不能同时为 0”的布尔表达式是( )。（分数：2.00）A.A*B=0 and A+B0 Or BS2 Then Print S1-S2 Else Print S2-S1（分数：2.00）A.-9B.9C.-12D.030.在窗体上有一个名称为 Label1的标签和一个名称为 Timerl的计时器，并编写有如下几个事件过程： Privat
8、e Sub Form Load)_ TimerlEnabled=False Timer1Interval= End Sub Private Sub，Form Click() TimerlEnabled= End Sub Private Sub Timerl Timer() Label1Caption= End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔 1s钟变换一次，在横线处应填写( )。（分数：2.00）A.1000 True TimeS()B.100 True TimeS()C.1000 False TimeS()D.100 False TimeS()31.下列程序段的执
9、行结果为( )。 x=Int(Rnd+4) Select Case x Case5：Print“A Class“ Case4：Print“B Class“ Case3：Print“C Class“ Case Else：Print“D Class“ End Select（分数：2.00）A.A ClassB.B ClassC.C ClassD.D Class32.有如下程序： Private Sub Form Click() Dim i As Integer，sum As Integer sum=0 For i=2 To 10 Ifi Mod 20B.(A=0 or B=0)and(A0)C.n
10、ot(A=0 And B=0)and(A=0 or B=0)D.A*B=0 and(A=0 or B=0) 解析：解析：本题考查 VB的表达式。选项 A)中由于 A*B=0，因此 A为 0或者 B为 0，或者 A、B 同时为0，而 A+BS2 Then Print S1-S2 Else Print S2-S1（分数：2.00）A.-9 B.9C.-12D.0解析：解析：本题考查转换函数和“+”号运算符。表达式 Val(S1)的作用是把字符串 S1转成数字。程序段的功能是：变体类型变量 S1和 S2赋值以后，经由语句 Val(S1)+Val(S2)，也就是数字 S1和 S2相加值(为 3)存入
11、S1中，同时把数字符串“12”转成数字 12，放到 S2中。因此数字 S1和 S2不等，输出 S1-S2的值为-9。30.在窗体上有一个名称为 Label1的标签和一个名称为 Timerl的计时器，并编写有如下几个事件过程： Private Sub Form Load)_ TimerlEnabled=False Timer1Interval= End Sub Private Sub，Form Click() TimerlEnabled= End Sub Private Sub Timerl Timer() Label1Caption= End Sub 程序运行后，单击窗体，将在标签中显示当前时
12、间，每隔 1s钟变换一次，在横线处应填写( )。（分数：2.00）A.1000 True TimeS() B.100 True TimeS()C.1000 False TimeS()D.100 False TimeS()解析：解析：本题考查时钟控件。时钟控件的 Interval属性为两个 Timer事件之间的事件间隔，单位为ms(毫秒)，若间隔 1s，那么 Interval属性值为 1000。单击窗体时启动时钟，因此时钟的。Enabled 属性值为 True，执行 Timer事件，利用 Time函数获得系统时间。31.下列程序段的执行结果为( )。 x=Int(Rnd+4) Select Ca
13、se x Case5：Print“A Class“ Case4：Print“B Class“ Case3：Print“C Class“ Case Else：Print“D Class“ End Select（分数：2.00）A.A ClassB.B Class C.C ClassD.D Class解析：解析：本题考查多分支选择语句 Select。Rnd 函数产生(0，1)之间的随机数，“Int(参数)”函数的作用是产生不大于参数的整数，可以计算出 x的值为 4。因此将执行 Select语句中 Case 4后面的分支语句，输出 B Class。32.有如下程序： Private Sub Form
14、 Click() Dim i As Integer，sum As Integer sum=0 For i=2 To 10 Ifi Mod 20 And i Mod 3=0 Then sum=sum+i EndIf Next i Print sum End Sub 程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.24B.30C.12 D.18解析：解析：本题考查循环程序的分析。分析循环程序关键在于分析循环体的功能，应详细地分析循环的条件、执行的次数、每次执行的操作等。本题中 For循环执行 9次(i 取值范围2，10之间所有的整数)，循环体中执行的条件为：如果 i不是偶数，同时 i
15、是 3的倍数，那么此时的 i，累加到变量 sum中，因此当 i为 3、9 时累加到变量 sum中 sum=3+9=12。33.下列程序段的执行结果为( )。 a=0：b=1 Do a=a+b：b=b+1 Loop While aA.10 30B.a bC.0 1D.10 5 解析：解析：本题考查 DoWhile循环分析。根据分析循环程序的原则，首先找出循环变量为 a，其初始值为 0，循环步长为 a+b，注意每次循环 b的值会发生变化，变化规律为 1，2，3，由此推出 a的变化规律为：0+1，1+2，3+3，当 a累加到 10的时候，退出循环。34.某人编写了下面的程序，希望能把 Text1文本
16、框中的内容写到 Temptxt 文件中 Private Sub Command1_Click() Open“Temptxt“For OutputAs #2 Print“Text1“ Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。（分数：2.00）A.把所有#2 改为#1B.把 Print“Text1“改为 Print #2，Text1 C.把 Print“Text1“改为 Write“Text1“D.把 Print“Text1“改为 Print Text1解析：解析：本题是一个文件输出的问题。若要对以 Output形式打开的某文件使用 Print
17、方法进行输出，标准格式为 Print文件号，字符串。35.Fibonacci数列的规律是：前 2个数为 1，从第 3个数开始，每个数是它前 2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，。某人编写了下面的函数，判断大于 1的整数 X是否是Fibonacci数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer， flag As Boolean flag=False a=1：b=1 Do While x
18、A.把 a=b与 b=c的位置互换B.把 c=a+b移到 b=c之后C.把 Do while xb D.把 Ifx=b Then flag=True改为 Ifx=a Then flag=True解析：解析：在本题中通过分析题干中的程序可以看出，函数的返回值就是变量 flag的值。错误现象是无论输入哪个正整数均会返回 False，这就代表着没有执行循环，直接输出的就是变量 flag的初值False。进一步分析可以看出，由于 b的初值为 1，而任何正整数均不会小于 1，所以永远无法满足循环条件从而进入循环，因此需要将条件 xb 改为 xb。36.窗体上有一个名称为 optionl的单选按钮数组，程
19、序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub OptionI_Click(Index As Integer) End Sub 下面关于此过程的参数 Index的叙述中正确的是( )。（分数：2.00）A.Index的值可正可负B.Index的值用来区分哪个单选按钮被选中 C.Index表示数组中单选按钮的数量D.Index为 1表示单选按钮被选中，为 0表示未选中解析：解析：控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有惟一的索引号(Index)，即下标，默认索引号从 0开始，不能为负值。37.以下叙述中正确的是( )。（分数：
20、2.00）A.一个 Sub过程至少要有一个 Exit Sub语句B.一个 Sub过程必须有一个 End Sub语句 C.可以在 Sub过程中定义一个 Function过程，但不能定义 Sub过程D.调用一个 Function过程可以获得多个返回值解析：解析：本题考查过程。常见过程分为 Sub过程和 Function函数过程。一个 Sub过程必须有一个End Sub语句，二者是成对出现的。过程不可以嵌套定义，但可以嵌套调用。一个函数过程仅可以有一个返回值。38.设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer
21、) Print Chr(KeyCode) End SubPrivate Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2)End Sub若把窗体的 KeyPreview属性设置为 True，程序运行后，如果按“A”键，则输出结果为( )。（分数：2.00）A.A AB.A BC.A C D.A D解析：解析：本题考查窗体的键盘事件。当按下键盘上某个键时，触发 KeyPress事件；按下键盘某个键过程中，触发事件 KeyDown事件；当松开键盘某个键时，触发事件 KeyUp。KeyDown 和 KeyU
22、p事件返回的是键盘的直接状态(返回的是“键”)，KeyCode 参数是用户按下的那个键的扫描码，而 KeyPress返回的是“字符”的 ASCII码，两者不同。当窗体的 KeyPreview设置为 True时，如果焦点从控件上跳到窗体上，则该控件的键盘事件也会被触发。 题中只有窗体的 KeyDown和 KeyUp事件，因此当按下“A”键时，触发KeyDown事件执行“PrintChr(KeyCode)”语句，其中 Chr函数的功能是将 ASCII码转换成相应的字符，因此输出字母“A”；当松开“A”键时，触发 KeylJp事件执行“Print Chr(KeyCode+2)”语句，因此输出字母“C
23、”。39.在窗体上画 1个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：“) IfFlag Then Print f(intNum) End If End Sub Function f(x as Integer)As Integer IfXA.0B.5 C.15D.无任何输出解析：解析：本题考查 If语句和函数过程的分析。函数过程 f的功能是如果 X小于 10则返回 X，否则返回 X+10。窗体的 Mo
24、useUp事件是松开鼠标时触发的事件。程序运行后，单击窗体，则全局变量 Flag的值为 True，然后单击命令按钮，在输入对话框中输入 5，执行 If分支语句，调用 f函数，由于 510，因此输出 X，即输出 5。40.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl 和Filel，为了使它们同步操作，必须触发驱动器的 Change事件和目录的 Change事件，在这两个事件中执行的语句分别为( )。（分数：2.00）A.FilelPath=DrivelDrive 和 FilelPath=DirlPathB.DirlPath=DrivelDrive 和 FilelPath=DirlPath C.DirlPath=DirlPath 和 FilelPath=DrivelDriveD.DirlPath=DrivelPath 和 FilelPath=Dirl Path解析：解析：本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，需要在驱动器 Drivel的 Change事件中，编写 DirlPath=DrivelDrive 语句；而使文件的路径和目录的一致，则需要在目录Dirl的 Change事件中编写 FilelPath=DirlPath 语句。这两个事件都编写好后，就可以使驱动器、目录和文件列表框同步显示了。
