1、国家二级（ VB）机试历年真题试卷汇编 2及答案与解析 一、选择题 1 一个栈的初始状态为空。现将元素 1、 2、 3、 4、 5、 A、 B、 C、 D、 E依次入栈，然后再依次出栈，则元素出栈的顺序是 ( )。 （ A） 12345ABCDE （ B） EDCBA54321 （ C） ABCDE12345 （ D） 54321EDCBA 2 下列叙述中正确的是 ( )。 （ A）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 （ B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 （ C）在循 环队列中，只需要队尾指针就能反映队列中元素的动态变化情况 （ D）循环队
2、列中元素的个数是由队头指针和队尾指针共同决定 3 在长度为 n的有序线性表中进行二分查找，最坏情况下需要比较的次数是 ( )。 （ A） O(n) （ B） O(n2) （ C） O(log2n) （ D） D(nlog2n) 4 下列叙述中正确的是 ( )。 （ A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 （ B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 （ C）顺序存储结构能存储有 序表，链式存储结构不能存储有序表 （ D）链式存储结构比顺序存储结构节省存储空间 5 数据流图中带有箭头的线段表示的是 ( )。 （ A）控制流 （ B）事件驱动
3、（ C）模块调用 （ D）数据流 6 在软件开发中，需求分析阶段可以使用的工具是 ( )。 （ A） NS图 （ B） DFD图 （ C） PAD图 （ D）程序流程图 7 在面向对象方法中，不属于 “对象 ”基本特点的是 ( )。 （ A）一致性 （ B）分类性 （ C）多态性 （ D）标识唯一性 8 一间宿舍可住多个学生， 则实体宿舍和学生之间的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 9 在数据管理技术发展的三个阶段中，数据共享最好的是 ( )。 （ A）人工管理阶段 （ B）文件系统阶段 （ C）数据库系统阶段 （ D）三个阶段相同 10 有三个
4、关系 R、 S和 T如下：由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）笛卡尔积 （ B）交 （ C）并 （ D）自然连接 11 以下不能输出 “Program”的语句是 ( )。 （ A） Print Mid(“VBProgram“， 3， 7) （ B） Print Right(“VBProgram“， 7) （ C） Print Mid(“VBProgram“， 3) （ D） Print Left(“VBProgram“， 7) 12 以下叙述中错误的是 ( )。 （ A）在通用过程中，多个形式参数之间可以用逗号作为分隔符 （ B）在 Print方法中，多个
5、输出项之间可以用逗号作为分隔符 （ C）在 Dim语句中，所定义的多个变量可以用逗号作为分隔符 （ D）当一行中有多个语句时，可以用逗号作为分隔符 13 设 a=4， b=5， c=6，执行语句 Print a b And b c后，窗体上显示的是 ( )。 （ A） True （ B） False （ C）出错信息 （ D） 0 14 执行下列语句： strInput=InputBox(“请输入字符串 “， “字符串对话框 “， “字符串 “) 将显示输入对话框。此时如果直接单击 “确定 ”按钮，则变量 strInput的内容是( )。 （ A）请输入字符串 （ B）字符串对话框 （ C）字
6、符串 （ D）空字符串 15 以下关于过程及过程参数的描述中，错误的是 ( )。 （ A）调用过程时可以用控件名称作为实际参数 （ B）用数组作为过程的参数时，使用的是 “传地址 ”方式 （ C）只有函数过程能够将过程中处理的信息传回到调用的程序中 （ D）窗体 (Form)可以作为过程的参数 16 在窗体上有两个名称分别为 Text1、 Text2的文本框，一个名称为 Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明： Private Type Personname As String*8major As String*20End TypeDim p As Pe
7、rson设文本框中的数据已正确地赋值给。 Person类型的变量 p，当单击 “保存 ”按钮时，能够正确地把变量中的数据写入随机文件 Test2 dat中的程序段是 ( )。 （ A） Open“c： Test2 dat“For Output As #1 Put#1， 1， p Close#1 （ B） Open“c： Test2 dat“For Random As #1 Get #1， 1， p Close #1 （ C） Open“c： Test2 dat“For Random As #1 Len=Len(p) Put#1， 1， p Close #1 （ D） Open“c： Test2
8、 dat“For Random As #1 Len=Len(p) Get #1， 1， p Close #1 17 假定有以下循环结构： Do Until条件表达式 循环体 Loop 则以下正确的描述是 ( )。 （ A）如果 “条件表达式 ”的值是 0，则一次循环体也不执行 （ B）如果 “条件表达式 ”的值不为 0，则至少执行一次循环体 （ C）不论 “条件表达式 ”的值是否为 “真 ”，至少要执行一次循环体 （ D）如果 “条件表达式 ”的值恒为 0，则无限次执行循 环体 18 执行语句 Dim X， Y As Integer后， ( )。 （ A） X和 Y均被定义为整型变量 （ B）
9、 X和 Y均被定义为变体类型变量 （ C） X被定义为整型变量， Y被定义为变体类型变量 （ D） X被定义为变体类型变量， Y被定义为整型变量 19 以下关系表达式中，其值为 True的是 ( )。 （ A） XYZ “XYz“ （ B） VisualBasic “visualbasic“ （ C） the=“there“ （ D） Integer “Int“ 20 执行以下程序段： a$=“Visi3al Basic Programming“ b$=“C+“ c$=UCase(Left$(a$， 7)&b$ & Right$(a$， 12) 后，变量 c$的值为 ( )。 （ A） Vis
10、ual BASIC Programming （ B） VISUAL C+Programming （ C） Visual C+Programming （ D） VISUAL BASIC Programming 21 设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是 ( )。 （ A） List1 List （ B） List1 ListIndex （ C） List1 Text （ D） List1 Index 22 在窗体上画一个文本框 (名称为 Text1)和一个标签 (名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显
11、示文本框中字符的个数。以下可以实现上述操作的事件过程是 ( )。 （ A） Private Sub Text1_Change() Label1 Caption=Str(Len(Text1 Text) End Sub （ B） Private Sub Text1_Click() Label1 Caption=Str(Len(Text1 Text) End Sub （ C） Private Sub Text1_Change() Label1 Caption=Text1 Text End Sub （ D） Private Sub Label1_Change() Label1 Caption=Str(
12、Len(Text1 Text) End Sub 23 在窗体上画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “宋体 ”和“黑体 ”； 1个复选框 (名称为 Cheek1，标题为 “粗体 ”)和 1个文本框 (名称为 Text1，Text属性为 “改变文字字体 ”)，窗体外观如图所示。程序运行后，要求 “宋体 ”单选按钮和 “粗体 ”复选框被选中，则以下能够实现上述操作的语句序列是 ( )。（ A） Option1 Value=False Check1 Value=True （ B） Option1 Value=True Check1 Value=0 （ C） Opt
13、ion2 Value=False Check1 Value=2 （ D） Option1 Value=True Check1 Value=1 24 以下说法中正确的是 ( )。 （ A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程 （ B）因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程 （ C）若按下的键相同， KeyPress事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同 （ D）在 KeyPress事件过程中， KeyAscii参数可以省略 25 假定通过复制、粘贴操作建立了一个命令按钮
14、数组 Command1，以下说法中错误的是 ( )。 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Command1 （ B）若未做修改，数组中每个命令按钮的大小都一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属性值都相同 26 以下关于菜单的叙述中，错误的是 ( )。 （ A）当窗体为活动窗体时，用 Ctrl+E键可以打开菜单编辑器 （ B）把菜单项的 Enabled属性设置为 False，则可删除该菜单项 （ C）弹出式菜单在菜单编辑器中设计 （ D）程序运行时，利用控件数组可以实现菜单项的增加或减少 27 以下叙述中错
15、误的是 ( )。 （ A）在程序运行时，通用对话框控件是不可见的 （ B）调用同一个通用对话框控件的不同方法 (如 ShowOpen或 ShowSave)可以打开不同的对话框窗口 （ C）调甩通用对话框控件的 ShowOpen方法，能够直接打开在该诵用对话框中指定的文件 （ D）调用通用对话框控件的 ShowColor方法，可以打开颜色对话框窗口 28 下面控件中，没有 Caption属性的是 ( )。 （ A）复选框 （ B）单选 按钮 （ C）组合框 （ D）框架 29 用来设置文字字体是否斜体的属性是 ( )。 （ A） FontUnderline （ B） FontBold （ C）
16、FontSlope （ D） Fontltalic 30 窗体上有一个名称为 Timer1的计时器控件，一个名称为 Shape1的形状控件，其 Shape属性值为 3(Circle)。编写程序如下： Private Sub Form_Load() Shape1 Top=0 Timer1 Interval=100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1 Top=Shape1 Top+100 x=x+1 If x Mod 10=0 Then Shape1 Top=0 End If End Sub 以下关于上述程序的
17、叙述中，错误的是 ( )。 （ A）每执行一次 Timer1_Timer事件过程， x的值都在原有基础上增加 1 （ B） Shape1每移动 10次回到起点，重新开始 （ C）窗体上的 Shape1由下而上移动 （ D） Shape1每次移动 100 31 设有如下一段程 序： Private Sub Command1_Click() Static a As Variant a=Array(“one“， “two“， “three“， “four“， “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 ( )。 （ A）变量声明语句有错，应改为 Sta
18、tic a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 four 32 求 1!+2!+10! 的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _ Next Print y End Sub 为实现功能要求，程序的
19、横线处应该填入的内容是 ( )。 （ A） Call S(i) （ B） Call s （ C） y=y+s(i) （ D） y=y+s 33 窗体上有一个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1(1) FontSize=Text1(0) FontSize*2 Text1(1) Text=Text1(0) Text Case1 Text1(0) FontSize=Text1(1) FontSize 2 Text1(0) T
20、ext=Text1(1) Text Case Else MsgBox“执行 Else分支 “ End Select End Sub 关于上述程序，以下叙述中错误的是 ( )。 （ A） Index用于标识数组元素 （ B）本程序中 Case Else分支的语句永远不会被执行 （ C）向任何一个文本框输入字符，都会在另一个文本框中显示该字符 （ D）下标为 0的文本框中显示的字符尺寸将越来越小 34 设有如下程序： Option Base1 Dim a(3， 4)As Integer， b(4， 3)As Integer Private Sub Command1_Click() 循环 1 For
21、 i=1To3 For j=1To4 b(j， i)=a(i， j) Next j Next i 循环 2 x=b(1， 1) For i=1To4 For j=1To3 Print b(i， j)； If x b(i， j)Then x=b(i， j) Next j Print Next i End Sub 程序中的数组 a已被赋值。以下关于上述程序的叙述中，正确的是 ( )。 （ A）窗体模块中，不能使用 Dim声明 a、 b数组 （ B） “循环 1”可以 正常运行 （ C） “循环 2”中循环变量 i、 j的终值不对，所以不能正常运行 （ D）程序可以正常运行， x中保存的是数组 b中
22、所有元素中最小的数 35 某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As String*10 Tel As String*20 End Type Private Sub Command1_Click() Dim p As RType p Name=InputBox(“姓名 “) p Tel=InputBox(“电话号 “) Open“Books dat“For Random As #1 Put #1， P Close #1 End Sub 该程序运行时有错误，修改的方法是 ( )。 （ A）在类型定义 “Type RType”之前加上 “Private
23、” （ B） Dim p As RType必须置于窗体模块的声明部分 （ C）应把 Open语句中的 For Random改为 For Output （ D） Put语句应该写为 Put #1， p Name， p Tel 36 有如下程序： Private Sub Form_Click() Dim s As Integer， p As Integer p=1 For i=1To4 For j=1Toi s=s+j Next j p=p*s Next i Print p End Sub 程序运行后，单击窗体，则输出结果是 ( )。 （ A） 90 （ B） 180 （ C） 400 （ D）
24、800 37 设有如图所示窗体和以下程序：Private Sub Command1_Click()Text1 Text=“Visual Basic“End SubPrivate Sub Text1_LostFoeus()If Text1 Text “BASIC“ThenText1 Text=“ “Text1 SetFocusEnd IfEnd Sub程序运行时，在 Text1文本框中输入 “Basic”(如图所示 )，然后单击 Command1按钮，则产生的结果是 ( )。 （ A）文本框中无内容，焦点在文本框中 （ B）文本框中为 “Basic”，焦点在文本框中 （ C）文本框中为 “Bas
25、ic”，焦点在按钮上 （ D）文本框中为 “Visual Basic”，焦点在按钮上 38 窗体上有一个名称为 Command1的命令按钮，其事件过程如下 ： Private Sub Command1_Click() x=“VisualBasicProgramming“ a=Right(x， 11) b=Mid(x， 7， 5) c=MsgBox(a， b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是 ( )。 （ A）信息框的标题是 Basic （ B）信息框中的提示信息是 Programming （ C） c的值是函数的返回值 （ D） MsgBox的使用格式有错 39 设
26、工程文件包含两个窗体文件 Form1 frm、 Form2 frm及一个标准模 块文件Module1 bas。两个窗体上分别只有一个名称为 Command1的命令按钮。 Form1的代码如下： Public x As Integer Prirate Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2 Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1 x， y End Sub Module1的代码如下： Public y As Int
27、eger 运行以上程序，单击 Form1的命令按钮 Command1，则显示 Form2；再单击 Form2上的命令按钮 Command1，则窗体上显示的是 ( )。 （ A） 1 5 （ B） 0 5 （ C） 0 0 （ D）程序有错 40 窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y a=InputBox(“ “) If y a 2=y a 2Then
28、 y b=y a*y a Else y b=Fix(y a 2) End If Text1 Text=y b End Sub 对以上程序，下列叙述中错误的是 ( )。 （ A） x是用户定义的类型 （ B） InputBox函数弹出的对话框中没有提示信息 （ C）若输入的是偶数， y b的值为该偶数的平方 （ D） Fix(y a 2)把 y a 2的小数部分四舍五入，转换为整数返回 二、基本操作题 41 在名称为 Form1的窗体 上添加三个单选按钮，其名称分别为 Option1、 Option2和 Option3(如图 1所示 )，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能：
29、窗体标题为 “设置单选按钮属性 ”； 三个单选按钮的标题分别为 “按钮 1”、 “按钮 2”和“按钮 3”； 初始状态为，第一个单选按钮为 “选中 ”； 程序运行后，第二个单选按钮 “不可用 ”； 程序运行后，第三个单选按钮不可见。程序的运行情况如图 2所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为 VScroll1和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：Max=窗体高
30、度 Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。程序的运行情况如图所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为sjt2 frm。 三、简单应用题 42 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 Sjt3 frm。其功能是随机产生 20个 0 1000的整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Command1，标题为“输出小于 500的整数之和 ”)，
31、即可求出这些整数的和，并显示在窗体上 (如图所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个文本框和一个命令按钮。当程序运行后，单击命令按钮，即可计算出 0 100范围内所有偶数的平方和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在
32、 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 6475 86 97 13 24 35 46 57 68 79 80 59 37程序运行后，单击窗体，将把文件datain txt中的数据输入到二维数组 Mat中，按 5行、 5列的矩阵形式在窗 体上显示出来，并输出矩阵右上一左下对角线上的数据
33、，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 国家二级（ VB）机试历年真题试卷汇编 2答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 栈是先进后出的原则组织数据，所以入栈最早的最后出栈，所以选择 B。 2 【正确答案】 D 【试题解析】 循环队 列有队头和队尾两个指针，但是循环队列仍是线性结构的，所以 A错误；在循环队列中需要队头指针与队尾指针来共同反映队列中元素的动态变化情况，所以 B与 C错
34、误。 3 【正确答案】 C 【试题解析】 当有序线性表为顺序存储时才能用二分法查找。可以证明的是对于长度为 n的有序线性表，在最坏情况下，二分法查找只需要比较 log2n次，而顺序查找需要比较 n次。 4 【正确答案】 A 【试题解析】 链式存储结构既可以针对线性结构也可以针对非线性结构，所以 B与 C错误。链式存储结构中每个结点都由数据域与指针域两部分组成 ，增加了存储空间，所以 D错误。 5 【正确答案】 D 【试题解析】 数据流图中带箭头的线段表示的是数据流，即沿箭头方向传送数据的通道，一般在旁边标注数据流名。 6 【正确答案】 B 【试题解析】 在需求分析阶段可以使用的工具有数据流图
35、(DFD图 )，数据字典(DD)，判定树与判定表，所以选择 B。 7 【正确答案】 A 【试题解析】 对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择 A。 8 【正确答案】 B 【试题解析】 因为一间宿舍可以 住多个学生即多个学生住在一个宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。 9 【正确答案】 C 【试题解析】 数据管理发展至今已经历了三个阶段：人工管理阶段、文件系统阶段和数据库系统阶段。其中最后一个阶段结构简单，使用方便逻辑性强物理性少，在各方面的表现都最好，一直占据数据库领域的主导地位，所以选择 C。 10 【正确答案】
36、 D 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T关系中的有序组可知 R与 S进行的是自然连接操作。 11 【正确答案】 D 【试题解析】 本题用到了字符串处理函数 Mid、 Right和 left函数。 中部截取函数 Mid(C， N1， N2)，功能是从字符串 C中的 C1位置开始往后取 N2个字符，如果省略 N2，默认从 C1位置取出所有字符。 右部截取函数 Right(C， N)，功能是取字符串 C右边 N个字符。 左部截取函数 Left(C， N)，功能是取字符串 C左边 N个字符。 根据以
37、上函数用法，选项 A R C都能输出 “Program”， D选项是从字符串的最左边开始取 7个字符，结果为 VBProgr，不能输出 “Program”，故 D选项错误。 12 【正确答案】 D 【试题解析】 一般情况下，输入程序时要求一行只写一条语句。但语句行较短时也可以将多个语句书写在同一行中，这时，语句之间使用冒号分隔。故 D选项错误。 13 【正确答案】 A 【试题解析】 Print语句中计算表达式的值，按运算符的优先级顺序，关系运算符 “ ”比逻辑运算符 “And”优先级高。先计算 “ ”，结果为 True And True，再计算 “And”，结果为 True，故选 A。 14
38、【正 确答案】 C 【试题解析】 InputBox函数的格式： 变量名 =InputBox(“提示信息 “， “标题栏显示信息 “， “输入文本框中默认值“， X， Y) InputBox函数的功能：在一输入对话框中显示提示，等待用户在输入文本框中输入数据，然后按下按钮，返回文本框内容。如果用户单击 “确定 ”按钮，则InputBox函数把输入文本框的内容作为一字符串返回；如果没有输入数据，按 “确定 ”按钮，则返回的是空字符串；如果按 “取消 ”按钮，则不管输入框有没有输入数据，都返回空字符串。 根据以上所述，运行 程序，会出现一输入对话框，在上面有 “请输入字符串 ”提示信息，标题栏中显示
39、 “字符串对话框 ”，输入文本框中有默认值 “字符串 ”，单击 “确定 ”按钮后，文本框中的 “字符串 ”三个字作为字符串返回给 strInput变量。所以strInput变量的内容是 “字符串 ”，故选 C。 15 【正确答案】 C 【试题解析】 过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时实参也可以是一般数据类型、控件名或窗体。故 A、 D选项正确。 调用过程时，如果过程的参数是数组，则实 参传给形参的是地址，这个地址是用数组名表示的一个符号地址，是数组的起始地址，形参和实参用的是同一个地址，在过程中形参的改变会引起实参的改变。
40、故 B选项正确。 在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中， Sub过程也可以。 Sub过程中形参声明时前面有关键字 ByRef或省略 ByRef(默认 )时，实参和形参之间传递的是地址， Sub过程中形参的变化也会引起实参的变化，这样 Sub过程中处理的信息也可以传回调用程序中。故 C选项说法错误。 16 【正确答案】 C 【试题解析】 在 VB中可以访 问的文件有：顺序文件、随机文件和二进制文件。不同文件存取方式不同，但处理的步骤大致一样： 用 Open语句打开文件，并为文件制定一个文件号。根据文件的的存取方式使用不同的模式打开文件。 本题是随机文件，读写的是一条一
41、条的记录，所以用 For Random模式打开，记录的长度为 Person类型变量 p的长度。 从文件中读出数据进行处理或处理数据后，把数据写入文件。 本题是把变量的数据写入随机文件，所以用 Put语句写入。 文件操作结束，关闭文件。各种文件关闭统一用 Close#文件号 关闭。 综上所述，故本题选 C。 17 【正确答案】 D 【试题解析】 本题的 Do Until Loop循环结构是先判断，再执行的结构。 Do Until循环语句执行的过程是，先判断条件表达式的值，如果条件表达式的值为0或 False时，即条件不成立时，则执行循环体，否则当条件表达式的值为非 0或True时，即成立，则退出
42、 Do Loop循环。 本题中，选项 A条件表达式的值是 0，说明条件不成立，执行循环体。故 A错误。 选项 B条件表达式的值不为 0，说明条件成立，退出循环。故 B错误。 选项 C中 Do Until Loop语句中 条件表达式的值为 “假 ”时，才至少执行一次循环体，故 C错误。 选项 D中条件表达式的值恒为 0，说明表达式总是不成立，所以可无限执行循环体，故 D选项正确。 18 【正确答案】 D 【试题解析】 声明变量时可以同时声明多个变量，但要分别说明每个变量的数据类型。如果定义变量时不说明数据类型，默认是 Variant变体类型变量。 本题中用 Dim同时定义了两个变量 X、 Y，变
43、量 X没说明数据类型，所以是Variant型变量， Y是整型变量。故选 D选项正确。 19 【正确答案】 B 【试题解析】 用关系运算符比 较两个操作数时，如果两个操作数是字符型的，按字符的 ASCII码从左到右一一比较，即先比较第 1个，若相同再比较第 2个，依次比较，直到比较完或不同为止。 选项 A中两个字符串前 2个字符相同，后 1个不同， “Z”的 ASCII值 “z”的ASCII值，故 “XYZ” “XYz”，结果应返回 Fasle。 选项 C中应该是两个字符串完全一样，才相等。很明显两个字符不相等，返回False。 选项 D中两个字符串前 3个字符一样，第 1个字符串比第 2个字符
44、串长，“Integer” “Int”，返回 False。 选项 B中两个字符串不完全一 样，有大写和小写的字符，不等。所以返回 True。故 B选项正确。 20 【正确答案】 B 【试题解析】 UCase(Left(a$， 7)是从字符串 a的左边向右取出 7个字符，然后再全部转换为大写字母，结果是： “VISUAL “： Right$(a$， 12)是从字符串 a的右边向左取出 12个字符，结果为 “ Programming“， &是字符串连接符，把“VIsuAL “&“C+“&“ Programming“连接在一起，合成字符串“VISuAL C+ Programming“，并把它赋给字符串
45、变量 c，所以 字符串变量 c的值就是合成的字符串。故 B选项正确。 21 【正确答案】 C 【试题解析】 List1的 List属性是设置或返回列表框中的列表项内容； ListIndex属性设置或返回当前选中的列表项的索引值； Index属性是用来区分列表框控件数组中各 List控件； Text属性设胃或返回当前昕选中列表项的文书内容。故选 C。 22 【正确答案】 A 【试题解析】 根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框触发了某事件，排除 D选项；文本框中每输入一个字符，标签 中立即就会发生变化，故是 Change事件，排除 B选项；标签中显示的是
46、文本框中字符的个数，不是输入的内容，排除 C选项。故 A选项正确。 23 【正确答案】 D 【试题解析】 单选按钮控件的 Value属性值为 True表示被选中， False表示未被选中；复选框控件的 Value属性值为 0表示未选中， 1表示选中， 2表示禁止。本题中是单选按钮和复选框都被选中，故 D选项正确。 24 【正确答案】 A 【试题解析】 B选项错误原因：窗体有自己的 KeyPress事件过程； C选项错误原因： KeyPress事 件过程中的 KeyAscii参数返回按键的 ASCII码值，大小写字母返回值不同；而 KeyDown事件过程中的 KeyCode参数返回的是按键代码，
47、大小写字母返回值相同。故按下的键相同时， keyAscii和 KeyCode参数不一定返回相同值； D选项错误原因： KeyPress事件中的 KeyAscii参数不能省略。 A选项正确。 25 【正确答案】 D 【试题解析】 命令按钮控件数组中各控件用相同的名称和同一 Click事件过程，大小也一样，但是为了区分它们，各控件的 Index属性值是不同的。故 D选项错误。 26 【正确答案】 B 【试题解析】 当菜单项的 Enabed属性值设置为 False时，菜单项只是变为无效项，不可用，不会删除该菜单项。故 B选项错误。 27 【正确答案】 C 【试题解析】 调用通用对话框的 ShowOp
48、en方法，只是显示文件 “打开 ”对话框，如果 ShowOpen方法后面没有其他处理文件的代码，就不能实现打开文件的功能。故选项 C错误。 28 【正确答案】 C 【试题解析】 Caption属性是设置或返回控件的标题。组合框没有 Caption属性。故选 C。 29 【 正确答案】 D 【试题解析】 FontUnderline属性设置文字是否有下划线； FontBold属性是设置文字是否加粗； FontItalc属性是设置文字是否斜体；没有 FontSlope属性。故选D。 30 【正确答案】 C 【试题解析】 题目中变量 x定义为 Static，即每次进入 Timer事件过程时， x都会保
49、留上次的值，从而实现每执行一次 Timer1_Timer事件过程 x的值都在原有基础上增加 1。程序中判断调用 Timer事件过程 10次后，重置 Shape1的 top值为0，即回到起点。控件 shape1的 Top属性是距离窗体顶的位置，数值越大距离越远，因此 Shape1会由上向下移动。 31 【正确答案】 D 【试题解析】 题目中变量 a被定义为 Varant类型， Variant是一种特殊的数据类型，除了定长 string数据及用户定义类型外，可以包含任何种类的数据。变量 a被赋值为字符串数组，数组默认下标从 0开始，因此元素 a(3)的值为 “four”。 32 【正确答案】 C 【试题解析】 题目中过程 s的功能是实现一个数的阶乘，而题目是求 1到 10的阶乘的和，则程序空缺处应该是过程 s返回值 的累加，因此就应该为 y=y+s(i)。 33 【正确答案】 D 【试题解析】 控件数组
