1、计算机等级考试二级 VISUAL+BASIC 机试 5 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.软件测试的目的是( )。A) 评估软件可靠性 B) 发现并改正程序中的错误C) 改正程序中的错误 D) 发现程序中的错误（分数：1.00）A.B.C.D.2.能够用于标识对象名称的属性是( )。A) Name B) Caption C) Value D) Text（分数：1.00）A.B.C.D.3.软件生命周期是指( )。A) 软件产品从提出、实现、使用维护到停止使用退役的过程B) 软件从需求分析、设计、实现到测试完成的过程C) 软件的
2、开发过程D) 软件的运行维护过程（分数：1.00）A.B.C.D.4.有如下过程代码：Sub var_dim()Static numa As IntegerDim numb As Integernuma = numa + 2numb = numb + 1print numa ; numbEnd Sub连续 3 次调用 var_dim 过程，第 3 次调用时的输出是( )。A) 2 1 B) 2 3 C) 6 1 D) 6 3（分数：1.00）A.B.C.D.5.在软件开发中，需求分析阶段产生的主要文档是( )。A) 软件集成测试计划 B) 软件详细设计说明书C) 用户手册 D) 软件需求规格说
3、明书（分数：1.00）A.B.C.D.6.设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String, strL As IntegertStr = “ “strL = Len (xStr)i = strL / 2Do While i = strLtStr = tStr Next nPrintNext mEnd Sub运行程序，单击命令按铡，窗体上显示的内容为( )。A) 2 0 00 4 00 0 6B) 2 0 40 4 04 0 6C) 2 3 03 4 00 0 6D) 2 0 00 4 50 5 6（分
4、数：1.00）A.B.C.D.22.层次型、网状型和关系型数据库划分原则是( )。A) 记录长度 B) 文件的大小C) 联系的复杂程度 D) 数据之间的联系方式（分数：1.00）A.B.C.D.23.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load()ShowText1. Text = “ “Text2. Text = “ “Text1. SetFocusEnd SubPrivate Sub Text1 ChangedText2. Text = Mid ( Text1. Text, 6)End Sub程序运行后，如果在
5、文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是( )。A) ChinaBeijing B) China C) Beijing D) ChinaB（分数：1.00）A.B.C.D.24.面向对象方法中，继承是指( )。A) 一组对象所具有的相似性质 B) 一个对象具有另一个对象的性质C) 各对象之间的共同性质 D) 类之间共享属性和操作的机制（分数：1.00）A.B.C.D.25.当文本框中的内容发生改变时所触发的事件是( )。A) KeyUp B) Change C) LostFocus D) GotFocus（分数：1.00）A.B.C.D.26
6、.阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是( )。A) 105 B) 1 C) 120 D) 15（分数：1.00）A.B.C.D.27.在标准模块中用 Public 关键字定义的变量，其作用域为( )。A) 本模块所有过程 B) 整个工程 C) 所有窗体 D) 所有标准模块（分数：1.00）A.B.C.D.28.为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为( )。A) Value B) ByVal C) ByRef D) Refer
7、ence（分数：1.00）A.B.C.D.29.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As IntegerFor k = 0 To 2A1 (k+1) = InputBox(“请输入一个整数“)A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为( )。A) 0 B) 1 C) 2 D) 3（分数：1.00）A.B.C.
8、D.30.设有以下程序：Private Sub Form_Click()x =50For i = 1 To 4y = InputBox( “请输入一个整数“ )y = Val(y)lf y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为( )。A) 100 B) 50 C) 120 D) 70（分数：1.00）A.B.C.D.31.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是( )。A) 一对一
9、 B) 一对多 C) 多对多 D) 多对一（分数：1.00）A.B.C.D.32.设有语句：Open “c: /Test. Dat“ For Output As #1则以下叙述中错误的是( )。A) 该语句打开 C 盘根目录下的一个文件 Test. Dat，如果该文件不存在则出错B) 该语句打开 C 盘根目录下一个名为 Test. Dat 的文件，如果该文件不存在则创建该文件C) 该语句打开文件的文件号为 1D) 执行该语句后，就可以通过蹦 Print 语句向文件 Test. Dat 中写入信息（分数：1.00）A.B.C.D.33.定时器的 Interval 属性的值是一个整数，它表示的是(
10、 )。A) 毫秒数 B) 秒数 C) 分钟数 D) 小时数（分数：1.00）A.B.C.D.34.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。A) True B) False C) 1 D) 出错（分数：1.00）A.B.C.D.35.下列叙述中正确的是( )。A) 线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B) 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C) 线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D) 线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性（分数：1.00）A.B.C.D.3
11、6.以下叙述中错误的是( )。A) Visual Basic 是事件驱动型可视化编程工具B) Visual Basic 应用程序不具有明显的开始和结束语句C) Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) Visual Basic 中控件的某些属性只能在运行时设置（分数：1.00）A.B.C.D.37.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load
12、()ShowText1. Text = “ “Text1. SetFocusEnd SubPrivate Sub Command1_Click()Text1. Text = LCase(SaveAll) + SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll = SaveAll + Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为( )。A) vbVB B) 不显示任何信息 C) VB D) 出错（分数：1.00）A.B.C.D.38.设在工程文件
13、中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TeINum As String * 20End Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Person. txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是( )。A) Private Sub Command1_Click()Dim B As BooksOpen “Person. txt“ For Output As #1B. Name = InputBox( “输入姓名“ )B. TelN
14、um = InputBox( “输入电话号码“ )Write #1, B. Name, B. TelNumClose #1End SubB) Private Sub Command1_Click()Dim B As BooksOpen “Person. txt“ For Input As #1B. Name = InputBox( “输入姓名“ )B. TelNum = InputBox( “输入电话号码“ )Print #1, B. Name, B. TelNumClose #1End SubC) Private Sub Command1_Click()Dim B As BooksOpen
15、“Person. txt“ For Output As #1B. Name = InputBox( “输入姓名“ )B. TelNum = InputBox( “输入电话号码“ )Write #1, BClose #1End SubD) Private Sub Command1_Click()Open “Person. txt“ For Input As #1Name = InputBox( “输入姓名“ )TelNum = InputBox( “输入电话号码“ )Print #1, Name, TelNumClose #1End Sub（分数：1.00）A.B.C.D.39.为了使文本框只具
16、有垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为( )。A) 0 B) 1 C) 2 D) 3（分数：1.00）A.B.C.D.40.以下叙述中正确的是( )。A) 在属性窗口只能设置窗体的属性 B) 在属性窗口只能设置控件的属性C) 在属性窗口可以设置窗体和控件的属性 D) 在属性窗口可以设置任何对象的属性（分数：1.00）A.B.C.D.二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，要求在属性窗口中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的
17、长度分别为 800、1600。把窗体的标题改为“Shape 控件”，窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1. vbp，窗体文件名保存为 sjt1. frm。（分数：9.00）_42.在名称为 Form1 的窗体上添加一个名称为 HS 的水平滚动条，最大值为 100，最小值为 1。再添加一个名称为 List1 的列表框，在属性窗口中输入列表项的值，分别是 1000、1500、2000，如图所示。请编写适当的程序，使得运行程序时，将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量，每个事件过程中只
18、能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt. vbp，窗体文件名保存为 sjt2. frm。（分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹中有一个工程文件 sjt3. vbp。运行程序时，先向文本框 Text1 中输入一个不超过 10 的正整数，然后选择“N 的阶乘”或“(N+2)的阶乘”单选钮，即可进行计算，计算结果在文本框 Text2 中显示，如图所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文
19、件名进行存盘。（分数：12.00）_44.在考生文件夹中有一个工程文件 sjt4. vbp。该程序的功能是将文件 in4. txt 中的文本读出并在文本框 Text1 中显示。输入一个英文字母到文本框 Text2 中，然后单击“统计”命令按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果在标签 Label3 中显示。给出的窗体文件中已经有了全部控件，如图所示。程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。（分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45
20、.在考生文件夹下有一个工程文件 sjt5. vbp，其窗体上有一个名称为 Text1 的文本框；还有两个名称分别为 C1、C2 的命令按钮，标题分别为“计算”、“存盘”。有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得程序运行时，单击“计算”按钮，找出小于 18000 的最大素数，并显示在Text1 中；单击“存盘”按钮，则将 Text1 中的计算结果存入考生文件央下的 out5. txt 文件中。注意：考生不得修改 isprime 函数过程和控件的属性，必须把计算结果通过
21、“存盘”按钮存入 out5. txt文件中，否则将没有成绩。（分数：18.00）_计算机等级考试二级 VISUAL+BASIC 机试 5 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.软件测试的目的是( )。A) 评估软件可靠性 B) 发现并改正程序中的错误C) 改正程序中的错误 D) 发现程序中的错误（分数：1.00）A.B.C.D. 解析：解析 软件测试是为了发现错误而执行程序的过程，测试要以查找错误为中心，而不是为了演示软件的正确功能。不是为了评估软件或改正错误。2.能够用于标识对象名称的属性是( )。A) Name B) Capti
22、on C) Value D) Text（分数：1.00）A. B.C.D.解析：解析 每个对象都有 Name 属性，用于识别不同的对象。故选 A。3.软件生命周期是指( )。A) 软件产品从提出、实现、使用维护到停止使用退役的过程B) 软件从需求分析、设计、实现到测试完成的过程C) 软件的开发过程D) 软件的运行维护过程（分数：1.00）A. B.C.D.解析：解析 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为软件生命周期。也就是说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。4.有如下过程代码：Sub var_dim()Static nu
23、ma As IntegerDim numb As Integernuma = numa + 2numb = numb + 1print numa ; numbEnd Sub连续 3 次调用 var_dim 过程，第 3 次调用时的输出是( )。A) 2 1 B) 2 3 C) 6 1 D) 6 3（分数：1.00）A.B.C. D.解析：解析 Static 声明的变量为静态变量，静态变量在程序运行期间，每次进入过程时都会保留上次的值，而普通变量不会保留。numa 定义为静态变量，因此每次调用都会保留结果，3 次调用过程，numa的值为 6，numb 的值为 1。5.在软件开发中，需求分析阶段产
24、生的主要文档是( )。A) 软件集成测试计划 B) 软件详细设计说明书C) 用户手册 D) 软件需求规格说明书（分数：1.00）A.B.C.D. 解析：解析 需求分析阶段的工作可以概括为：需求获取、需求分析、编写需求规格说明书、需求评审四个方面。所以选择 D。6.设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String, strL As IntegertStr = “ “strL = Len (xStr)i = strL / 2Do While i = strLtStr = tStr Next nPrintN
25、ext mEnd Sub运行程序，单击命令按铡，窗体上显示的内容为( )。A) 2 0 00 4 00 0 6B) 2 0 40 4 04 0 6C) 2 3 03 4 00 0 6D) 2 0 00 4 50 5 6（分数：1.00）A.B. C.D.解析：解析 根据 For 循环中的 If 语句的条件 n=m or n=4-m 中的 n=m 首先可以得出 a(1，1)=2，a(2，2)=4，a(3，3)=6，其次根据 n=4-m 的条件可以得出 a(1，3)=4，a(2，2)=4，a(3，1)=4。而其他的元素值都为 0。因此窗体上输出的三行分别是：2 0 4，0 4 0，4 0 6。22
26、.层次型、网状型和关系型数据库划分原则是( )。A) 记录长度 B) 文件的大小C) 联系的复杂程度 D) 数据之间的联系方式（分数：1.00）A.B.C.D. 解析：解析 层次模型的基本结构是树形结构，网状模型是一个不加任何条件限制的无向图，关系模型采用二维表来表示，所以三种数据库的划分原则是数据之间的联系方式。23.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load()ShowText1. Text = “ “Text2. Text = “ “Text1. SetFocusEnd SubPrivate Sub Tex
27、t1 ChangedText2. Text = Mid ( Text1. Text, 6)End Sub程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是( )。A) ChinaBeijing B) China C) Beijing D) ChinaB（分数：1.00）A.B.C. D.解析：解析 程序运行后，在文本框 Text1 中输入字符后，触发它的 Change 事件，通过中部截取函数Mid 把文本框 Text1 中的内容从第 6 个字符B开始截取后而的字符，得到“Beijing”字符串，然后把截取的字符串在 Text2 中显示
28、出来。故 C 选项正确。24.面向对象方法中，继承是指( )。A) 一组对象所具有的相似性质 B) 一个对象具有另一个对象的性质C) 各对象之间的共同性质 D) 类之间共享属性和操作的机制（分数：1.00）A.B.C.D. 解析：解析 继承是面向对象的方法的一个主要特征，是使用已有的类的定义作为基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。25.当文本框中的内容发生改变时所触发的事件是( )。A) KeyUp B) Change C) LostFocus D) GotFocus（分数：1.00）A.B. C
29、.D.解析：解析 文本框中内容有变化时，触发 Change 事件。故 B 选项正确。当在文本框中输入数据，松开键盘时触发它的 KeyUp 事件；文本框失去焦点触发 LostFocus 事件；获得焦点，触发 GotFocus 事件；26.阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是( )。A) 105 B) 1 C) 120 D) 15（分数：1.00）A.B.C.D. 解析：解析 Mod 是求模运算符，即求余数，程序中 j Mod 3 的余数可能值为 0，
30、1，2，1 到 15 的整数中，3、6、9、12、15 这 5 个数除 3 的余数为 0，1、4、7、10、13 这 5 个数除 3 余数为1，2、5、8、11、14 这 5 个数除 3 余数为 2。因此 a 的值为 1*5+2*5=15，即选择 D 正确。27.在标准模块中用 Public 关键字定义的变量，其作用域为( )。A) 本模块所有过程 B) 整个工程 C) 所有窗体 D) 所有标准模块（分数：1.00）A.B. C.D.解析：解析 在标准模块中用 Public 定义的变量是公用的、全局变量，在整个工程中的所有窗口、模块中都能引用，作用域是整个工程。故 B 选项正确。28.为了通过
31、传值方式来传送过程参数，在函数声明部分应使用的关键字为( )。A) Value B) ByVal C) ByRef D) Reference（分数：1.00）A.B. C.D.解析：解析 Value 是控件的属性名。用 ByVal 关键字声明形参表示该参数按值传递。ByRef 是默认的参数类型，表示该参数按地址传递。没有 Reference 关键字。故 B 选项正确。29.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As Inte
32、gerFor k = 0 To 2A1 (k+1) = InputBox(“请输入一个整数“)A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为( )。A) 0 B) 1 C) 2 D) 3（分数：1.00）A.B.C. D.解析：解析 程序运行过程如下：k=0，输入 2，A1(k+1)=A1(0+1)=A1(1)=2，A2(3-k)=A2(3-0)=A2(3)=2k=1，输入 4，A1(k+1)=A1(1+1)=A1(2)=4，A2(3-k)=A2(3-1)=A2(2)=4k=2，输入
33、 6，A1(k+1)=A1(2+1)=A1(3)=6，A2(3-k)=A2(3-2)=A2(1)=6k=3，For 循环结束，输出 A2(k)的值即 A2(3)的值，即 2。30.设有以下程序：Private Sub Form_Click()x =50For i = 1 To 4y = InputBox( “请输入一个整数“ )y = Val(y)lf y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为( )。A) 100 B) 50 C) 120
34、 D) 70（分数：1.00）A. B.C.D.解析：解析 程序的作用是输入的数如果是 5 的倍数就累加，如果不是就每次加 50 或与上次是 5 的倍数的那个数相累加。因此最终 a 的值是 15+15+35+35=100。31.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是( )。A) 一对一 B) 一对多 C) 多对多 D) 多对一（分数：1.00）A.B.C. D.解析：解析 因为一个人可以操作多个计算机，而一台计算机又可以被多个人使用，所以两个实体之间是多对多的关系。32.设有语句：Open “c: /Test. Dat“ For Ou
35、tput As #1则以下叙述中错误的是( )。A) 该语句打开 C 盘根目录下的一个文件 Test. Dat，如果该文件不存在则出错B) 该语句打开 C 盘根目录下一个名为 Test. Dat 的文件，如果该文件不存在则创建该文件C) 该语句打开文件的文件号为 1D) 执行该语句后，就可以通过蹦 Print 语句向文件 Test. Dat 中写入信息（分数：1.00）A. B.C.D.解析：解析 本题中是用 Open 语句打开一个顺序文件 Test. Dat，并指定一个文件号 1。故 C 选项正确。如果 Test. Dat 文件不存在，则系统自动创建该文件。故 B 选项正确，A 选项错误。用
36、 For Output 模式打开文件，可通过 Print #浯句向文件写入信息。故 D 选项正确。33.定时器的 Interval 属性的值是一个整数，它表示的是( )。A) 毫秒数 B) 秒数 C) 分钟数 D) 小时数（分数：1.00）A. B.C.D.解析：解析 Interval 的属性值是以毫秒计，所以是毫秒数。故选 A。34.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是( )。A) True B) False C) 1 D) 出错（分数：1.00）A.B. C.D.解析：解析 本题中 Print 语句中的表达式只有“”运算符，相同优先级，左结合。先计
37、算 ab，即105，值为 True，(即-1)，再计算-11，结果为 False。故 B 选项正确。35.下列叙述中正确的是( )。A) 线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B) 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C) 线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D) 线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性（分数：1.00）A.B. C.D.解析：解析 线性链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以一般要多于顺序存储结构。36.以下叙述中错误的是( )。A) Visual Basi
38、c 是事件驱动型可视化编程工具B) Visual Basic 应用程序不具有明显的开始和结束语句C) Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) Visual Basic 中控件的某些属性只能在运行时设置（分数：1.00）A.B.C. D.解析：解析 VB 工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控件 Timer、直线控件Line 就没有。故 C 选项错误。37.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim
39、 SaveAll As StringPrivate Sub Form_Load()ShowText1. Text = “ “Text1. SetFocusEnd SubPrivate Sub Command1_Click()Text1. Text = LCase(SaveAll) + SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll = SaveAll + Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为( )。A) vbVB B) 不显示任何信
40、息 C) VB D) 出错（分数：1.00）A. B.C.D.解析：解析 窗体的 KeyPreview 属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True 时，窗体将会接收按键事件。因此在文本框中输入“VB”时，会先触发 Form_KeyPress()事件，该事件将输入的字符保存到窗体模块变量 SaveAll 中，然后才会显示在文本框中。当单击命令按钮时，Lease 函数将变量 saveAll 中的字符串“VB”转换为小写，为“vb”，然后与原字符串连接，即“vb”+“VB”，显示在文本框中则为“vbVB”。38.设在工程文件中有一
41、个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TeINum As String * 20End Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Person. txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是( )。A) Private Sub Command1_Click()Dim B As BooksOpen “Person. txt“ For Output As #1B. Name = InputBox( “输入姓名“ )B. TelNum
42、= InputBox( “输入电话号码“ )Write #1, B. Name, B. TelNumClose #1End SubB) Private Sub Command1_Click()Dim B As BooksOpen “Person. txt“ For Input As #1B. Name = InputBox( “输入姓名“ )B. TelNum = InputBox( “输入电话号码“ )Print #1, B. Name, B. TelNumClose #1End SubC) Private Sub Command1_Click()Dim B As BooksOpen “Pe
43、rson. txt“ For Output As #1B. Name = InputBox( “输入姓名“ )B. TelNum = InputBox( “输入电话号码“ )Write #1, BClose #1End SubD) Private Sub Command1_Click()Open “Person. txt“ For Input As #1Name = InputBox( “输入姓名“ )TelNum = InputBox( “输入电话号码“ )Print #1, Name, TelNumClose #1End Sub（分数：1.00）A. B.C.D.解析：解析 数据文件的写操
44、作分为 3 步，即打开文件、写入文件和关闭文件。首先，在顺序文件中打开文件写入数据的打开方式为：Open 文件名 For Output As#文件号。因此 B、C 选项排除，只看 A、D 选项。写入顺序文件 Print #语句格式为：Print #文件号，变量名，变量名，Write 语句的的格式与 Print 语句一样：Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名. 成员名，Books 类型变量 B 成员 Name 和 TelNum 赋值和引用应该是 B. Name、B. TelNum，因此 A 选项正确。39.为了使文本框只
45、具有垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为( )。A) 0 B) 1 C) 2 D) 3（分数：1.00）A.B.C. D.解析：解析 文本框的 ScrollBars 属性值：0 表示无滚动条，1 表示只有水平滚动条，2 表示只有垂直滚动条，3 表示水平和垂直滚动条都有。本题文本框只具有垂直滚动条，则 ScrollBar 属性值就设置为2，故 C 选项正确。40.以下叙述中正确的是( )。A) 在属性窗口只能设置窗体的属性 B) 在属性窗口只能设置控件的属性C) 在属性窗口可以设置窗体和控件的属性 D) 在属性窗口可以设置任何对
46、象的属性（分数：1.00）A.B.C. D.解析：解析 在属性窗口中只能设置窗体和各种控件的属性，故 C 选项正确。二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，要求在属性窗口中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的长度分别为 800、1600。把窗体的标题改为“Shape 控件”，窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1. vbp，窗体文件名保存为 sjt1. frm。（分数：9.00）_正确答案：(解题思路 MaxBu
47、tton 属性：确定标题栏是否显示最大化按钮，MinButton 属性：确定标题栏是否显示最小化按钮。操作步骤 步骤 1：按题目要求添加控件，并设置其属性。程序中用到的控件及属性见表 1。表 1控件形状控件窗体属性NameShapeWidthHeightCaptionMaxButtonMinButton设置值Shapel21600800Shape控件FalseFalse步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：42.在名称为 Form1 的窗体上添加一个名称为 HS 的水平滚动条，最大值为 100，最小值为 1。再添加一个名称为 List1 的列表框，在属性窗口中输入列表项的值，分别是 1000、1500、2000，如图所示。请编写适当的程序，使得运行程序时，将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt. vbp，窗体文件名保存为 sjt2. frm。（分数：9.00）_正确答案：(解题思路 List1 Cl
