1、二级 VISUAL+BASIC 笔试-427 及答案解析(总分：106.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.算法的计算量的大小称为算法的_。(A) 现实性(B) 难度(C) 复杂性(D) 效率（分数：2.00）A.B.C.D.2.启动 Visual Basic 后，就意味着要建立一个新( )。A窗体 B程序 C工程 D文件（分数：2.00）A.B.C.D.3.算法的时间复杂度是指( )。A) 执行算法程序所需要的时间B) 算法程序的长度C) 算法执行过程中所需要的基本运算次数D) 算法程序中的指令条数（分数：2.00）A.B.C.D.4.以下数据结构中，
2、属于非线性数据结构的是( )。A) 栈 B) 线性表 C) 队列 D) 二叉树（分数：2.00）A.B.C.D.5.在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是( )。A) 需求分析 B) 详细设计 C) 软件设计 D) 概要设计（分数：2.00）A.B.C.D.6.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。AAutoSize 属性 BResize 事件CAutoRedraw 属性 DStretch 方法（分数：2.00）A.B.C.D.7.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为( )。A= B* CNext
3、 xA) 20 23 24 35 40 B) 20 25 30 35 40C) 20 23 25 35 40 D) 20 25 35 40 45（分数：2.00）A.B.C.D.25.在窗体上画 4 个文本框(如图 16-8 所示)，并用这 4 个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，自左至右顺序增大)，然后编写如下事件过程：（分数：2.00）A.B.C.D.26.如果 Tab 函数的参数小于 1，则打印位置在第_列。A) 0 B) 1 C) 2 D) 3（分数：2.00）A.B.C.D.27.下列各选项说法错误的一项是A) 文件对话框可分为两种，即打开(Open)文件
4、对话框和保存(Save As)文件对话框B) 通用对话框的 Name 属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性（分数：2.00）A.B.C.D.28.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1
5、.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是A) All Files(*.*) B) Text Files(*.txt) C) Batch Files(*.bat) D) All Files(*.*)|Text Fi
6、les(*.txt)（分数：2.00）A.B.C.D.29.在窗体上画个名称为 Text1 的文本框和个名为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。A) 2 B) 3 C) 4 D) 5（分数：2.00）A.B.C.D.30.若有如下程序：Private Sub Command1
7、_Click()Dim i As Integer, k As Integerk=2For i = 1 To 3Print H(k);Next iEnd SubFunction H(j As Integer)Static ba=0a=a+1b=b+1H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。A) 2 3 4B) 3 4 5C) 5 6 7D) 3 5 6（分数：2.00）A.B.C.D.31.在窗体上画一个文本框，其名称为 Text1。为了在程序运行后 Text1 中的文本不可编辑，应当使用的语句是_。A) Text1.Clear B) Text1.Lock
8、ed=TrueC) Text1.Visible=False D) Text1.Enabled=True（分数：2.00）A.B.C.D.32.在 VBA 中打开“stu”表的语句是( )。ADocmd.OpenForm“stu“ BDocmd.OpenQuery“stu“CDocmd.OpenTable“stu“ DDocmd.OpenReport“stu/（分数：2.00）A.B.C.D.33.下列关于文件的叙述中，错误的是A)使用 Append 方式打开文件时，文件指针被定位于文件尾B)当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件C)顺序文件各记录的长度可以不同D
9、)随机文件打开后，既可以进行读操作，也可以进行写操作（分数：2.00）A.B.C.D.34.设在工程文件中有个标准模块，其中定义了如下记录类型：Type BooksName As String *10TelNum As String*20End Type在窗体上画个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Petson.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是 _。A) Private Sub Command1_ Click()Dim B As BooksOpen “Person.txt“ For Ou
10、tput As #1B. Name=InputBox(“输入姓名”)B. TelNum=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 Command
11、1_Click()Dim B As BooksOpen “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（分数：2.00）A.B.C.D.3
12、5.在窗体上画两个滚动条，名称分别为 Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签 Label4Label6 分别显示“A”、“B”、“A*B”等文字信息，标签 Label1、Label2 分别显示其右侧的滚动条的数值，Label3 显示 A*B 的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2 中显示的两个值求积，并将结果显示在 Label3 中。以下不能实现上述功能的事件过程是_。A) Private Sub Comma
13、nd1_Click()Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)End SubB) Private Sub Command1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEnd SubC) Private Sub Command1_Click()Label3.Caption=HScroll1*HScroll2End SubD) Private Sub Command1_Click()Label3.Caption=HScroll1.Text*HScroll2.Te
14、xtEnd Sub（分数：2.00）A.B.C.D.二、填空题(总题数：13，分数：36.00)36.在算法的 4 个特性中，算法必须能在执行有限个步骤之后终止指的是算法的 1 特性。（分数：2.00）填空项 1:_37.具有 88 个结点的二叉树，其深度至少为 1。（分数：2.00）填空项 1:_38.注释一般分为序言性注释和 1 注释。（分数：2.00）填空项 1:_39.树中度为零的结点称为 1。（分数：2.00）填空项 1:_40.下列程序实现的功能是：当在窗体上单击时，将输出 a1txt 文件中的数字字符的个数。Private Sub form_ Click()Dim Ch As S
15、tring * 1Dim n As IntegerOpen “c:/a1. txt“ for Input As #10do whileU /UCh = Input(1, #10)ifU /U thenn=n+1End ifLoopU /UClose #10End Sub（分数：2.00）填空项 1:_41.下列程序弹出对话框中按钮的个数为_。MsgBox“确认!“，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,“提示：/（分数：2.00）填空项 1:_42.设 A=2，B=-4，则表达式 3*A5 Or B+80 的值是_。（分数：2.
16、00）填空项 1:_43.表达式“12345“12345“ Next xA) 20 23 24 35 40 B) 20 25 30 35 40C) 20 23 25 35 40 D) 20 25 35 40 45（分数：2.00）A.B. C.D.解析：解析 程序的执行过程如下：当 i=1 时，j=1，M(1，1)=i+j=2； s(1)=S(1)+M(1，10=2当 j=2时，M(1，2)=i+j=3；S(1)=S(1)+M(1， 2)=5。当 j=3 时，M(1，3)=i+j=4；S(1)=S(1)+M(1，3)=9。当j=4 时， M(1，4)=i+j=5；S(1)=S(1)+M(1，4
17、)=14。当 j=5 时，M(1，5)=i+j=6； S(1)=S(1)+M(1，5)=20。依次类推，最后 S 数组元素的值为：S(1)=20； S(2)=25；S(3)=30；S(4)=35；S(5)=40。25.在窗体上画 4 个文本框(如图 16-8 所示)，并用这 4 个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，自左至右顺序增大)，然后编写如下事件过程：（分数：2.00）A. B.C.D.解析：分析 对象变量 TextBox 作为 For Each-Next 语句的控制变量。Index 属性返回或设置唯一的标识控件数组中一个控件的编号，其值是从 0 开始的。最终
18、4 个文本框的内容分别为 0、1、2 和 3。26.如果 Tab 函数的参数小于 1，则打印位置在第_列。A) 0 B) 1 C) 2 D) 3（分数：2.00）A.B. C.D.解析：解析 Tab 函数常与 Print#语句或 Print 方法一起使用，对输出进行定位。只有一个参数 n 表示在显示(或打印列表中的)下一个表达式之前打印起始位置移动的列数。如果”小于 1，则 Tab 将打印位置移动到列 1。如果”大于输出行的宽度，则 Tab 函数使用以下公式计算下一个打印位置：n mod width。27.下列各选项说法错误的一项是A) 文件对话框可分为两种，即打开(Open)文件对话框和保存
19、(Save As)文件对话框B) 通用对话框的 Name 属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性（分数：2.00）A.B.C.D. 解析：解析 文件对话框分为两种：打开对话框和保存对话框，所以选项 A)正确；通用对话框的 Name属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题，所以选项 B)正确；打开文
20、件对话框可以让用户指定一个文件，由程序使用，而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件，所以选项 C) 正确；除 DefaultEXT、DialogTitle 属性是打开和保存对话框共有的，还有FileName、FileTitle、Filter、Filtedndex、Hags、InitDir、MaxFileSize、CancelError、 HelpCommand、HelpContext 和 HelpFile 属性，都是它们共有的，所以选项 D)不正确。28.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Privat
21、e Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是A) All Files(*.*) B) Text Files(*.txt) C) Batch Fi
22、les(*.bat) D) All Files(*.*)|Text Files(*.txt)（分数：2.00）A. B.C.D.解析：解析 通用对话框控件 CommonDialog1 的 Filter 属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框“文件类型”的下拉列表中选择。Filter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符文件扩展名，称为“过滤器”。如“*. txt”等，各对字符串间也用管道符隔开。其格式如下：窗体.对话框名.Filter=“描述符 1|过滤器 1|描
23、述符 2|过滤器 2“如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器) 可以由 FilterIndex 属性来指定，该属性是一个整数。用Filter 属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为2用 FilterIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*) 。29.在窗体上画个名称为 Text1 的文本框和个名为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Clic
24、k()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。A) 2 B) 3 C) 4 D) 5（分数：2.00）A.B. C.D.解析：知识点 For 循环评析 For 循环也称 For-Next 循环或计数循环。其一般格式如下：For 循环变量=初值 To 终值Step 步长循环体Exit ForNext循环变量,循环变量For 循环语句的执行过程是：首先把“初值”赋给循环变量，接着检查“循环变
25、量”的值是否超过终值，如果超过，就停止执行“循环体”，跳出循环，执行 Next 后面的语句；否则执行一次“循环体”，然后把“循环变量+步长”的值赋给“循环变量”，重复上述过程。本题中特别容易忽略的一点就是 For 循环中步长的增加，本程序的运行过程为：i i=i+3 n=n+1 If i100 3 1 False4 7 2 False8 11 3 True当 If i10 为真时，退出 For 循环，执行 Next 后面的语句。30.若有如下程序：Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i = 1 To
26、3Print H(k);Next iEnd SubFunction H(j As Integer)Static ba=0a=a+1b=b+1H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。A) 2 3 4B) 3 4 5C) 5 6 7D) 3 5 6（分数：2.00）A.B. C.D.解析：解析 函数 H 中定义了一个静态变量 b，被 Static 修饰的变量，其生命周期为程序的整个执行过程，所以它能够累计记录三次调用函数 H 的变化。第 1 次调用 H 函数后，b 值为 1，函数的返回值 3；第2 次 b 值为 2，函数的返回值 4；第 3 次 b 值为 3
27、，函数的返回值 5。31.在窗体上画一个文本框，其名称为 Text1。为了在程序运行后 Text1 中的文本不可编辑，应当使用的语句是_。A) Text1.Clear B) Text1.Locked=TrueC) Text1.Visible=False D) Text1.Enabled=True（分数：2.00）A.B. C.D.解析：评析 对于 Textbox 控件，可通过设置其 Visible 属性为 False，使其隐藏，设置 Enabled 属性为 False 使其不可用，设置 Locked 属性为 True，使其不可被编辑。32.在 VBA 中打开“stu”表的语句是( )。ADoc
28、md.OpenForm“stu“ BDocmd.OpenQuery“stu“CDocmd.OpenTable“stu“ DDocmd.OpenReport“stu/（分数：2.00）A.B.C. D.解析：解析 在 VBA 中，打开表的命令格式为：Docmd.OpenTable 表名。另外，还需知道打开窗体使用Docmd.OpenForm；打开报表使用 Docmd.OpenReport；打开查询使用 Docmd.OpenQuery；关闭窗体和报表使用 Docmd.Close。33.下列关于文件的叙述中，错误的是A)使用 Append 方式打开文件时，文件指针被定位于文件尾B)当以输入方式(In
29、put)打开文件时，如果文件不存在，则建立一个新文件C)顺序文件各记录的长度可以不同D)随机文件打开后，既可以进行读操作，也可以进行写操作（分数：2.00）A.B. C.D.解析：解析 Append 方式用于在文件末尾追加输出，因此选项 A 正确；当以输入方式(Append、Binary、Output、Random)打开文件时，如果文件不存在，则建立一个新文件，而以 Input 方式打开则不行，因此选项 B 错误；顺序文件各记录的长度是允许不同的，因此选项 C 正确；随机文件打开后，既可以进行读操作，也可以进行写操作，因此选项 D 正确，所以本题的答案为 B。34.设在工程文件中有个标准模块，
30、其中定义了如下记录类型：Type BooksName As String *10TelNum As String*20End Type在窗体上画个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Petson.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是 _。A) Private Sub Command1_ Click()Dim B As BooksOpen “Person.txt“ For Output As #1B. Name=InputBox(“输入姓名”)B. TelNum=InputBox(“输入电话号码
31、”)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 “Person.txt“ For Output As #1B.N
32、ame= 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（分数：2.00）A. B.C.D.解析：知识点 自定义类型、文件的写操作评析 文件的打开格式为：Open 文件名(可包含路径)For 文件打开方式Acce
33、ss 访问权限SharedAs 文件号文件打开方式有如下几种：Output：指定顺序输出文件。Input：指定顺序输入文件。Append：指定顺序输出方式。与 Output 不同的是，当用 Append 方式打开文件时，文件指针被定位在文件末尾。如果对文件执行写操作，则写入的数据附加到原来文件的后面。题目要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条 Books 类型的记录，因此 Person.txt 文件是 Output 方是打开的，因此选项 B、D 错误。数据写入磁盘文件所用的命令是 Write #或 Print #命令，形式为 Prin
34、t #件号，输出列表，Write #破件号，表达式。选项 A、D 中的表达方式都是正确的。记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。选项 D 中是直接在过程中引用记录变量，因此是错误的。35.在窗体上画两个滚动条，名称分别为 Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签 Label4Label6 分别显示“A”、“B”、“A*B”等文字信息，标签 Label1、Label2 分别显示其右侧的滚动条的数值，Label3 显示 A*B 的计算结果。当移动滚动框时，在相应
35、的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2 中显示的两个值求积，并将结果显示在 Label3 中。以下不能实现上述功能的事件过程是_。A) Private Sub Command1_Click()Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)End SubB) Private Sub Command1_Click()Label3.Caption=HScroll1.Value*HScroll2.ValueEnd SubC) Private Sub Command1_Click()Lab
36、el3.Caption=HScroll1*HScroll2End SubD) Private Sub Command1_Click()Label3.Caption=HScroll1.Text*HScroll2.TextEnd Sub（分数：2.00）A.B.C.D. 解析：评析 HScroll 控件缺省属性为 Value，即 HScroll1 与 HScroll1.Value 相等，而其属性中没有Text 属性。二、填空题(总题数：13，分数：36.00)36.在算法的 4 个特性中，算法必须能在执行有限个步骤之后终止指的是算法的 1 特性。（分数：2.00）填空项 1:_ （正确答案：有穷性
37、）解析：解析 算法的 4 个基本特性包括：可靠性、确定性、有穷性和拥有足够的情报。其中，算法的有穷性指的是算法必须在有限的时间内完成，即算法必须在执行有限个步骤之后终止。37.具有 88 个结点的二叉树，其深度至少为 1。（分数：2.00）填空项 1:_ （正确答案：7）解析：解析 根据二叉树性质 4：具有 n 个结点的二叉树的深度至少为log 2n+1，其中log 2n表示log2n 的整数部分。在本题 n=88，所以其深度至少为log 288+1=6+1=7。38.注释一般分为序言性注释和 1 注释。（分数：2.00）填空项 1:_ （正确答案：功能性）解析：解析 注释一般分为序言性注释和
38、功能性注释。序言性注释通常位于每个程序的开头部分，给出程序的整体说明；功能性注释的位置一般嵌在源程序体之中，主要描述其后的语句或程序做什么。39.树中度为零的结点称为 1。（分数：2.00）填空项 1:_ （正确答案：叶子结点）解析：解析 树中度为零的结点，也就是没有后件的结点，称为叶子结点。40.下列程序实现的功能是：当在窗体上单击时，将输出 a1txt 文件中的数字字符的个数。Private Sub form_ Click()Dim Ch As String * 1Dim n As IntegerOpen “c:/a1. txt“ for Input As #10do whileU /UC
39、h = Input(1, #10)ifU /U thenn=n+1End ifLoopU /UClose #10End Sub（分数：2.00）填空项 1:_ （正确答案：7Not EOF(10)8 Ch=“0” And Ch=“9”9Print n）解析：解析 要求算出 a1.txt 中的数字字符的个数，可采用下述方法：首先定义一个记录数字字符个数的变量 n 并打开文件，然后从文件中读取一个字符，判断该字符是否为数字字符，若是数字字符，则变量n 的值加 1。重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾处才能读取字符，故7处应填“Not EOF
40、(10)”，读取一个字符后，应判断该字符是否为数字字符，故8处应填“Ch=“0”And Ch=“9”，当文件中的所有字符都读出一遍后，n 的值就是数字型字符的个数，最后应输出 n，所以9处应填“Print n”。41.下列程序弹出对话框中按钮的个数为_。MsgBox“确认!“，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,“提示：/（分数：2.00）填空项 1:_ （正确答案：4）解析：42.设 A=2，B=-4，则表达式 3*A5 Or B+80 的值是_。（分数：2.00）填空项 1:_ （正确答案：True）解析：解析 表达式的运
41、算顺序是，先进行算术运算，然后进行比较运算，最后进行逻辑运算。表达式3*A5 Or B+80 的运算过程如下；先计算表达式中的算术运算，3*A=6，B+8=4；然后计算表达式中的比较运算，3*A5=65=True，B+80=40=True；最后计算表达式中的逻辑运算，True Or True=True，至此该表达式计算结束，因此，表达式的值为 True。43.表达式“12345“12345“ & “ABC“的值是_。（分数：2.00）填空项 1:_ （正确答案：True）解析：解析 运算的顺序为先进行算术运算“&”，然后是关系运算“”。表达式“12345“， “12345“&“ABC“的运算过
42、程如下：先进行算术运算，“12345“12345“&“ABC“=“12345“12345ABC“；再进行关系运算，“12345“12345“&“ABC“=“12345“12345ABC“=true。44.设有整型变量 s，取值范围为 0100，表示学生的成绩。有如左边程序段：右边用 Select Case 结构改写上述程序，使两段程序所实现的功能完全相同。请填空。左边：If s=90 ThenLevel=“A“Elself s=75 ThenLevel=“B“ElseIf s=60 ThenLevel=“C“ElseLevel=“D“End If右边：Select Case sCase_=90
43、Level=“A“Case 75 To 89Level=“B“Case 60 To 74Level=“C“Case_Level=“D“_（分数：6.00）填空项 1:_ （正确答案：Is；Else(或 Is60 或 0 To 59)；End Select）解析：解析 多分支控制结构又称为 Select Case 语句或 Case 语句，可以同时对条件的多个取值来判断。其格式为：Select Case 测试表达式Case 表达式列表 1语句块 1Case Else语句块 nEnd SelectCase 语句以 Select Case 开头，以 End Select 结束。其中，表达式列表 1，表
44、达式列表 2，称为域值。可采用 3 种形式：表达式 1表达式 2；表达式1 To 表达式 2；Is 关系运算表达式。其中，可使用的运算符有等于(=)、不等于()、小于()、大于()、小于或等于(=)、大于或等于(=)。在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图 6-1 所示。下面是实现上述功能的程序，请填空。Private Sub Form_Load( )List1.AddItem “AAAAA“List1.AddItem “BBBBB“List1.AddItem “
45、CCCCC“List1 .AddItem “DDDDD“End SubPrivate Sub Command1_Click( )Dim L1 As IntegerL1 =U /UIf L1 = 0 ThenList1.RemoveItemU_/ULabel1.Caption =U /U ElseMsgBox“请选择要删除的项目“End IfEnd Sub（分数：6.00）填空项 1:_ （正确答案：List1.ListIndex）解析：填空项 1:_ （正确答案：L1）解析：填空项 1:_ （正确答案：List1.ListCount）解析：45.假定在工程文件中有一个标准模块，其中定义了如下记
46、录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen“c:/person.txt“For output As #1B.Name=InputBox(“请输入姓名“)B.TelNum=InputBox(“请输入电话号码“)write #1，_close #1End Sub（分数：2.00）填空项 1:_ （正确答案：Ge
47、t。）解析：解析 随机访问模式中文件的写操作使用 Put 命令，Put 命令是将一个记录变量的内容写入所打开的磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用 Get 命令，Get 命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。46.建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为U /U、U /U、ShowColor、ShowFont 和 ShowPrinter。（分数：4.00）填空项 1:_ （正确答案：13ShowOpen14ShowSave）解析：评析 CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。CommonDialog 控件建立对话框的操作是通过调用自身的方法实现的：ShowOpen 显示“打开”对话框ShowSave 显示“另存为”对话框ShowColor 显示“颜色
