【计算机类职业资格】计算机二级(VB)1及答案解析.doc

《【计算机类职业资格】计算机二级(VB)1及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】计算机二级(VB)1及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、计算机二级(VB)1 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：25，分数：1750.00)1.下面说法不正确的是（ ）。（分数：70.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0D.abcd2.对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If

2、arr(i)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：70.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100D.N=0 Do While n100 N=N+1 Loop3.声明一个变量为局部变量应该用（ ）。（分数：70.00）A.Private Sub Command1 Click() n=5：x=1 Do

3、X=X * I I=I + 1 Loop While I n Print x End SubB.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I n Print x End SubC.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I=n Print X End SubD.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While

4、 In Print X End Sub4.下面程序段的运行结果是（ ）。 a=1 b=1 Do a=a+1 b=b + 1 Loop Until b5 Print“k=“；a；Spc(4)；“b=“；b+a （分数：70.00）A.不要在循环中创建和释放对象B.在处理字符串时尽量使用 StringBuffer 类C.避免太多的使用 synchronized 关键字D.尽量在循环中创建对象5.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：70.00）A.BookB.2_SeekC.123.58D.Book-16.下列有关子菜单的说法中，错

5、误的是（ ）。（分数：70.00）A.SELECT 姓名 FROM 学生表 WHERE EXISTS； (SELECT 学号 FROM 成绩表 WHERE 成绩90)B.SELECT 姓名 FROM 学生表 WHERE EXISTS； (SELECT 学号 FROM 成绩表 WHERE 学号=学生表学号 AND 成绩90)C.SELECT 姓名 FROM 学生表 WHERE 学号 EXISTS； (SELECT 学号 FROM 成绩表 WHERE 学号=学生表学号AND 成绩90)D.SELECT 姓名 FROM 学生表 WHERE 学号=； (SELECT 学号 FROM 成绩表 WHERE

6、 成绩90)7.设有下面的循环： i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体，则条件中 I 的最小值为（ ）。 （分数：70.00）A.6B.7C.8D.98.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母? （分数：70.00）A.int i=10； while(1) i； if(i= =1)break； B.for(int i=1；i 10；i+) i； C.int i=0； do i+； while(i =0)；D.int i=1； for(;)i=i+1；9.下列语句中，获得列表

7、框 List1 中项目个数的语句是（ ）。（分数：70.00）A.x8B.x8C.s(0)D.v810.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：70.00）A.MinB.MaxC.Max 和 Min 之间D.Max 和 Min 之外11.声明一个变量为局部变量应该用（ ）。（分数：70.00）A.GlobalB.PrivateC.StaticD.Public12.数据的存储结构是指_。 （分数：70.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示13.下列程序段的执行结果为( )。 a=5 F

8、or k=1 To 0 a=a * k Next k Print k；a （分数：70.00）A.-1 6B.-1 16C.1 5D.11 2114.下列叙述中正确的是_。 （分数：70.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率15.下列关于栈的描述正确的是_。 （分数：70.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删

9、除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素16.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox(“op=“) If op$=“+“ Then a=a+2 If op$=“-“ Then a=a-2 Print a （分数：70.00）A.2B.-2C.0D.+217.假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt

10、中写入一条记录。下 列能够完成该操作的事件过程是：（分数：70.00）A.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Output As #1 B.Name = InputBox(“输入姓名“) B.TelNum = InputBox(“输入电话号码“) Write #1, B.Name, B.TelNum Close #1 End SubB.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Input As #1

11、 B.Name = InputBox(“输入姓名“) B.TelNum = InputBox(“输入电话号码“) Print #1, B.Name, B.TelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Output As #1 Name = InputBox(“输入姓名“) TelNum = InputBox(“输入电话号码“) Write #1, B Close #1 End SubD.Private Sub Command1_Click() Dim B

12、 As Books Open “c:/Person.txt“ For Input As #1 Name = InputBox(“输入姓名“) TelNum = InputBox(“输入电话号码“) Write #1, B.Name, B.TelNum Close #1 End Sub18.在用菜单编辑器设计菜单时，不可缺少的项目是（ ）。（分数：70.00）A.12B.15C.20D.6019.下列说法错误的是（ ）。（分数：70.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1C.CREATE PP1D.MODIFY PP120.资源文件的扩展名是（ ）。（

13、分数：70.00）A.basB.clsC.frmD.res21.单击按钮时，以下程序运行后的输出结果是（ ）。 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub （分数：70.0

14、0）A.Dim NewArray(10)As IntegerB.Dim NewArray(1 T0 10)As IntegerC.Dim NewArray(10)IntegerD.Dim NewArray(1 To 10)Integer22.下列程序的执行结果为（ ）。 Private Sub Commandl_Click( ) Dim X As Integer，y As Integer x=12：y=20 Call Value(x，y) Print X；y End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m

15、 * 2：n=n-5 Print m；n End Sub （分数：70.00）A.SetWarningB.SetValueC.MsgBoxD.Beep23.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：70.00）A.2B.-2C.0D.+224.以下为 Visual Basic 学习版的控件的是（ ）。（分数：70.00）A./B./ *C.* /D.|25.有如下的程序： Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Prin

16、t P； P=Pid(k，m) ：Print P End Sub Private Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2 End Function 单击命令按钮后，输出结果为（ ）。 （分数：70.00）A.2 2B.4 4C.5 5D.6 626.NULL 是指 ( )。（分数：-1.00）A.0B.空格C.未知的值或无任何值D.空字符串27.在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系

17、统具有( )。（分数：-1.00）A.特定的数据模型B.数据无冗余C.数据可共享D.专门的数据管理软件28.设有两个串 p 和 q,求 q 在 p 首次出现位置的运算称作( )。（分数：-1.00）A.连接B.模式匹配C.求于串D.求串长29.软件开发离不开系统环境资源的支持，其中必要的测试数据属于( )。（分数：-1.00）A.硬件资源B.通信资源C.支持软件D.辅助资源30.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。（分数：-1.00）A.软件投机B.软件危机C.软件工程D.软件产生31.下述关于数据库系统的叙述中正确的是( )。（分数：-1.00）A.数据库

18、系统减少了数据冗余B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型一致D.数据库系统比文件系统能管理更多的数据32.在结构化设计方法中，生成的结构图(SC)中，带有箭头的连线表示( )。（分数：-1.00）A.模块之间的调用关系B.程序的组成成分C.控制程序的执行顺序D.数据的流向33.若某二叉树的前序遍历访问顺序是 abdgcefh，中序遍历访问顺序是 dgbaechf，则其后序遍历的结点访问顺序是 ( )。（分数：-1.00）A.bdgcefhaB.gdbecfhaC.bdgaechfD.gdbehfca34.软件生命周期中花费时间最多的阶段是( )。（分数：-1.00

19、）A.详细设计B.软件编码C.软件测试D.软件维护35.需求分析中开发人员要从用户那里了解( )。（分数：-1.00）A.软件做什么B.用户使用界面C.输入的信息D.软件的规模三、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.有一个事件过程，其功能是：从已存在于磁盘上的顺序文件 NMltxt 中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件 NM2txt 中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open “NMl.txt“ For Input As #1 Open

20、 “NM2.txt“ For Input As #2 Do While Not EOF(1) -|_|- Print x y=x2 -|_|- Print x Loop Close #1，#2 End Sub （分数：3.00）_37.请填写下列空白，以实现运行后形成一个主对角线上元素值为 1，其他元素为 0 的 66 阶矩阵。 Private Sub Command1 Click() Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then -|_|- Else -|_|- End If Print -|_|- Next j Print Next i

21、End Sub （分数：3.00）_38.在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 -|_|-事件，当对象失 去焦点时将触发 -|_|-事件。 （分数：3.00）_39.诊断和改正程序中错误的工作通常称为 -|_|-。（分数：3.00）_40.下述语句段在运行时的显示结果是 -|_|-。 Cis x=1034 + 8 Print Len(x) （分数：3.00）_41.在窗体上加上一个文本框控件 TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和 Word 文档，然后在文本框控件中显示保存的文件名，请填空。 P

22、rivate Sub Command1_Click( ) CommonDialog1Filter= -|_|- CommonDialog1Filter= -|_|- CommonDialog1ShowSave TextBoxText= -|_|- End Sub （分数：3.00）_42.建立随机文件 Workersdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open“e:/Workersdat“For Random As #1 Len=

23、Len(Workerl) Workerlname=“zn“：Worker1number=100# -|_|- Close #1 Open“Workersdat“For Random As #1 Len=Len(Worker1) -|_|- Print“Worker1：“，Worker1name Print “Worker1：“，Worker1number Close #1 （分数：3.00）_43.在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 如此循环。单击“结束”按钮，程序运行

24、结束。请填空。 Private Sub cmdChange_Click() If Mark=0 Then -|_|- Mark=1 ElseIf -|_|-Then FormlBackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1BackColor；vbBlue -|_|- End If End Sub Private Sub cmdExit_Click() End End Sub （分数：3.00）_44.Visual Basic 对象可以分为两类，分别为 -|_|-和 -|_|-。（分数：3.00）_45.随机文件使用 Put 语句写数据，使用

25、-|_|-语句读数据。（分数：3.00）_46.关键字 ASC 和 DESC 分别表示 1 的含义。（分数：-1.00）填空项 1:_47.件维护活动包括以下几类：改正性维护、适应性维护、 1 维护和预防性维护。（分数：-1.00）填空项 1:_48.数据流图的类型有 1 和事务型。（分数：-1.00）填空项 1:_49.软件开发环境是全面支持软件开发全过程的 1 集合。（分数：-1.00）填空项 1:_50.软件工程研究的内容主要包括： 1 技术和软件工程管理。（分数：-1.00）填空项 1:_计算机二级(VB)1 答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2

26、 分，共 70 分) 下列各(总题数：25，分数：1750.00)1.下面说法不正确的是（ ）。（分数：70.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0 D.abcd解析：此题主要考查 RMI 命令，RMI 命令包括 rmic 命令，为对象生成 stub 和 skeleton；rmiregistry 命令在当前主机的指定端口上启动远程对象注册服务程序；rmid 命令，激活系统守候进程；serialver 命令，返回 serialVersionUID。2.对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyA

27、Scii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：70.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100 D.N=0

28、Do While n100 N=N+1 Loop解析：题中语句都属于条件语句中“If 条件 Then 语句”的类型，从选项中，可以看出条件语句是 A 与 B的比较语句，其值就是此条件语句的值，也就是说，只有当其值为真时，执行 Then 语句。选项 A)和 D)中的“”符号并非比较运算符，所以不正确；选项 B)中的 Printf 并非 Visual Basic 中的输出方法，所以不正确，只有选项 C)是正确的。3.声明一个变量为局部变量应该用（ ）。（分数：70.00）A.Private Sub Command1 Click() n=5：x=1 Do X=X * I I=I + 1 Loop W

29、hile I n Print x End SubB.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I n Print x End SubC.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I=n Print X End Sub D.Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While In Print X End Sub解析

30、：n! =123(n-1)n，由于是累乘，因此 x 和 i 的初值都必须为 1；其次就是循环执行条件的确定，由于使用的是 While 型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是 i=n。4.下面程序段的运行结果是（ ）。 a=1 b=1 Do a=a+1 b=b + 1 Loop Until b5 Print“k=“；a；Spc(4)；“b=“；b+a （分数：70.00）A.不要在循环中创建和释放对象B.在处理字符串时尽量使用 StringBuffer 类C.避免太多的使用 synchronized 关键字D.尽量在循环中创建对象 解析：其中 public 变量

31、可以被所有的外部类访问，而 pretected 的可以被 同一个包及该类的子类访问，没有任何修饰符的变量可以被同一个包中的类访问，而 private 变量只能在被该类内部被访问。 5.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：70.00）A.Book B.2_SeekC.123.58D.Book-1解析：在 Visual Basic 中，可以用名字来表示内存的位置，以便访问内存中的数据。有关变量命名的规则如下： 名字只能由字母、数字和下划线组成； 名字的第一个字符必须是英文字母，最后一个字符可是是类型说明符； 名字的有效字符为 25

32、5 个； 不能用 Visual Basic 的保留字作变量名，但可以把保留字嵌入变量名中；同时变量名也不能是末尾带有类型说明符的保留字，例如变量 Print 和 Print$是非法的，而变量 Print_Number 是合法的。 根据变量命名规则，选项 B)开头第一个字符是数字，非法；选项 C)变量名开头第一个字符是数字，非法；选项 D)中包含非法字符“-”；所以只有选项 A)是正确的。 6.下列有关子菜单的说法中，错误的是（ ）。（分数：70.00）A.SELECT 姓名 FROM 学生表 WHERE EXISTS； (SELECT 学号 FROM 成绩表 WHERE 成绩90)B.SELE

33、CT 姓名 FROM 学生表 WHERE EXISTS； (SELECT 学号 FROM 成绩表 WHERE 学号=学生表学号 AND 成绩90) C.SELECT 姓名 FROM 学生表 WHERE 学号 EXISTS； (SELECT 学号 FROM 成绩表 WHERE 学号=学生表学号AND 成绩90)D.SELECT 姓名 FROM 学生表 WHERE 学号=； (SELECT 学号 FROM 成绩表 WHERE 成绩90)解析：IN 是包含运算，此处子查询中得到多个结果，记录不惟一，因此不用“=”运算符；EXISTS 是谓词，用来检查在子查询中时候有结果返回。7.设有下面的循环： i

34、=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体，则条件中 I 的最小值为（ ）。 （分数：70.00）A.6B.7 C.8D.9解析：本题考查的是 DOLoopUntil,结构的循环语句，不管满不满足条件，都要先执行一次。经分析当I7(或 8 或 9)都满足执行三次的条件，但题目要求最小的，所以应该是 7。8.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母? （分数：70.00）A.int i=10； while(1) i； if(i= =1)break； B.for(int i=1；i 10

35、；i+) i； C.int i=0； do i+； while(i =0)；D.int i=1； for(;)i=i+1；解析：List 控件的 List Count 属性返回列表部分项目的个数。9.下列语句中，获得列表框 List1 中项目个数的语句是（ ）。（分数：70.00）A.x8B.x8C.s(0) D.v8解析：本题是对数组基本知识的考查，在 Visual Basic 中，数组元素一般形式为 x(整数)，括号中的整数是一个确定值，而且数组名 x 后的圆括号不能省去，也不能由其他的括号代替，所以本题的正确答案是选项 C)。10.当滚动条位于最左端或最上端时，Value 属性被设置为（

36、 ）。（分数：70.00）A.Min B.MaxC.Max 和 Min 之间D.Max 和 Min 之外解析：一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值，最下端代表最大值；水平滚动条的值从左到右递增，最 左端代表最小值，最右端代表最大值。因此当滚动条位于最左端或最下端时，Value 属性被设置为 Min。11.声明一个变量为局部变量应该用（ ）。（分数：70.00）A.GlobalB.PrivateC.Static D.Public解析：根据变量的定义位置和所使用的变量定义语句的不同，Visual Basic 中的变量可以分为局部变量、模块变量和全局变量。模块级变量在模块部分用

37、Private 或 Dim 语句声明；全局变量必须用 Public 或Global 语句声明；局部变量在过程内用 Dim 或 Static 语句声明。12.数据的存储结构是指_。 （分数：70.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示 解析：数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构（也称数据的物理结构）。13.下列程序段的执行结果为( )。 a=5 For k=1 To 0 a=a * k Next k Print k；a （分数：70.00）A.-1 6B.-1 16C.1 5 D.11 21解

38、析：For 循环有两种格式，其中一种格式是： For 循环变量=初值 To 终值 Step 步长 语句 Exit For 语句 Next 循环变量 此循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，就一次也不循环而眺出循环，属于“先检查后执行”的类型。观在来看程序段， For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，检查后超过 “终值”0，所以一次也不执行，即最后执行 Print，k=1，a=5。 14.下列叙述中正确的是_。 （分数：70.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构

39、，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 解析：一般来说，一种数据的逻辑结构根据需要可以表示成多种存储结构，常用的存储结构有顺序、链接、索引等存储结构。而采用不同的存储结构，其数据处理的效率是不同的。15.下列关于栈的描述正确的是_。 （分数：70.00）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素解析：栈实际上也是线性表，只不过是

40、一种特殊的线性表。在这种特殊的线性表中，其插入和删除只在线 性表的一端进行。16.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox(“op=“) If op$=“+“ Then a=a+2 If op$=“-“ Then a=a-2 Print a （分数：70.00）A.2B.-2 C.0D.+2解析：此题是根据用户的输入计算变量 a 的值并显示。当输入字符“-”时，第一个 If 条件不成立，跳过，而第二个 If 语句条件满足，因此执行 a=a-2，使 a=- 2。所以选项 B)是正确答案。17.假定在工程文件中有一个标准模块，其中定义了如下记录类型 T

41、ype Books Name As String * 10 TelNum As String * 20 End Type 要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。下 列能够完成该操作的事件过程是：（分数：70.00）A.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Output As #1 B.Name = InputBox(“输入姓名“) B.TelNum = InputBox(“输入电话号码“) Write #1, B.Name, B.

42、TelNum Close #1 End Sub B.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Input As #1 B.Name = InputBox(“输入姓名“) B.TelNum = InputBox(“输入电话号码“) Print #1, B.Name, B.TelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Output As #1 Name = Inp

43、utBox(“输入姓名“) TelNum = InputBox(“输入电话号码“) Write #1, B Close #1 End SubD.Private Sub Command1_Click() Dim B As Books Open “c:/Person.txt“ For Input As #1 Name = InputBox(“输入姓名“) TelNum = InputBox(“输入电话号码“) Write #1, B.Name, B.TelNum Close #1 End Sub解析：A 选项正确。B 选项向文件中输出内容，打开方式应当为 For Output。C 选项记录变量不可以对元素整体输入输出。D 选项记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。18.在用菜单编辑器设计菜单时，不可缺少的项目是（ ）。（分数：70.00）A.12B.15C.20 D.60解析：应该先做什运算，然后进行%运算，最后比较不等式，实际上最后 输出的结果就是被 3 除，余数为2 的不大于 8 的数。19.下列说法错误的是（ ）。（分数：70.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1 C.CREATE PP1D.MODI