1、全国计算机等级考试二级 VISUAL+BASIC 真题 2013 年 9 月及答案解析(总分：45.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.支持子程序调用的数据结构是_。（分数：1.00）A.栈B.树C.队列D.二叉树2.下列叙述中正确的是_。（分数：1.00）A.栈是“先进先出”的线性表B.队列是“先进后出”的线性表C.循环队列是非线性结构D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构3.对于循环队列，下列叙述中正确的是_。（分数：1.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队
2、尾指针，也可以小于队尾指针4.算法的空间复杂度是指_。（分数：1.00）A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数5.算法的有穷性是指_。（分数：1.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用6.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是_。（分数：1.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序7.在面向对象方法中，不属于“对象”基本特点的是_。（分数：1.00）
3、A.一致性B.分类性C.多态性D.标识唯一性8.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是_。（分数：1.00）A.一对一B.一对多C.多对一D.多对多9.有两个关系 R、S 如下： 由关系 R 通过运算得到关系 S，则所使用的运算为_。（分数：1.00）A.选择B.投影C.插入D.连接10.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：1.00）A.属性B.键C.关系D.域11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是_。（分数：1.00）A.B.C.D.12.设 x 是整型变量，与函数 IIf(x0，-x，x)有相同结果
4、的代数式是_。（分数：1.00）A.|x|B.-|x|C.xD.-x13.以下选项中，不合法的 Visual Basic 的变量名是_。（分数：1.00）A.a5bB._xyzC.a_bD.andif14.以下数组定义语句中，错误的是_。（分数：1.00）A.Statica(10)As IntegerB.Dim c(3，1 To 4)C.Dim d(-10)D.Dim b(0 To 5，1 To 3)As Integer15.以下关于过程及过程参数的描述中，错误的是_。（分数：1.00）A.调用过程时可以用控件名称作为实际参数B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能
5、够将过程中处理的信息传回到调用的程序中D.窗体(Form)可以作为过程的参数16.在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。运行后的窗体外观如图所示。 （分数：1.00）A.Open“c:/Test2.dat“For Output As#1Put#1，1，PClose#1B.Open“c:/Test2.dat“For Random As#1Get#1，1.PClose#1C.Open“c:/Test2.dat“For Random As#1 Len=Len(P)Put#1，1，pClose#1D.Open“c:/Test2.dat“F
6、or Random As#1 Len=Len(P)Get#1，1，PClose#117.下面有关标准模块的叙述中，错误的是_。（分数：1.00）A.标准模块不完全由代码组成，还可以有窗体B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为.basD.标准模块中的全局变量可以被工程中的任何模块引用18.可以产生 3050(含 30 和 50)之间的随机整数的表达式是_。（分数：1.00）A.Int(Rnd*21+30)B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)19.下面程序运行时，若输入 395，
7、则输出结果是_。 Private Sub Command1_Click() Dim x% x=InputBox(“请输入一个 3 位整数“) Print x Mod 10，x/100，(x Mod 100)/10 End Sub（分数：1.00）A.3 9 5B.5 3 9C.5 9 3D.3 5 920.某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中： Private Sub Command1_Click() Open“out.txt“For Output As#2 Print“Text1“ Close#2 End Sub 调试时发现没有达到目的，为实
8、现上述目的，应做的修改是_。（分数：1.00）A.把 Print“Text1“改为 Print#2，Text1B.把 Print“Text1“改为 Print Text1C.把 Print“Text1“改为 Write“Text1“D.把所有#2 改为#121.为了使文本框同时具有垂直滚动条和水平滚动条，应先把 MultiLine 属性设置为 True，然后再把ScrollBars 属性设置为_。（分数：1.00）A.0B.1C.2D.322.文本框 Text1 的 KeyDown 事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer，Shi
9、ft As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时_。（分数：1.00）A.是否按下了 Alt 键或 Ctrl 键B.按下的是哪个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键23.在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”；1 个复选框(名称为 Check1，标题为“粗体”)和 1 个文本框(名称为 Text1，Text 属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是_。 （分数：1.00）A.Opti
10、on1.Value=FalseCheck1.Value=TrueB.Option1Value=TrueCheck1.Value=0C.Option2.Value=FalseCheck1.Value=2D.Option1Value=TrueCheck1.Value=124.以下说法中正确的是_。（分数：1.00）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress 事件过程B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress 事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAscii 参数与 KeyDown 事件过程中的 KeyCode 参数的
11、值也相同D.在 KeyPress 事件过程中，KeyAscii 参数可以省略25.下列关于通用对话框 CommonDialog1 的叙述中，错误的是_。（分数：1.00）A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开B.使用 CommonDialog1.ShowColor 方法，可以显示“颜色”对话框C.CancelEiTor 属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告D.在显示“字体”对话框前，必须先设置 CommonDialog1 的 Flags 属性，否则会出错26.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(
12、X)”菜单项的访问键，可以将该菜单项的标题设置为_。（分数：1.00）A.退出(X&)B.退出(&X)C.退出(X#)D.退出(#X)27.以下能够触发文本框 Change 事件的操作是_。（分数：1.00）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容28.假定在图片框 Picture1 中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是_。（分数：1.00）A.单击图片框，然后按 Del 键B.执行语句 Picture1.Picture=LoadPicture(“)C.执行语句 Picture1.Pictur
13、e=“D.执行语句：Picture1.Cls29.窗体上有一个名称为 Frame1 的框架(如图)，若要把框架上显示的“Frame1”改为汉字 “框架”，下面正确的语句是_。 （分数：1.00）A.Frame1.Name=“框架“B.Frame1.Caption=“框架“C.Frame1.Text=“框架“D.Frame1.Value=“框架“30.在窗体上画一个名称为 Combol 的组合框，名称为 Text1 的文本框，以及名称为 Command1 的命令按钮，如图所示。 （分数：1.00）A.Combo1.AddItem Text1.TextB.Combo1.AddItem Text1.
14、SelStartC.Combo1.AddItem Text1.SelTextD.Combo1.AddItem Text1.SelLength31.设有如下一段程序： Private Sub Command1_Click() Static a As Variant a=Array(“one“,“two“,“three“,“four“,“five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是_。（分数：1.00）A.变量声明语句有错，应改为 Static a(5)As VariantB.变量声明语句有错，应改为 Static aC.可以正常运行，在窗体上显示 th
15、reeD.可以正常运行，在窗体上显示 four32.求 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 为实现功能要求，程序的横线处应该填入的内容是_。（分数：1.00）A.Call s(i)B.Call sC.y=y+s(i)D.y=y+s33.窗体上有两个名称分
16、别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Ase(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是_。（分数：1.00）A.AB.aC.CD.c34.设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Comman
17、d1_Click() Dim s As String，ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1 中显示的是_。（分数：1.00）A.BasicB.cisaBC.BASICD.CISAB35.假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S，i
18、，1)+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String，Str2 As String Str1=InputBox(“请输入一个字符串“) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。（分数：1.00）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba36.为计算 a“的值，某人编
19、写了函数 power 如下： Private Function power(a As Integer，n As Integer)As Long Dim s As Long p=a For k=1 To n p=p*a Next k power=p End Function 在调试时发现是错误的，例如 Print power(5，4)的输出应该是 625，但实际输出是 3125。程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是_。（分数：1.00）A.把 For k=1 To n 改为 For k=2 To nB.把 p=p*a 改为 p=pnC.把 For k=1 To n 改为
20、 For k=1 To n-1D.把 p=a 改为 p=137.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序，在 Text1 中输入 “FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text=UCase(Mid(Text1.Text，5，4) End Sub 在 Text2 中显示的是_。（分数：1.00）A.formB.listC.FORMD.LIST38.窗体上有名称为 Command1 的命令按钮，名称分别为 List1、List2 的列表框，其中 Lis
21、t1 的MultiSelect 属性设置为 1(Simple)，并有如下事件过程： Private Sub Command1_Click() For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then List2.AddItem Text End If Next End Sub 上述事件过程的功能是将 List1 中被选中的列表项添加到 List2 中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是_。（分数：1.00）A.将 For 循环的终值改为 List1.ListCountB.将 List1.Selected(
22、i)=True 改为 List1.List(i).Selected=TrueC.将 List2.AddItem Text 改为 List2.AddItem List1.List(i)D.将 List2.AddItem Text 改为 List2.AddItem List1.ListIndex39.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=Inpu
23、tBox(“) If y.a/2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是_。（分数：1.00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，yb 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回40.设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas。两个窗体上分别只有一个名称为 Command1 的命令按
24、钮。 Form1 的代码如下： Public x As Integer Private Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Chck() Form2.Show End Sub Form2 的代码如下：Private Sub Command1_Click() Print Form1.x，y End Sub Module1 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上的命令按钮Command1，则窗体上显示的是_。（
25、分数：1.00）A.1 5B.0 5C.0 0D.程序有错二、基本操作题(总题数：2，分数：2.00)41.在名称为 Form1 的窗体上添加一个名称为 L1 的标签，标签上标题为“请输入密码”；添加一个名称为Text1 的文本框，其宽、高分别为 2000 和 300，设置适当的属性，使的在输入密码时，文本框中显示为“*”字符。此外，再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：1.00）_42.在名称为 Form1 的窗体上添
26、加一个名称为 P1 的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”；每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp,窗体文件名保存为 sit2.frm。（分数：1.00）_三、简单应用题(总题数：2，分数：2.00)43.在考生文件夹下有一个工程文件 sjt3.vbp，窗体中有两个图片框，名称分别为 P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩；一个命令按钮，名称为 C1，标题
27、为“发射”；一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求： 设置 Timer1 的属性，使其在初始状态下不计时；设置 Timer1 的属性，使其每隔 0.1s 调用 Timer 事件过程一次； 去掉程序中的注释符，把程序中的问号改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔 0.1s 向上移动一次，当到达 P2的下方时停止移动，如图所示。 （分数：1.00）_44.在考生文件夹下有一个工程文件 sjt4.vbp，运行情况如图所示。程序的功能是计算下 列表达式的值：Z=(X+2)2+(X+3)3+(X+4)4+(X+N)N 其中 N 和 x 的值通过键盘分
28、别输入到文本框 Text1、Text2 中。之后如果单击标题为“计算”、名称为 Command1 的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 Label1 的标签中。 在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的问号改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用运算符，而应使用函数 xn 进行幂运算。程序至少运行一次，按照下图输入数据，使X=10，N=5，单击“计算”按钮，计算 Z 的值，并将结果显示在标签 Label1 中，否则本题没有成绩。最后，将修改后的程序按原文件名存盘。 （分数：1.00）_
29、四、综合应用题(总题数：1，分数：1.00)45.在考生文件夹中有一个工程文件 sjt5.vbp。该程序的功能是从 in5.txt 文件中读入 40 个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签 Label4 和 Label3 中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。 注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示存标签中，否则本题无成绩。最后把修改后的文件按原文件名存盘。（分数：1.00）_全国计算机等级考试二级 VISUAL+BASIC
30、真题 2013 年 9 月答案解析(总分：45.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.支持子程序调用的数据结构是_。（分数：1.00）A.栈 B.树C.队列D.二叉树解析：解析 栈支持子程序调用。栈是一种只能在一端进行插入或删除的线性表。在主程序调用子函数时，要首先保存主程序当前的状态，然后转去执行子程序，最终把子程序的执行结果返回到主程序中调用子程序的位置，继续向下执行，这利调用符合栈的特点，因此本题的答案为 A。2.下列叙述中正确的是_。（分数：1.00）A.栈是“先进先出”的线性表B.队列是“先进后出”的线性表C.循环队列是非线性结构D.有序线性表既
31、可以采用顺序存储结构，也可以采用链式存储结构 解析：解析 栈是先进后出的线性表，所以 A 错误；队列是先进先出的线性表，所以 B 错误；循环队列是线性结构的线性表，所以 C 错误。3.对于循环队列，下列叙述中正确的是_。（分数：1.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针 解析：解析 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构，所以队头指针有时可能大于队尾指针，有时也可能小于队尾指针。4.算法的空间复杂度是指_。（分数：1.00）A.算法在执行过程
32、中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数解析：解析 算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择 A。5.算法的有穷性是指_。（分数：1.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。有穷性是指算法程序的运行时间是有限的。6.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是_。（分数：1.00）A.快速排
33、序B.冒泡排序C.直接插入排序D.堆排序 解析：解析 除了堆排序算法的比较次数是 O(nlog2n)，其他的都是 n(n-1)/2。7.在面向对象方法中，不属于“对象”基本特点的是_。（分数：1.00）A.一致性 B.分类性C.多态性D.标识唯一性解析：解析 对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择 A。8.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是_。（分数：1.00）A.一对一B.一对多 C.多对一D.多对多解析：解析 因为一间宿舍可以住多个学生，即多个学生住在一间宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。9.
34、有两个关系 R、S 如下： 由关系 R 通过运算得到关系 S，则所使用的运算为_。（分数：1.00）A.选择B.投影 C.插入D.连接解析：解析 投影运算是指对于关系内的域指定可引入新的运算。本题中 S 是在原有关系 R 的内部进行的，是由 R 中原有那些域的列所组成的关系。所以选择 B。10.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：1.00）A.属性B.键C.关系 D.域解析：解析 从 E-R 图到关系模式的转换是比较直接的，实体与联系都可以表示成关系，E-R 图中属 性也可以转换成关系的属性。11.在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个
35、按钮，这个按钮是_。（分数：1.00）A.B.C.D. 解析：12.设 x 是整型变量，与函数 IIf(x0，-x，x)有相同结果的代数式是_。（分数：1.00）A.|x|B.-|x| C.xD.-x解析：解析 IIF 函数是条件函数，本题的含义是如果 x0 条件成立，即 x 为正数，就返回-x，即 x 的负数，否则返回 x(它本身)，两种情况都是返回负数。根据这一点，选项 B 符合要求。故 B 选项正确。13.以下选项中，不合法的 Visual Basic 的变量名是_。（分数：1.00）A.a5bB._xyz C.a_bD.andif解析：解析 VB 中变量的命名规则为：必须以字母或汉字开
36、头；由字母、汉字、数字或下划线组成；不能使用 VB 已经占用的关键字。本题选项 B 中变量名以下划线开头，不合法。故 B 选项错误。14.以下数组定义语句中，错误的是_。（分数：1.00）A.Statica(10)As IntegerB.Dim c(3，1 To 4)C.Dim d(-10) D.Dim b(0 To 5，1 To 3)As Integer解析：解析 定义数组有如下 2 种格式。 第 1 种格式： 数组的每一维只给出下标的上界，即可以使用的下标的最大值。其格式为 Dim|public |private|static数组名(上界，上界)As 类型名 形如：Dim a(5)As I
37、nterger，Dim b(4，5)As Integer 这种形式，数组各维的下标的下界只能为 0 或 1，而且下标的上界大于等于下界。本题中 C 选项下标上界-100 或 1，故 A 选项正确，C 选项错误。 第 2种格式： 数组的每一维下标的上界和下界都说明。其格式为 Dim|public|private|static数组名(下界 to 上界)，(下界 to 上界) 形如：Dim a(-2 to 5)As Interger Dim a(1 to 3，2 to 6)As Interger 这种形式，数组各维下标的下界没有限制，只要保证下标的上界大于等于下界就行。故 D 选项正确。 以上两种形
38、式也可以混合使用。故 B 选项也正确。15.以下关于过程及过程参数的描述中，错误的是_。（分数：1.00）A.调用过程时可以用控件名称作为实际参数B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体(Form)可以作为过程的参数解析：解析 过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时，实参也可以是一般数据类型、控件名或窗体。故 A、D 选项正确。 调用过程时，如果过程的参数是数组，则实参传给形参的是地址，这个地址是用数组名表示的一个符号地址，是数组的起始地址，形参和实参
39、用的是同一个地址，在过程中形参的改变会引起实参的改变。故 B 选项正确。 在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中，Sub 过程也可以。Sub 过程中形参声明时前面有关键字 ByRef 或省略 ByRet。(默认)时，实参和形参之间传递的是地址，Sub 过程中形参的变化也会引起实参的变化，这样 Sub 过程中处理的信息也可以传回调用程序中。故 C 选项说法错误。16.在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。运行后的窗体外观如图所示。 （分数：1.00）A.Open“c:/Test2.dat“For Outpu
40、t As#1Put#1，1，PClose#1B.Open“c:/Test2.dat“For Random As#1Get#1，1.PClose#1C.Open“c:/Test2.dat“For Random As#1 Len=Len(P)Put#1，1，pClose#1 D.Open“c:/Test2.dat“For Random As#1 Len=Len(P)Get#1，1，PClose#1解析：解析 在 VB 中可以访问的文件有：顺序文件、随机文件和二进制文件。不同的文件存取方式不同，但处理的步骤大致一样。 用 Open 语句打开文件，并为文件制定一个文件号。根据文件的存取方式使用不同的模
41、式打开文件。 本题是随机文件，读写的是一条一条的记录，所以用 For Random 模式打开，记录的长度为 Person 类型变量 p 的长度。 从文件中读出数据进行处理或处理数据后，把数据写入文件。 本题是把变量的数据写入随机文件，所以用 Put 语句写入。 文件操作结束，关闭文件。各种文件关闭统一用“Close#文件号”语句关闭。 综合一下，故选 C 选项。17.下面有关标准模块的叙述中，错误的是_。（分数：1.00）A.标准模块不完全由代码组成，还可以有窗体 B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为.basD.标准模块中的全局变量可以被工
42、程中的任何模块引用解析：解析 标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不包括窗体。故选项 A误。 标准模块中，用 Private 声明的过程属于私有过程，只能被它所在的模块中的其他过程调用，不能被工程中其他模块调用；用 Public 声明的全局变量属于公用变量，可以被工程中的任何模块引用。标准模块的文件扩展名是.bas。18.可以产生 3050(含 30 和 50)之间的随机整数的表达式是_。（分数：1.00）A.Int(Rnd*21+30) B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)解析：解析 因为 Rnd 函数
43、产生的随机数范围是大于等于 0 而小于 1 的，要产生 3050(含 30 和 50)之间的随机整数，可先产生 0(50-30)，即 020 之间的随机整数，然后在这个基础上再加上 30。 因为Rnd*20 生成 020 之间的随机数中不包括 20，所以要用 Int(Rnd*21)来产生 020 之间的随机整数，然后加上 30，综合起来就是 Int(Rnd*21+30)，故 A 选项正确。19.下面程序运行时，若输入 395，则输出结果是_。 Private Sub Command1_Click() Dim x% x=InputBox(“请输入一个 3 位整数“) Print x Mod 10
44、，x/100，(x Mod 100)/10 End Sub（分数：1.00）A.3 9 5B.5 3 9 C.5 9 3D.3 5 9解析：解析 本题中 x 定义为整型变量，通过输入对话框输入 395，按“确定”按钮后，InputBox 函数把返回值 395 赋给变量 x。表达式 395 Mod 10，结果是 5，395/100 结果为 3，(395 Mod 100)/10 的结果为 9。故 B 选项正确。20.某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中： Private Sub Command1_Click() Open“out.txt“For O
45、utput As#2 Print“Text1“ Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是_。（分数：1.00）A.把 Print“Text1“改为 Print#2，Text1 B.把 Print“Text1“改为 Print Text1C.把 Print“Text1“改为 Write“Text1“D.把所有#2 改为#1解析：解析 要把文本框中的内容写入文本文件中，首先要用 Open 语句的 For Output 模式打开文本文件，并为文件制定一个文件号，然后用 Print 语句将文本写入文本文件，最后关闭文件。 本题中 Click事件过程中第 1、
46、3 条语句正确。 第 2 条语句 Print 语句的格式是：Print#文件号，要写入的内容，原语句错误。 根据格式按选项 A 修改正确，故 A 选项正确。21.为了使文本框同时具有垂直滚动条和水平滚动条，应先把 MultiLine 属性设置为 True，然后再把ScrollBars 属性设置为_。（分数：1.00）A.0B.1C.2D.3 解析：解析 文本框的 ScrollBars 属性值为 0 表示无滚动条，为 1 表示只有水平滚动条，为 2 表示只有垂直滚动条，为 3 表示水平和垂直滚动条都有。故 D 选项正确。22.文本框 Text1 的 KeyDown 事件过程如下： Private
47、 Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时_。（分数：1.00）A.是否按下了 Alt 键或 Ctrl 键B.按下的是哪个数字键C.所按的键盘键的键码 D.按下的是哪个鼠标键解析：解析 参数 KeyCode 返回的是所按键的键码，而且大小写字母键码值相同。故选择 C 选项。23.在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”；1 个复选框(名称为 Check1，标题为“粗体”)和 1 个文本框(名称为 Text1，Text 属性为“改变文字字体”)，窗体外观如图所示。程序运行
