Microsoft Word - 扉页.doc

Transcription

1 ( 二级 Visual Basic 语言程序设计 ) 全国计算机等级考试命题研究中心

2 内容提要 本书紧扣国家教育部考试中心 2004 年制定的最新全国计算机等级考试大纲, 在深入研究近几年全国计算机等级考试真题的基础上编写而成 本书的编写特点是 10+3, 即包含 10 套标准预测试卷和 3 套上机试卷, 每套试卷都配有详细的答案及分析 本书适用于参加全国计算机等级考试 ( 二级 Visual Basic 语言程序设计 ) 的人员考前训练使用, 也可作为广大计算机初学者及大 中专院校师生的参考书 为了使考生了解最新的考试内容, 本书特别提供了 2002 年 9 月 2003 年 4 月和 9 月全国计算机等级考试笔试试卷 本册特别附赠 2004 年 4 月最新真题及答案分析 图书在版编目 (CIP) 数据 二级 Visual Basic 语言程序设计 / 全国计算机等级考试命题研究中心编. 西安 : 西北工业大学出版社, ( 全国计算机等级考试标准预测试卷 ) ISBN Ⅰ. 二 Ⅱ. 全 Ⅲ.BASIC 语言 程序设计 水平考试 习题 Ⅳ.TP 中国版本图书馆 CIP 数据核字 (2004) 第 号 出版发行 : 西北工业大学出版社 通信地址 : 西安市友谊西路 127 号邮编 : 电话 : 网 址 : 印刷者 : 兴平市印刷厂 开 本 :787 mm mm 1/8 印 张 :82.5 字 数 :2 214 千字 版 次 :2004 年 7 月第 2 版 2004 年 7 月第 1 次印刷 定 价 :84.00 元 ( 共 7 册, 每册 元 )

3 前言 国家教育部考试中心组织的 全国计算机等级考试 是国内规模最大 应试人数最多的计算机水平考试 为了使更多的应试者熟悉各种题型, 掌握解题技巧, 能在短时间内进行有效的复习并突破过关, 我们在对近几年来全国计算机等级考试真题深入研究的基础上, 特别组织并编写了本套丛书 本套丛书题型分配与真题一致, 力求从深度和广度上反映考试的难度和水平 这些题目都是多年从事全国计算机等级考试辅导的指导教师的经验积累, 且在历届辅导班中实际应用 为了便于考生在做题的过程中掌握知识点, 本书对每套预测试卷都给出了参考答案和详细的分析, 希望考生通过分析部分的学习, 能达到举一反三的目的, 花最少的精力取得最佳的复习效果 本套丛书适合于参加全国计算机等级考试 ( 二级 ~ 三级 ) 的人员考前训练使用, 也可作为广大计算机初学者及大 中专院校师生的参考书 衷心希望本套丛书能够为您顺利通过计算机等级考试助一臂之力 本套丛书由以下 7 册组成 : 全国计算机等级考试标准预测试卷 二级 C 语言程序设计全国计算机等级考试标准预测试卷 二级 Visual FoxPro 语言程序设计全国计算机等级考试标准预测试卷 二级 Visual Basic 语言程序设计全国计算机等级考试标准预测试卷 三级信息管理技术全国计算机等级考试标准预测试卷 三级数据库技术全国计算机等级考试标准预测试卷 三级网络技术全国计算机等级考试标准预测试卷 三级 PC 技术本书由笔试试卷 最新真题和上机试卷三部分组成, 即包括 10 套标准预测试卷 3 套最新 (2002 年 9 月 2003 年 4 月和 2003 年 9 月 ) 全真试卷和 3 套上机试卷, 每套笔试试卷都配有详细的答案及分析, 最后附有全国计算机等级考试应试技巧 另外, 本册特别附赠 2004 年 4 月最新真题及答案分析 由于时间仓促, 不足之处在所难免 恳请广大读者将本套教材的使用情况及各种意见 建议及时反馈给我们, 以便我们在今后的工作中不断地改进和完善 全国计算机等级考试命题研究组

4 目录 全国计算机等级考试二级笔试标准预测试卷 ( 一 )( 二级 Visual Basic 语言程序设计 )...1 参考答案及分析...9 全国计算机等级考试二级笔试标准预测试卷 ( 二 )( 二级 Visual Basic 语言程序设计 )...13 参考答案及分析...21 全国计算机等级考试二级笔试标准预测试卷 ( 三 )( 二级 Visual Basic 语言程序设计 )...25 参考答案及分析...33 全国计算机等级考试二级笔试标准预测试卷 ( 四 )( 二级 Visual Basic 语言程序设计 )...37 参考答案及分析...45 全国计算机等级考试二级笔试标准预测试卷 ( 五 )( 二级 Visual Basic 语言程序设计 )...49 参考答案及分析...57 全国计算机等级考试二级笔试标准预测试卷 ( 六 )( 二级 Visual Basic 语言程序设计 )...61 参考答案及分析...69 全国计算机等级考试二级笔试标准预测试卷 ( 七 )( 二级 Visual Basic 语言程序设计 )...73 参考答案及分析...81 全国计算机等级考试二级笔试标准预测试卷 ( 八 )( 二级 Visual Basic 语言程序设计 )...85 参考答案及分析...93 全国计算机等级考试二级笔试标准预测试卷 ( 九 )( 二级 Visual Basic 语言程序设计 )...97 参考答案及分析 全国计算机等级考试二级笔试标准预测试卷 ( 十 )( 二级 Visual Basic 语言程序设计 ) 参考答案及分析 年 9 月全国计算机等级考试二级笔试试卷 (Visual Basic 语言程序设计 ) 参考答案及分析 年 4 月全国计算机等级考试二级笔试试卷 (Visual Basic 语言程序设计 ) 参考答案及分析 年 9 月全国计算机等级考试二级笔试试卷 (Visual Basic 语言程序设计 ) 参考答案及分析 上机预测试卷 ( 一 ) 上机预测试卷 ( 二 ) 上机预测试卷 ( 三 ) 应试技巧 年 4 月全国计算机等级考试二级笔试试卷 (Visual Basic 语言程序设计 ) 参考答案及分析 上机考试真题 参考答案及分析...188

5 全国计算机等级考试二级笔试标准预测试卷 ( 一 ) ( 二级 Visual Basic 语言程序设计 ) ( 考试时间 90 分钟, 满分 100 分 ) 一 选择题 (1~20 每小题 2 分,21~30 每小题 3 分, 共 70 分 ) 下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的, 请将正确选项涂写在答题卡 相应位置, 答在试卷上不得分 1. 下面的操作可以退出 VB 的是 ( ) A) 先打开 VB 的 文件 菜单, 再按 Alt+Q 组合键 B) 使用 开始 菜单中的 程序 命令 C) 使用 开始 菜单中的 运行 命令, 在弹出的对话框中输入 VB 启动文件的名字 D) 使用 我的电脑, 在 VB 所在硬盘驱动器中找到相应的 VB 文件夹 2.( ) 不是 VB 所具有的特点 A) 双项编程 B) 程序接口 C) 动态数据交换 D) 对象的链接与嵌入 3. 在类模块中, 用户自定义类型只能是 ( ) A)Static B)Public C)Private D)Variant 4. 有下面的程序 : Private Sub Form_Click() Dim Str1 As String,Str2 As String,I As Integer Str1="ab" For i=len(str1) To 1 Step 1 Str=Str1&Chr(Asc(Mid(Str1,I,1))+i) Next i Print Str1 程序运行后, 单击窗体显示结果是 ( ) A)abcd B)abce C)abdb D)abfd 5. 以下合法的变量名是 ( ) A)And B)1cost C)Test1 D)A%B 6. 选拔身高 T 超过 1.7 米且体重 W 小于 62.5 公斤的人, 表示该条件的布尔表达式为 ( ) A)T>=1.7 And W<=62.5 B)T>1.7 Or W<62.5 C)T>1.7 And W<62.5 D)T<=1.7 Or W>= 启动 VB 后, 主窗口位于集成环境的顶部, 下列不属于该窗口的是 ( ) 1

6 A) 标题栏 B) 菜单栏 C) 工具栏 D) 属性窗口 8. 假定窗体的名称为 (Name 属性 ) 为 form1, 则把窗体的标题设置为 VBTEST 的正确语句 是 ( ) A)form1="VBTEST" B)form1.Name="VBTEST" C)form1.Text="VBTEST" D)Caption="VBTEST" 9. 假定窗体上有一个 Text1 文本框, 为使它的文本内容位于中间并且没有边框, 则正确的属性 设置为 ( ) A)Text1.Alignment=1 B)Text1.Alignment=1 Text1.BorderStyle=0 Text1.BorderStyle=1 C)Text1.Alignment=2 D)Text1.Alignment=2 Text1.BorderStyle=0 Text1.BorderStyle=1 10. 为清除 PictureBox 控件中的图形, 下列方法正确的是 ( ) A)Picture.Picture=LoadPicture B)set Picture1.Picture=LoadPicture C)Picture1.Picture=LoadPicture("c:\Win1.bmp",vbLPLarge,vbLPColor) D)Set Picture1.Picture=LoadPicture("c:\Win1.bmp",vbLParge,vbPColor) 11. 下面的窗体中所含有的控件不包括 ( ) A) 复选框 B) 框架 C) 单选按钮 D) 命令按钮 12. 决定一个窗体有无控制菜单的属性是 ( ) A)ControlBox B)Caption C)MaxButton D)MinButton 13. 下列叙述中不正确的是 ( ) A) 注释语句不能放在续行符的后面 B) 注释语句可以放在代码中的任何位置 C) 代码中加入注释语句的目的是提高程序的可读性 D) 注释语句是非执行语句, 仅对程序的有关内容起注释作用, 它不被解释和编译 14. 在窗体中添加一个组合框 Combo1 和一个命令按钮 Command1, 编写如下两个事件过程 : Private Sub Command1_Click() a=combo1.list(1) Print a Private Sub Form_Load Combo1.AddItem"12" Combo1.AddItem"34" 2

7 Combo1.AddItem"56" 程序运行后, 输出结果是 ( ) A)12 B)34 C)56 D) 执行以下语句后, 输出的结果是 ( ) a$="good" b$="morming" Print a$+b$ Print a$&b$ A)Good+Morming B)Good+Morming Good&Morming GoodMorming C)GoodMorming D)GoodMorming Good&Morming GoodMorming 16. 下列叙述中不正确的是 ( ) A)Sub 过程不可以递归 B)VB 中的函数功能类似于 Sub 过程 C) 子过程不返回与其特定子过程名相关联的值 D) 过程是没有返回值的函数, 又常被称为 Sub 过程, 在事件过程或其他子过程中可以按名 称调用过程 17. 在窗体中添加名称为 Command1 和名称为 Command2 命令按钮以及文本框 Text1, 然后编写 如下代码 : Private Sub Command1_Click() Text1.Text="AB" Private Sub Command2_Click() Text1.Text="CD" 首先单击 Command1 按钮, 然后再单击 Command2 按钮, 在文本框中显示的是 ( ) A)AB B)CD C)ABCD D) 出错 18. 有如下程序代码 : Private Sub Form_Click() Line(500,500) (1000,500) Line(750,300) (750,700) 程序运行后, 单击窗体, 显示的图形是 ( ) A) 一条折线 B) 一个伞形图形 C) 一个十字形图形 D) 两条分离的直线段 19.VB6.0 提供的日期函数是 ( ) A)Date$() B)Year$() C)Time$() D)Timer$() 3

8 20. 下列叙述中错误的是 ( ) A) 一个工程中只能有一个 SubMain 过程 B) 窗体的 Hide 方法和 Unload 方法的作用完全相同 C) 窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 D) 若工程文件中有多个窗体, 可以根据需要指定一个窗体为启动窗体 21. 有如下程序 : Private Sub Form_Click() A=1 For i=1 To 3 Select Case i Case1,3 A=A+1 Case2,4 A=A+2 End Select Next i Print A 程序运行后, 单击窗体, 则在窗体上显示的内容是 ( ) A)3 B)4 C)5 D)6 22. 有如下程序 : Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click() Dim I As Integer For I=2 To 3 Print"#";I&"="&Fac(I) Next I 程序运行后, 单击窗体, 在窗体上显示的是 ( ) A)#2=2 B)#;2=2 C)#2=2 D)#;2=2 #3=3 #;3=3 #3=5 #;3=5 23. 有如下程序 : Private Sub Command1_Click() Dim s As Integer,n As Integer s=0:n=1 4

9 Do Until n>100 s=s+n n=n+1 Loop Print s 程序运行后, 输出结果是 ( ) A)2500 B)3000 C)4950 D) 有如下程序 sum=0 FOR k=1 TO 10 IF k=10 THEN ELSE sum=sum+k END IF NEXT k PRINT sum END 程序运行后, 输出结果是 ( ) A)10 B)36 C)45 D) 有如下程序 DECLARE SUB mult(x!,y!) a=1:b=1 PRINT"A=";a;"B=";b CALL mult((a),b) PRINT"A=";a; "B=";b END SUB mult(x,y) x=2*x y=3*y END 程序运行后, 输出结果是 ( ) A)A=1,B=1 B)A=1,B=1 A=1,B=1 A=1,B=3 C)A=1,B=1 D)A=1,B=1 A=2,B=3 A=2,B=1 26. 有如下程序 : Private Sub Command1_Click() Dim n As Integer 5

10 i=21:n=3 Do While i>n i=i-n Loop Print i 程序运行后, 输出结果是 ( ) A)21 B)9 C)6 D)3 27. 有如下程序 n=3 FOR K=3 TO 1 STEP -1 x$=string $(n, "$") PRINT k;x$ n=n-1 NEXT K END 程序运行后, 输出结果是 ( ) A)3 $ B)1 $ 2 $ $ 2 $ 1 $ $ $ 3 $ $ $ C)3 $ $ $ D)1 $ 2 $ $ 2 $ $ 1 $ 3 $ 28. 在如下程序 a=0 i=1 DO WHILE i<=100 s=s+1 LOOP PRINT s END 程序运行后, 输出结果是 ( ) A)505 B)5050 C) 死循环, 无输出 D) 无穷大的数 29. 下面是对 Write 语句和 Print 语句的叙述, 其中不正确的是 ( ) A)Write # 语句和 Print # 语句均实现向文件中写入数据 B)Write # 语句和 Print # 语句建立和顺序文件格式完全一样 C)Print # 语句将数据输出到文件, 则各数据项之间没有逗号分隔, 且字符串不加双引号 D) 若使用 Write # 语句将数据输出到文件, 则各数据项之间自动插入逗号, 并且将字符加 6

11 上双引号 30. 在如下程序 CONST C$="Beijing" C$="Shanghai" C$="HeBei" PRINT C$ 程序运行后, 输出结果是 ( ) A)Beijing B)Shanghai C)HeBei D)BeijingShanghaiHeBei 二 填空题 ( 每空 2 分, 共 30 分 ) 请将每空的正确答案写在答题卡 1 ~ 15 序号的横线上, 答在试卷上不得分 1. 每个 VB 对象都有其特定的属性, 可以通过 1 来设置, 对象的外观和对应的操作由所设置的值来确定 2. 表达式 2*3^2+2*8/4+3^2 的值是 2 3. 窗体中有一公共对话框 Comdialog1 和一个命令按钮 Command1, 当单击按钮时打开字体对话框 请在 3 处将程序补充完整 Private Sub Command1_Click() Comdialog 有两个窗体,( 其名称分别为 Form1 和 Form2), 启动窗体为 Form1 在 Form1 中添加一个命令按钮 Command1, 程序运行后, 要求当单击该命令按钮时,Form1 窗体消失,Form2 窗体显示 请在 4 和 5 处将程序补充完整 Private Sub Command1_Click() Form1 4 Form 下面程序的功能是从一个顺序文件 emp.txt 中读入员工姓名 年龄及工资, 然后将各员工的工资按 400 元以下 1000 元以下及更高分为低 中 高 3 类, 分别统计 3 类工资的员工人数 请在 6 和 7 处将程序补充完整 Private Sub Command1_Click() Open"emp.txt"For 6 As 1 Do While Not EOF(1) Print #Name$,age,wage Select Case wage Case Is<400 low=low+1 Case Is<1000 middle=middle+1 7 high=high+1 7

12 End Select Loop Close #1 Print"low=";low;"Middle=";middle;"High=";high 6. 在窗体中添加两个命令按钮, 分别为 Command1 和 Command2, 窗体加载时要求 Command1 不可用,Command2 可用 ; 单击 Command2 后,Command1 可用 请将下列程序补充完整 Private Sub Form_Load() 8 Private Sub Command2_Click() 9 7. 设 C="A", 写出下列布尔表达式的值 (1)C>="0"And C<="9"Or C>="A"And C<="Z" 10 (3)C>="0"And C<="9"And C>="A"And C<="Z" 11 (4)C>="0"Or C<="9"And C>="A"Or C<="Z" 12 (2)C<="0"And C>="9"Or C>="A"And C<="Z" 下列程序段的功能是输入一元二次方程 ax 2 +bx+c=0(a 0) 的 3 个系数 a b c, 并判断它根的情况, 请将程序补充完整 Dim a As Single,b As Single,c As Single Dim delta As Single a=txta.text: b=txtb.text: c=txtc.text data= 14 If delta>0 Then LblResult.Caption=" 有两个不相等的实根 " ElseIf delta=0 Then LblResult.Caption=" 有两个相等的实根 " 15 LblResult.Caption=" 没有实根 " End If 8

13 参考答案及分析 一 选择题 1. 答案 A) 分析 答案 B),C) 和 D) 都是打开 VB 的操作 2. 答案 A) 分析 VB 具有应用程序接口 (API) 动态链接库(DLL) 动态数据交换(DDE) 对象的链接与嵌入 (OLE) 开放式数据连接(ODBC) 等特点 3. 答案 C) 分析 在类模块中, 用户自定义类型只能是 Private 也就是说类模块中的变量是私有的 4. 答案 C) 分析 函数 Len( 字符串 ) 是测试字符串的长度 ; 函数 Mid( 字符串,p,n) 是从第 p 个字符开始, 向后截取 n 个字符 ; 函数 Asc( 字符串 ) 是将字符串中的第一个字符转换成其相应的以十进制形式表示的 ASCII 代码 ; 函数 Chr( 数值表达式 ) 是将数值转换为相应的字符 5. 答案 C) 分析 在 VB 中, 给变量命名时应遵循的规则是 :1 名字只能由字母 数字和下划线组成 ; 2 名字的第一个字符必须是英文字母, 最后一个字符可以是类型说明符 ;3 名字的有效字符为 255 个 ;4 不能用 VB 的保留字作变量名, 但可以把保留字嵌入变量名中 ; 同时, 变量名也有可能是末尾带有类型说明符的保留字 6. 答案 C) 分析 在布尔表达式中要表示同时满足条件, 用逻辑符号 And 7. 答案 D) 分析 主窗口也称设计窗口 启动 VB 后, 主窗口位于集成环境的顶部, 该窗口由标题栏 菜单栏 工具栏组成 属性窗口主要是针对窗体和控件设置的 8. 答案 D) 分析 属性 Caption 是用来定义窗体标题 它即可通过属性窗口设置, 也可以在事件过程中通过程序代码设置, 其格式是 : 对象.Caption[= 字符串 ] 9. 答案 C) 分析 属性 Alignment 是用来确定标签中标题的放置方式, 可以设置为 0 1 2, 当设置为 2 时, 标题居中显示 属性 BorderStyle 是用来设置对象的边框, 可以取 0 1 两个值, 为 0 时, 标签无边框 10. 答案 A) 分析 函数 LoadPicture 在运行期间可以把图形文件装载到窗体 图片框 图像中, 也可以删除图片框中的图形, 只要用一个 空 图形覆盖原来的图形就能实现图形的删除 11. 答案 D) 分析 窗体中含有的控件从左向右依次为复选框 框架和单选按钮 12. 答案 A) 分析 属性 ControlBox 用来设置控制框的状态 ; 属性 Caption 用来定义窗体标题 ; 属性 9

14 MaxButton MinButton 用来显示窗体右上角的最大 最小化按钮 13. 答案 B) 分析 注释语句是为了提高程序的可读性; 注释语句是非执行语句, 仅对程序的有关内容起注释作用 ; 任何字符都可以放在注释行中作为注释内容 注释语句通常放在过程 模块的开头作为标题用, 也可以放在执行语句的后面 ; 注释语句不能放在续行符的后面 14. 答案 B) 分析 方法 AddItem 是用来在列表框中插入一行文本, 其格式为 : 列表框.AddItem 项目字符串 [, 索引值 ] 索引值 可以指定插入项目在列表框中的位置, 表中的项目从 0 开始计数 15. 答案 D) 分析 运算符 + & 都是字符串连接符 16. 答案 A) 分析 Sub 函数和 Sub 过程都可以递归, 但 Sub 过程不能嵌套 17. 答案 B) 分析 文本框保留最后一次赋予的值 18. 答案 C) 分析 语句 Line 可以在屏幕上绘制直线和矩形 其格式为 :Line (x1,y1) (x2,y2) 其中(x1,y1) 为直线的起始坐标 ;(x2,y2) 为直线的终止坐标 19. 答案 A) 分析 函数 Date$() 是返回系统日期 ; 函数 Year$() 是返回系统日期时间的序列数 x 的年号 ; 函数 Time$() 是返回系统时间 20. 答案 B) 分析 Hide 方法是隐藏窗体 ;Unload 事件是把对象从内存中卸载 21. 答案 C) 分析 考点: 情况语句也就是 Select Case 语句, 它的一般格式为 : Select Case 测试表达式 Case 表达式表列 1 语句块 1 [Case 表达式表列 2 [ 语句块 2]] [Case Else [ 语句块 n]] End Select 其功能是, 根据 测试表达式 的值, 从多个语句块中选择符合条件的一个语句块执行 22. 答案 C) 分析 考点:Function 过程的调用, 以及形参与实参的相互对应 符号 ; 是程序逻辑中语句之间的分隔符 23. 答案 D) 分析 考点:Do 循环 循环结束条件是 n>100 s= =

15 24. 答案 C) 分析 考点:For 语句 程序第三行 k=10 时, 程序不执行语句, 所以 k 的取值范围为 [1, 9] k 执行 9 次循环, 值分别为 1,3,6,10,15,21,28,36, 答案 B) 分析 程序第四行才调用 mult((a),b), 所以第一次输出的 A,B 值并没有经过运算, 还是原有值, 调用 sub 函数后可得 :(a)=2,b=3,a=1 提示: 变量 (a) 与 a 不是一个值 26. 答案 D) 分析 Do While Loop 是选择判断条件是否满足, 如果满足则执行循环 ; 否则将不执行循环 程序中 i 的值依次为 18,15,12,9,6,3 27. 答案 C) 分析 函数 String$(n, 字符串 ) 是返回由 n 个字符组成的字符串 28. 答案 C) 分析 该程序运行是死循环, 原因是没有关于 i 的表达式 29. 答案 B) 分析 Print# 语句的功能是把数据写入文件中 和 Print 方法一样,Print# 语句中的各数据项之间可以用分号隔开, 也可以用逗号隔开, 分别对应紧凑格式和标准格式 Write# 语句和 Print# 语句一样, 用 Write# 语句可以把数写入顺序文件中 Write# 语句与 Print# 语句的功能基本相同, 主要区别有两点 : 当用 Write# 语句向文件写数据时, 数据在磁盘上以紧凑格式存放, 能自动地在数据项之间插入逗号, 并给字符串加上双引号 ; 用 Write# 语句写入的正数的前面没有空格 30. 答案 C) 分析 考点: 常量 常量是取最新赋予的值 二 填空题 1. 1 属性窗口 分析 每个 VB 对象都有其特定的属性, 可以通过属性窗口来设置, 对象的外观和对应的操作由所设置的值来确定 分析 表达式中, 幂 ^ 的运算级别最高 它的计算过程 :2*3^2+2*8/4+3^2 =2*9+16/4+9=18+4+9= ShowFont 分析 通用对话框控件为程序设计人员提供几种类型的对话框, 它们可以通过 Action 属性设置, 也可以用相应的方法设置 打开文件对话框的方法是 :ShowOpen; 保存文件对话框的方法是 : ShowSave; 显示颜色对话框的方法是 :ShowColor; 显示字体对话框的方法是 :ShowFont; 打印对话框的方法是 :ShowPrinter; 调用 Help 文件对话框的方法是 :ShowHelp 4. 4 Unload 5 Show 分析 Unload 事件是当从内存中清除一个窗体 ( 关闭窗体或执行 Unload 语句 ) 时所触发的事件 ; Show 方法是显示所要操作的窗体 5. 6 Input 7 Case Else 11

16 分析 考点:Select Case 语句和 Open 语句 情况语句也就是 Select Case 语句, 若没有一个分支符合条件, 则执行 Case Else 语句 ; 在 VB 中用 Open 语句打开或建立一个文件 其格式为 : Open 文件说明 [For 方式 ][Access 存取类型 ][ 锁定 ]As[#] 文件号 [Len= 记录长度 ] 其中 方式 是指定文件的输入输出方式,Output: 指定顺序输出方式 ;Input: 指定顺序输入方式 6. 8 Command1.Enabled=False 9 Command1.Enabled=True 分析 属性 Enabled 是用于激活或禁止 其一般格式为 : 对象.Enabled[=Boolean 值 ] True 11 False 12 True 13 True 分析 一个表达式可能含有多种运算, 计算机按一定的顺序对表达式求值 一般顺序是 :1 首先进行函数运算 2 接着进行算术运算, 其次序为 : 幂 (^) 取负 (-) 乘 浮点除 (* /) 取模 (Mod) 加 减 (+ -) 连接 (&) 3 然后进行关系运算 (= > < <> <= >=) 4 最后进行逻辑运算, 顺序为 :Not And Or Xor Eqv Imp b^2-4*a*c 15 Else 分析 b^2-4*a*c 是一元二次方程根的判别式 ;Else 是 If 语句中不符合条件时所执行的操作 12

17 全国计算机等级考试二级笔试标准预测试卷 ( 二 ) ( 二级 Visual Basic 语言程序设计 ) ( 考试时间 90 分钟, 满分 100 分 ) 一 选择题 (1~20 每小题 2 分,21~30 每小题 3 分, 共 70 分 ) 下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的, 请将正确选项涂写在答题卡 相应位置, 答在试卷上不得分 1. 设 a=2,b=3,c=4,d=5, 表达式 3>2*b OR a=c AND b<>c OR c>d 的值是 ( ) A)True B)1 C)False D) 1 2.VB 的工程资源管理器可管理多种类型的文件, 下面叙述不正确的是 ( ) A) 工程文件的扩展名为.vbp, 每个工程对应一个工程文件 B) 窗体文件的扩展名为.frm, 每个窗体对应一个窗体文件 C) 标准模块是一个纯代码性质的文件, 它不属于任何一个窗体 D) 用户通过类模块来定义自己的类, 每个类都用一个文件来保存, 其扩展名为.bas 3.VB 中控件主要分为 3 类, 下面哪一种不是 VB 中的控件类 ( ) A) 外部控件 B) 标准控件 C)ActiveX 控件 D) 可插入控件 4. 表达式 2*3^2+2*8/4+3^2 的值为 ( ) A)22 B)31 C)49 D)64 5. 如果将布尔常量值 True 赋值给一个整形变量, 则整形变量的值为 ( ) A)0 B)True C) 1 D)False 6. 函数 Int(Rnd(0)*100) 是 ( ) 范围整数 A)(0,10) B)(0,100) C)(1,99) D)(1,100) 7. 要把名称为 List1 的列表框中当前选中的一项删除, 应执行的语句是 ( ) A)List1.Clear B)List1.ClearList1.ListIndex C)List1.DeleteList1.ListIndex D)List1.RemoveList1.ListIndex 8. 下列是对工具箱的描述, 其中错误的是 ( ) A) 工具箱中可以添加 ActiveX 控件 B) 对工具箱添加选项卡, 可以定制工具箱 C) 工具箱中的标准控件能从工具箱中移除 D) 用 工程 菜单中的 部件 命令来装入 Windows 中注册过的其他控件到工具箱 9. 有如下程序 : sum=0 For i=11 To 1 Step 2 sum=sum+i 13

18 Next i Print i 语句 sum=sum+i 执行次数和最后 i 值分别是 ( ) A)6 1 B)6 3 C)7 1 D) 当形参是变量, 与之相应的实参可以是 ( ) A) 变量或常量 B) 表达式 C) 数组 D) 以上三项均可 11. 下面是关于列表框控件和组合框控件的描述, 其中错误的是 ( ) A) 组合框是文本框和列表框的组合 B) 用户可以从列表框和组合框中选择一个或多个项目 C) 列表框控件提供了选项的列表, 用户只能进行选择输入 D) 组合框控件提供了选项的列表, 用户既能进行选择输入, 也能直接进行输入 12. 如果要在文本框中输入字符时, 只显示某个字符, 如星号 (*), 则应设置该文本框的 ( ) 属性 A)Caption B)Char C)PasswordChar D)Text 13. 要在 C 盘当前文件夹下建立一个名为 Student.dat 的顺序文件, 应先使用 ( ) 语句 A)Open"Student.dat"For Input As#2 B)Open"C:Student.dat"For Input As#2 C)Open"Student.dat"For Output As#2 D)Open"C:Student.dat"For Output As#2 14. 在使用菜单编辑器创建菜单时, 可在菜单名称中某字符前插入 ( ) 符号, 那么在运行程序 时按 Alt 键和该字母键就可打开该菜单 A)@ B)$ C)& D) 下划线 15. 有如下程序 : Private Sub Form_Click() a="abcd":b="efgh": c=lcase(a): d=ucase(b) Print c;d 程序运行后, 单击窗体输出结果为 ( ) A)abcdefgh B)ABCDEFGH C)abcdEFGH D)ABCDefgh 16. 有如下程序 : Private Sub Form_Click() x=1:y=2:z=3:x=y:y=z:z=x Print z 程序运行后, 输出结果是 ( ) A)0 B)1 C)2 D)3 17. 假设 A="Good Morning.",B="Afternoon,Boys.", 下列 ( ) 表达式的结果是 "Good Boy." A)Left(A,5)+Ringt(B,5) B)Ringt(A,5)+Left(B,5) C)Mid(A,1,5)+Mid(B,1,6) D)Ringt(A,5)+Ringt(B,5) 14

19 18. 有如下程序 : Private Sub Command1_Click() x=3:y=6 Do While y<=6 x=x*y:y=y+1 Loop Print x 程序运行后, 单击命令按钮输出结果为 ( ) A)18 B)20 C)9 D)7 19. 一个工程中包含两个名称分别为 Form1 Form2 的窗体, 一个名称为 Func 的标准模块 假定在 Form1 和 Func 中分别建立了自定义过程, 其定义格式为 : Form1 中定义的过程 : Private Sub Fun1() Func 中定义的过程 : Public Sub Fun2() 若要在窗体 Form2 调用 Form1 和 Func 中分别建立的自定义过程, 则调用格式正确的是 ( ) A)Fun1() B)Call Form1.Fun1() Fun1() Call Fun1() C)Form1.Fun1() D)Call Form1.Fun1() Func.Fun1() Func.Fun1() 20. 在窗体中添加一个名称为 Command1 的命令按钮, 然后编写如下程序 : Sub sub(b() As Integer) For i=1 To 4 b(i)=2*i Next i Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 sub a() For i=1 To 4 Print a(i); Next i 15

20 运行上面的程序, 单击命令按钮, 则在窗体上显示的内容是 ( ) A) B) C) D) 有如下程序 : Function F(a As Integer) b=0 Static c b=b+1: c=c+1: F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(a) Next I 运行上面的程序, 单击命令按钮, 输出结果为 ( ) A)4 B)4 C)4 D) 有如下程序 s=0 FOR k=1 TO 3 IF k>=1 THEN x=1 ELSEIF k>=2 THEN x=2 ELSEIF k>=3 THEN x=3 ELSE x=4 END IF PRINT x; s=s+x NEXT k PRINT s END 程序运行后, 输出结果是 ( ) A) B) C) D)

21 23. 有如下程序 : A=0:B=0 For I= 1 To 2 Step 1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A:B 程序运行后, 输出结果是 ( ) A)2 4 B)4 4 C)2 2 D) 有如下程序 : A=1:B=0 Select Case A Case 1 Select Case B Case 0 Print"* * 0 * *" Case 1 Print"* * 1 * *" End Select Case 2 Print"* * 2 * *" End Select 程序运行后, 输出结果是 ( ) A)* * 2 * * B)* * 1 * * C)* * 0 * * D)0 25. 在窗体中添加一个命令按钮, 名称为 Command1, 然后编写如下程序 : Private Sub Command1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then Print"12345" End If Private Sub Command1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"67890" 程序运行后, 在命令按钮上单击鼠标右键, 则在窗体上显示的内容是 ( ) A)12345 B)67890 C)12345 D)

22 26. 有如下程序 : Dim a As Integer Sub test() a=a+1:b=b+1:c=c+1 Print"Sub:";a;b;c Private Sub Command1_Click() a=2:b=3:c=4 Call test Call test 程序运行后, 单击命令按钮, 窗体将显示的是 ( ) A)Sub:1,1,1 B)Sub:2,3,4 Sub:1,1,1 Sub:2,3,4 C)Sub:3,1,1 D)Sub:3,4,5 Sub:4,1,1 Sub:4,5,6 27. 把窗体的 KeyPreview 属性设置为 True, 编写程序, 程序运行后, 如果按下 A 键, 则在窗体上输出的数值为 正确的程序段是( ) A)Private Sub Form_KeyDown(KeyCode As Integer) Print KeyCode; Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyCode B)Private Sub Form_KeyDown(KeyAscii As Integer,Shift As Integer) Print KeyAscii; Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii C)Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print KeyCode; Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii D)Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print KeyCode; 18

23 Private Sub Form_KeyPress(KeyAscii As Integer,Shift As Integer) Print KeyAscii 28. 有如下程序 : Private Sub Command1_Click() Dim k,n,m,as Integer n=5:m=1:k=1 Do While k<=n m=m*2:k=k+1 Loop Print m 程序运行后, 单击命令按钮, 则输出结果为 ( ) A)8 B)16 C)32 D) 有如下程序 : Dim(5,5) For I=1 To 3 For J=1 To 4 A(I,J)=I*J Next J Next I For M=1 To 2 For N=1 To 3 Print A(M,N) Next N Next M 程序运行后, 输出结果为 ( ) A) B) C) D) 在窗体中添加一个命令按钮 ( 其 Name 属性为 Command1), 然后编写如下代码 : Private Sub Command1_Click() Dim a(10) As Integer Dim p(3) As Integer k=1 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*1) Next i 19

24 For i=1 To 3 k=k+p(i)*2 Next i Print k 程序运行后, 单击命令按钮, 输出结果是 ( ) A)15 B)13 C)30 D)37 二 填空题 ( 每空 2 分, 共 30 分 ) 请将每空的正确答案写在答题卡 1 ~ 15 序号的横线上, 答在试卷上不得分 1.VB6.0 分为 3 种版本, 分别是 1 2 和 3 2. 要使一个文本框具有水平垂直流动条, 则应先将其 MultiLine 属性设置为 4, 然后再将 ScrollBar 属性设置为 5 3. 表达式 "abc"+"123"+"abc" 的值等于 6 4. 以下程序在文本框 Text1 中输入任一字符串, 并按相反的次序显示在文本框 Text2 中 Private Sub Command1_Click() Dim N As String,C As String,D As String N=Text1.Text M= 7 For I=M To 1 Step 1 C=Mid(N,I,1) D=D& 8 Next I 9 =D 5. 有如下公式 : 100-X -100 X<0 Y= 100+X 0 X <X 200 根据公式, 将下面程序补充完整, 要求输入 X 的值, 求 Y 的值 Private Sub Command1_Click() X=Val(Text1.Text) Select Case X Case 10 Print"X<-100 Or X>200" Case 11 Y=100-X Case 12 Y=100+X Case 13 Y=400 20

25 End Select Text2.Text=Y 6. 有如下程序 : Private Sub Form_Click() Dim x,y As Integer x=1:y=0 Do While x<3 y=y+x x=x+1 Loop Print x,y 单击窗体后, 在窗体上显示的内容是 14 ; 若将程序中的语句 y=y+x 和语句 x=x+1 的位置互换, 再次执行程序后, 单击窗体后, 在窗体上显示的内容是 15 参考答案及分析 一 选择题 1. 答案 C) 分析 一个表达式可能含有多种运算, 计算机按一定的顺序对表达式求值 一般顺序是 :1 首先进行函数运算,2 接着进行算术运算取模,3 然后进行关系运算,4 最后进行逻辑运算 注意 : 布尔表达式返回的值只有 True 和 False 2. 答案 D) 分析 VB 提供了大量预定义的类, 同时允许用户根据需要定义自己的类, 用户通过类模块来定义自己的类, 每个类都用一个文件来保存, 其扩展名为.cls 3. 答案 A) 分析 VB 的控件分为 3 类 : 标准控件 ( 也称内部控件 ) ActiveX 控件 可插入对象 4. 答案 B) 分析 算术运算, 次序为 : 幂 (^) 取负 (-) 乘 浮点除 (* /) 取模 (Mod) 加 减 (+ -) 连接 (&) 5. 答案 C) 分析 关系表达式的结果是一个 Boolean 类型的值, 即 True 和 False VB 把任何非 0 值都认为是 真, 但一般以 1 表示真, 以 0 表示假 6. 答案 B) 分析 函数 Rnd(x) 是定义 0~1 之间的单精度随机数 ; 函数 Int(x) 是求不大于自变量 x 的最大整数 7. 答案 D) 21

26 分析 Clear 方法是用来清除列表框中的全部内容 ;RemoveItem 方法是用来删除列表框中指定的项目, 其格式为 : 列表框.RemoveItem 索引值 8. 答案 C) 分析 工具箱中的工具分为两类: 内部控件也就是标准控件和 ActiveX 控件 标准控件是不可以移动或删除 9. 答案 D) 分析 循环次数 =( 循环终值 循环初值 )/ 步长 +1 i 的值依次为 , 执行第七次循环后 i 的值为 答案 D) 分析 当形参是变量, 与之相应的实参可以是变量或常量 表达式或数组 ; 在传送参数时, 形参与实参中对应变量的名字不必相同, 但是它们所包含的参数的个数必须相同 ; 实参与相应形参的类型也必须相同 11. 答案 B) 分析 用户可以从列表框中选择一个或多个项目, 但组合框一次只能选择一项 12. 答案 C) 分析 PasswordChar 属性可用于口令输入 默认状态为空字符串, 用户从键盘输入时, 每个字符都可在文本框中显示, 也可以设置 如果把 PasswordChar 的属性设置为一个字符, 则在键盘上输入时, 显示的不是键入的字符, 而是被设置的字符 13. 答案 D) 分析 在 VB 中用 Open 打开或建立一个文件 其格式为 :Open 文件说明 [For 方式 ][Access 存取类型 ][ 锁定 ]As[#] 文件号 [Len= 记录长度 ] 方式 是指文件的输入输出方式 其中 Output: 指定顺序输出方式 ;Input: 指定顺序输入方式 14. 答案 C) 分析 访问键, 就是菜单项中加了下划线的字母, 只要按 Alt 和加下划线的字母键, 就可以选择相应的菜单项 为了设置访问键, 必须在准备加下划线的字母的前面加上一个 & 15. 答案 C) 分析 函数 Lcase( 字符串 ) 是将 字符串 中的大写字母转换成小写字母 ; 函数 Ucase( 字符串 ) 是将 字符串 中的小写字母转换成大写字母 16. 答案 C) 分析 变量都是取最后赋予的值 17. 答案 A) 分析 函数 Mid( 字符串,p,n) 是从第 p 个字符开始, 向后截取 n 个字符 ; 函数 Right( 字符串,n) 是返回 字符串 的最后 n 个字符 ; 函数 Left( 字符串,n) 是返回 字符串 的前 n 个字符 18. 答案 A) 分析 考点: 带 While 子句的 Do 循环 While 子句的作用是, 当指定的条件为真时继续执行循环, 当条件为假时不再执行循环 19. 答案 B) 分析 调用过程有两种方式: 用 Call 语句调用, 其格式为 :Call 过程名 [( 实际参数 )]; 把过程名作为一个语句使用, 它与第一种方式相比不同之处是去掉关键字 Call 和 实际参数 的括号 22

27 20. 答案 B) 分析 考点: 形参与实参之间的相互转换 注意 : 当数值作为参数时, 使用的不是 传值 方式, 而是 传地址 方式 21. 答案 B) 分析 Static 是用于过程中定义静态变量及数组变量 与 Dim 不同, 如果用 Static 定义了一个变量, 则每次引用该变量时, 其值会继续保留 而引用 Dim 定义的变量时, 变量值会被重新设置 ( 数值变量重新设置为 0, 字符串变量被设置为空 ) 22. 答案 B) 分析 考点:FOR 循环, 块 IF 的嵌套 输出 x 的值分别为 :1 2 3,s 在程序运行时的值分别为 : 答案 A) 分析 语句 B=B+1 执行了 4 次, 语句 A=A+1 执行了 2 次 24. 答案 C) 分析 考点: 情况语句也就是 Select Case 语句, 它的一般格式为 : Select Case 测试表达式 Case 表达式表列 1 语句块 1 [Case 表达式表列 2 [ 语句块 2]] [Case Else [ 语句块 n]] End Select 其功能是, 根据 测试表达式 的值, 从多个语句块中选择符合条件的一个语句块执行 25. 答案 A) 分析 对于 MouseDown( 压下鼠标事件 ) 和 MouseUp( 松开鼠标事件 ) 来说, 只能用鼠标的按键参数判断是否按下或松开某一个键, 不能检查两个键被同时按下或松开,Button 参数的取值有 3 种 : 为 1 时表示按下鼠标左键 ; 为 2 时表示按下鼠标右键 ; 为 4 时表示按下鼠标中间键 26. 答案 C) 分析 考点: 变量的作用域 程序第一行就已定义了变量 a, 但并没有定义变量 b,c, 所以它们是过程变量, 过程变量在执行操作时不保留值, 每次调用值都为 答案 C) 分析 事件 KeyPress 的参数 KeyAscii 是所按键的 ASCII 码 ; 事件 KeyDown 的参数 KeyCode 是按键的实际 ASCII 码, 该码以 键 为准, 而不是以 字符 为准, 大写字母与小写字母使用同一个键, 它们的 KeyCode 相同 ( 使用大写字母的 ASCII 码 ) 28. 答案 C) 分析 考点:Do While Loop 语句 是先判断条件是否满足, 为真执行循环, 否则不进行 29. 答案 A) 分析 考点: 二维数组 程序第一行定义一 (6*6) 的二维数组, 外循环得出的是一 (3*4) 23

28 的二维数组, 内循环要求输出的该数组中的第 1,2 行的第 1,2,3 列数组元素 30. 答案 B) 分析 考点:For 循环 第一 For 循环可得出 a(i) 的值分别为 1~10; 第二 For 循环可得出 p(i) 的值分别为 1 2 3; 第三 For 循环可得出 k 的值为 k=1+1*2+2*2+3*2=13 二 填空题 1. 1 学习版 2 专业版 3 企业版 分析 VB6.0 包括 3 种版本, 分别是为学习版 专业版和企业版 2. 4 True 5 3 分析 属性 MultiLine 设置为 False, 则在文本框中只能输入单行文本 ; 为 True 时, 可以使用多行文本 属性 ScrollBars 是用来确定文本框中有没有滚动条, 可以取 四个值, 为 3 时表示同时具有水平和垂直滚动条 3. 6 abc123abc 分析 运算符号 + 是字符串连接符 4. 7 Len(Text1.Text) 8 C 9 Text2.Text 分析 从程序第五行可知,M 是个数, 再根据题意是求 Text1.Text 的长度, 所以用 Len 函数, 最后把 D 的值赋给 Text2 文本 IS<-100,IS> IS<0 12 IS<= IS<=200 分析 考点:Select Case 语句 在 Case 子句中可以用 IS 指定条件 其格式为 : CASE IS < 关系运算符 >< 表达式 > 分析 考点:Do While Loop 循环 循环体先判断 While 条件是否满足, 为真时才执行循环体, 未调换之前 y 的值依次为 1,3,x 的值依次为 2,3; 调换后 x 的值依次为 2,3,y 的值依次为 2,5 24

29 全国计算机等级考试二级笔试标准预测试卷 ( 三 ) ( 二级 Visual Basic 语言程序设计 ) ( 考试时间 90 分钟, 满分 100 分 ) 一 选择题 (1~20 每小题 2 分,21~30 每小题 3 分, 共 70 分 ) 下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的, 请将正确选项涂写在答题卡 相应位置, 答在试卷上不得分 1. 数学式子 sin60 写成 VB 表达式是 ( ) A)Sin60 B)Sin(60) C)SIN(60 ) D)Sin(60*3.14/180) 2. 若要使标签控件显示时, 不覆盖其背景内容, 应设置标签控件的 ( ) 属性 A)AutoSize B)BorderStyle C)Enabled D)BackStyle 3. 决定控件上文字的字体 字形 大小和效果的属性是 ( ) A)Caption B)Font C)Name D)Text 4. 下列表达式中其值为 0 的是 ( ) A)Int(4.4)+Int(-4.7) B)Fix(4.4)+Fix(-4.7) C)Fix(4.4)+Int(-4.7) D)Clnt(4.4)+Clnt(-4.7) 5. 以下是关于窗体的描述, 其中正确的是 ( ) A) 只有用于启动的窗体可以有菜单 B) 窗体的名字和存盘的窗体文件名必须相同 C) 窗体事件和其中所有控件事件的代码都放在窗体文件中 D) 开始运行时窗体的位置只能是设计阶段的显示的位置 6. 有如下语句 : Type Student Number As String Name As String Sex As String End Type Dim Stu As Student With Stu.Number="12".Name=" 张红 ".Sex=" 女 " End With 执行 Print.Stu.Name 后的结果是 ( ) 25

30 A) 张红 B)22 C)" 女 " D)Age 7. 过程中的变量值对过程来说是 ( ) 的 A) 不变 B) 局部 C) 全局 D) 公有 8. 如下程序 : Private Sub Form_Click() x=inputbox("enter the First integer") y=inputbox("enter the Second integer") Print y+x 程序运行后, 单击窗体, 先后在两个输入对话框中分别输入 ABC 和 abc, 则输出结果是 ( ) A)ABC B)abc C)abcABC D)ABCabc 9. 有如下程序 : n=0 For i=25 To 5 Step -5 n=n+1 Next I 程序运行后, 输出结果是 ( ) A)4 B)5 C)6 D)7 10. 在 VB6.0 的 文件 主菜单项, 下列那个可以把新的或已有的工程添加到当前打开的工程 组中 ( ) A) 打开工程 B) 新建工程 C) 添加工程 D) 保存工程 11.VB6.0 默认访问的数据库为 ( ) A)Btrive 数据库 B)dBASE 数据库 C)FoxPro 数据库 D)Access 数据库 12. 在一个语句行内如果要写多条语句时, 语句之间应该用 ( ) 分隔 A) 逗号 B) 顿号 C) 分号 D) 冒号 13. 有如下程序 : N=0 For I=1 To 3 For J=5 To 1 Step-1 N=N+1 Next J,I Print N;J;I 程序运行后, 输出结果是 ( ) A) B) C) D) 下列程序段的执行结果为 ( ) A=0:B=0 For I=-1 To 2 Step -1 26

31 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A:B A)-2 2 B)2 3 C)2 4 D) 在窗体中有一列表框和一标签 ( 其名称分别为 List1 Label1), 列表框中显示若干学校的名 称 当单击列表框中的某个学校名时, 在标签中显示选中学校的名称 下列那个程序可以实现这个功 能 ( ) A)Private Sub List1_Click() B)Private Sub List1_Click() Label1.Name=List1.Text Label1.Name=List1.ListIndex C)Private Sub List1_Click() D)Private Sub List1_Click() Label1.Caption=List1.Text Label1.Caption=List1.ListIndex 16. 在窗体中有两个文本框 ( 其名称分别为 Text1 Text2) 和一命令按钮 ( 其名称为 Command1), 有如下程序 : Private Sub Command1_Click() a=text1.text+text2.text Print a Private Sub Form_Load() Text1.Text="" Text2.Text="" 程序运行后, 在第一 二个文本框中分别输入 ABC EFG, 然后单击命令按钮,a 的值为 ( ) A)ABC B)EFG C)ABCEFG D)EFGABC 17. 图片框 (Picture) 和图像框 (Image) 是 VB 中用来显示图形的两种基本控件, 用于在窗体 的指定位置显示图形信息, 下列是对它们的描述, 其中正确的是 ( ) A) 两类控件都可以设置为 AutoSize 属性, 以保证装入的图形可以自动改变大小 B) 两类控件都可以设置 Stretch 属性, 使得图形根据物件的实际大小进行拉伸调整, 保证显 示图形的所有部分 C) 当图像框的 Stretch 属性为 True 时, 加载到图像框的图形会自动改变大小以适应图形框 的大小 D) 当图形框的 Autosize 属性为 Flase 时, 只有装入图元文件 (*.wmf) 时, 图形才能自动调 整大小以适应图片框的尺寸 18. 文件的基本操作指的是文件的删除 拷贝 移动 改名等, 文件重命名的操作是 ( ) A)Kill B)FileCopy C)ReName D)Name 27

32 19. 下面是关于 Sub 过程和 Function 过程的描述, 其中不正确的是 ( ) A) 调用 Sub 过程相当于执行一个语句, 不直接返回值 B) 调用 Function 过程要返回一个值 C) 调用 Sub 过程和和调用 Function 过程一样都要返回一个值 D)Sub 过程与 Function 过程一样都不能嵌套 20. 在窗体中添加一个文本框, 有如下程序 : Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=chr$(keyascii) KeyAscii=Asc(Ucase(char)) Text1.Text=String(3,KeyAscii) 程序运行后, 如果在键盘上输入字母 a, 则文本框中显示的内容为 ( ) A)a B)A C)aaa D)AAA 21. 有如下程序 : A=15 B=10 Do While A>B Print A+B A=A-1 Loop 程序运行后, 输出结果为 ( ) A)25 B)24 C)21 D) 如果将上面程序中的 While 改为 Until 并将条件语句 A>B 改为 A<B, 则程序为 : A=15 B=10 Do Until A<B Print A+B A=A-1 Loop 程序运行后, 输出结果为 ( ) A)25 B)24 C)21 D)

33 有如下程序 : Option Base 1 Private Sub Command1_Click(Index As Integer) Dim Arr1(12) As Integer,Arr2(3) As Integer Dim Sum As Integer Sum=3 For I=1 To 12 Arr1(I)=I Next I For I=1 To 3 Arr2(I)=Arr1(I*I) Next I For I=1 To 3 Sum=Sum+Arr2(I) Next I Print Sum 程序运行后, 单击命令按钮, 则输出结果是 ( ) A)16 B)17 C)34 D) 有如下程序 : Sub Proc(x As Single,y As Single) t=x x=t\y y=t Mod y Private Sub Form_Click() Dim a As Single Dim b As Single a=5 b=4 Call Proc(a,b) Print a,b 程序运行后, 单击窗体, 则输出结果为 ( ) A)1 1 B) C)5 4 D) 有如下程序 : N=0 For I=1 To 3 29

34 For J=5 To 1 Step 1 N=N+1 Next J,I Print N;I;J 程序运行后, 输出结果是 ( ) A) B) C) D) 有如下程序 : A=75 If A>60 Then I=1 ElseIf A>70 Then I=2 ElseIf A>80 Then I=3 ElseIf A>90 Then I=4 End If Print"I=";I 程序运行后, 输出结果是 ( ) A)I=2 B)I=1 C)I=1 或 I=2 D)I=3 27. 有如下程序 : x=int(rnd+4) Select Case x Case 5 Print" 优秀 " Case 4 Print" 良好 " Case 3 Print" 通过 " Case Else Print" 不通过 " End Select 程序运行后, 输出结果是 ( ) A) 良好 B) 优秀 C) 通过 D) 不通过 28. 如下程序 : A="ABBACDDCBA" For I=6 To 2 Step 2 X=Mid(A,I,I) Y=Left(A,I) 30

35 Z=Right(A,I) Z=X&Y&Z Next I Print Z 程序运行后, 输出结果是 ( ) A)ABB B)ABBA C)BBABBA D)DDCBA 29. 设在菜单编辑器中定义了一个菜单项, 名为 menu1 为了在运行时隐藏该菜单项, 下列正确的是 ( ) A)menu1.Enabled=True B)menu1.Visible =False C)menu1. Enabled=True D)menu1.Visible= False 30.PAINT 语句的功能是 ( ) A) 为一条直线着色 B) 为一个圆着色 C) 为一个矩形边框着色 D) 在任何封闭的图形内填充颜色二 填空题 ( 每空 2 分, 共 30 分 ) 请将每空的正确答案写在答题卡 1 ~ 15 序号的横线上, 答在试卷上不得分 1. 在 VB 中, 对于没赋值的变量, 系统默认值为 1 2. 快捷键 Ctrl+O 的功能相当于执行 2 菜单中的 3 命令; 或者相当于单击工具栏上的 4 按钮 3. 在窗体中有两个文本框 ( 其名称分别为 Text1 Text2) 和一个命令按钮 ( 其名称为 Command1), 有如下程序 : Private Sub Command1_Click() Text1.Text=" 欢迎使用 VB.6.0" Text2.Text=Text1.Text Text1.Text=" 是否一定要退出 VB6.0" 程序运行后, 单击命令按钮, 文本框 Text1 显示的内容是 5, 文本框 Text2 显示的内容是 6 4. 以下程序实现每次单击按钮 Command1 时, 标签在窗体 Form1 上向右移动 50 缇, 当标签移动出窗体右边界时, 再次单击按钮时标签将回到窗体的左边界 将下面程序补充完整 Private Sub Command1_Click() If Label1.Left>Form1.Scale Width Then 7 Else 8 End If 5. 在窗体上有一文本框 ( 其名称为 Text1) 和两个命令按钮 ( 其名称分别为 Command1 Command2; 它们对应的 Caption 值分别为 显示文本框 隐藏文本框 ), 要求当单击 Command1 时, 文本框消失 ; 而单击 Command2 时, 文本框重新出现, 并在文本框中显示 全国计算机等级考试, 文本框中的字体大小为 20, 将下面程序补充完整 31

36 Private Sub Command1_Click() 9 Private Sub Command2_Click() Text1. 10 =20 Text1.Visible=True Text1. 11 =" 全国计算机等级考试 " 6. 有如下程序, 要求从键盘上输入若干个学生的考试分数, 统计并输出最高分数和最低分数, 当输入负数时结束输入, 输出结果 请将程序补充完整 Private Sub Form_Click() Dim x,smax,smin As Single x=inputbox("enter a score") smax=x smin=x Do While 12 If x>smax Then smax=x End If If 13 Then smin=x End If x=inputbox("enter a score") Loop Print "max=";smax,"min=";smin 7. 有如下程序, 要求整型动态数组 A 声明为具有 15 个元素的数组, 并给数组的所有元素赋值 1 14 As Integer Private Sub Command1_Click() ReDim 15 For I=1 To 15 A(I)=1 Print A(I) 32

37 Next I 参考答案及分析 一 选择题 1. 答案 D) 分析 函数 Sin(x),x 要求是弧度数, 所以应将角度转换为弧度 角度与弧度之间的转换公式为 :1 度 =π /180= /180( 弧度 ) 2. 答案 D) 分析 属性 BackStyle 可以取两个值, 即 0 和 1 当值为 0 时, 标签为 透明 ; 当值为 1 时, 标签将覆盖背景 3. 答案 B) 分析 属性 Font 可以用来设置控件上的文字 4. 答案 B) 分析 函数 Int(x) 是求不大于自变量 x 的最大整数 ; 函数 Fix(x) 是去掉一个浮点数的小数部分, 保留其整数部分 ; 函数 Clnt(x) 是把 x 的小数部分四舍五入, 转换为整数 5. 答案 C) 分析 窗体的名字和存盘的窗体文件名不一定相同, 在存盘时, 可以用新的文件名 6. 答案 A) 分析 用 Type 语句来定义数据类型, 其格式为 : Type 数据类型名数据类型元素名 As 类型名数据类型元素名 As 类型名 End Type 7. 答案 B) 分析 在过程( 事件过程或通用过程 ) 内定义的变量叫做局部变量, 其作用域是它所在的过程 局部变量通常用来放中间结果或用作临时变量 某一过程的执行只对该过程内的变量产生作用, 对其他过程中相同名字的局部变量没有任何影响 8. 答案 C) 分析 函数 InputBox 可以产生一个对话框, 这个对话框作为输入数据的界面, 等待用户输入数据并返回所输入的内容 其格式为 :InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context]) 符号 + 是字符串之间的连接符 9. 答案 B) 分析 考点:For 循环 循环次数为 :(25-5)/5+1=5, 程序运行后 n 的值为 答案 C) 分析 用 文件 菜单中的 新建工程 命令可以建立一个新的工程, 用 打开工程 命 33

38 令可以打开一个已有的工程, 而用 添加工程 命令可以向当前打开的工程组中添加一个工程 11. 答案 D) 分析 VB 系统具有很强的数据库管理功能 利用数据控件和数据库管理窗口, 可以直接建立或处理 Microsoft Access 格式的数据库, 并提供了强大的数据存储和检索功能 12. 答案 D) 分析 在一般情况下, 输入程序时要求一行一句, 一句一行 但 VB 允许使用复合语句行, 即把几个语句放在一行中, 各语句之间用冒号 (:) 隔开 13. 答案 C) 分析 表达式 N=N+1 共执行了 15 次运算, 最后结果为 N=15;I=4,J=0 14. 答案 C) 分析 考点:For 循环 在内循环中先执行 B=B+1, 在下一循环才执行 A=A+1, 所以 B=B+1 执行了 4 次, 而 A=A+1 只执行了 2 次 15. 答案 C) 分析 属性 Caption 是为了在标签中显示所选择的列表框 ; 属性 Text 是单击列表框中的某一项所选择的列表项 16. 答案 C) 分析 符号 + 是字符串的连接符, 在程序第一段就已得出 a 的值, 程序第二段只是将文本框 1 2 中的内容清空, 以便下次为文本框输入内容 17. 答案 C) 分析 图像框没有属性 Autosize, 但它有属性 Stretch 是用来自动调整图像中图形内容的大小, 当属性 Stretch 设置为 False 时, 图像框可以自动改变大小以适应其中的图形, 为 True 时, 加载到图像框的图形可自动调整尺寸以适应图像框的大小 18. 答案 D) 分析 对文件重命名用的是 Name 语句 其格式为 :Name 原文件名 As 新文件名 19. 答案 C) 分析 调用 Sub 过程相当于执行一个语句, 不直接返回值 ; 调用 Function 过程要返回一个值, 因此可以像内部函数一样在表达式中使用 20. 答案 D) 分析 事件 KeyPress 是当压下键盘上的某个键时, 所触发的事件 参数 KeyAscii 是所按键的 ASCII 码 ; 函数 Ucase( 字符串 ) 是将 字符串 中的小写字母转换为大写字母 ; 函数 Asc( 字符串 ) 是将字符串中第一个字符转换成其相应的以十进制形式表示的 ASCII 码 ; 函数 String(n, 字符串 ) 是返回由 n 个字符组成的字符串 21. 答案 A) 分析 考点:Do Loop 循环 关键字 While 是指满足条件时, 才执行循环体 本题中的循环体共执行了 5 次 22. 答案 A) 分析 考点:Do Loop 循环 关键字 Until 是指满足条件时, 将退出循环 关键字 While 和 Until 所指定的条件是相反的 也就是说, 如果把由关键字 While 所指定的条件取反, 就可以作关键字 Until 的条件, 并且结果相同 34

39 23. 答案 B) 分析 考点: 数组 程序第一行定义数组的下界为 1 在程序运行时,Arr1(I) 的值分别为 ;Arr2(I) 的值分别为 则最后 Sum= = 答案 A) 分析 考点:Sub 过程的调用, 以及形参与实参之间的相互对应关系 符号 \ 表示的是整数除法 ; 符号 Mod 表示的是取模运算, 用来求余数, 其结果为第一个操作数整除第二个操作数所得的余数 25. 答案 B) 分析 考点:For 语句 程序内循环执行了 5 次, 外循环执行了 3 次, 最后 N=15 内循环变量 J 在第五次后的值变为 0, 不符合条件, 退出循环 ; 外循环变量 I 第三次循环后值变为 4, 不符合条件, 退出循环 26. 答案 B) 分析 考点:If 语句的嵌套 27. 答案 A) 分析 考点: 情况语句也就是 Select Case 语句 其功能是, 根据 测试表达式 的值, 从多个语句块中选择符合条件的一个语句块执行 28. 答案 C) 分析 函数 Mid( 字符串,p,n) 是从第 p 个字符开始, 向后截取 n 个字符 ; 函数 Left( 字符串,n) 是取 字符串 左部的 n 个字符 ; 函数 Right( 字符串,n) 是取 字符串 右部的 n 个字符 符号 & 是字符串连接符 Z 的最后值是取 I=2 时的值 29. 答案 D) 分析 属性 Enabled 可以被设置为 True 或者 False, 分别用来激活或禁止对象 ; 属性 Visible 可以被设置为 True 或者 False, 分别用来指示对象可见或隐藏 30. 答案 D) 分析 PAINT 语句是对图形内填充颜色 但是为一图形填充色彩时, 该图形必须是完全闭合的, 否则填充的颜色会 漏 到图形外面, 并用同一颜色为整个屏幕着色 二 填空题 分析 在 VB 中, 对于没有赋值的变量, 将采用默认值 ; 对于没有赋值的数值型变量其默认值为 0; 对于没有赋值的字符串型变量默认为空字符串 2. 2 文件 3 打开工程 4 打开工程 分析 Ctrl+O 叫做 热键 ( 或快捷键 ) 在菜单中, 热键列在相应的菜单命令之后, 与菜单命令具有相同的作用 使用热键方式, 不必打开菜单就能执行相应的菜单命令 按 Ctrl+O, 可以立即执行 打开工程 命令 3. 5 是否一定要退出 VB6.0 6 欢迎使用 VB.6.0 分析 程序第二行将 欢迎使用 VB.6.0 赋予 Text1, 第三行以将 Text1 中的内容赋予 Text2, 35

40 所以 Text2 中的内容就是 欢迎使用 VB.6.0, 第四行将 是否一定要退出 VB6.0 赋予 Text1, 所以 Text1 的最后内容是 是否一定要退出 VB Label1.Left=0 8 Label1.Left=Label1.Left+50 分析 对象.Left[=x], 对象 为控件时,Left 指的是控件的左边与窗体的左边的相对距离 5. 9 Text1.Visible=False 10 FontSize 11 Text 分析 属性 Visible 是用来指示对象可见或隐藏的 ; 属性 FontSize 是用来设置控件中字体大小的 ; 属性 Text 是用来设置文本框中显示的内容的 Val(x)>0 13 x<smin 分析 DO 语句中关键字 While 是指条件满足时, 就执行循环体 变量 x 必须是正数 第二个 If 判断是求 score 的最小值 Dim A() 15 A(1 To 15) 分析 动态数组以变量作为下标值, 在程序运行过程中完成定义, 通常分为两步 : 首先在窗体层 标准模块或过程中用 Dim 或 Public 声明一个没有下标的数组 ( 括号不能省略 ), 然后在过程中用 ReDim 语句定义带下标的数组 36

41 全国计算机等级考试二级笔试标准预测试卷 ( 四 ) ( 二级 Visual Basic 语言程序设计 ) ( 考试时间 90 分钟, 满分 100 分 ) 一 选择题 (1~20 每小题 2 分,21~30 每小题 3 分, 共 70 分 ) 下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的, 请将正确选项涂写在答题卡相应位置, 答在试卷上不得分 1. 下列是关于多文档界面 (Multiple Document Interface) 的描述, 不正确的是 ( ) A) 子窗口归属于父窗口 B) 如果父窗口关闭, 则所有子窗口全部关闭 C) 如果所有子窗口全部关闭, 则父窗口关闭 D) 多文档界面 (MDI) 是指在一个父窗口下面可以同时打开多个子窗口 2. 下列是对通用对话框控件的描述, 其中不正确的是 ( ) A) 控件显示的对话框由控件的方法决定 B) 在运行 Windows 帮助引擎时, 控件能够显示帮助信息 C) 设计时在窗体上将该控件显示成一个图标, 此图标的大小可调整 D)CommonDialog 控件是提供如打开和保存文件 设置打印选项 选择颜色和字体等操作的一组标准对话框 3. 不管属性如何设置, 程序运行时始终都能接收焦点的方法是 ( ) A) 用 Tab 键 B) 用方向键 C) 用鼠标 D) 不能实现 4. 语句 Print"Int(-25.4)=";Int(-25.4), 则输出结果是 ( ) A)Int(-25.4)=-25 B)Int(-25.4)=-26 C)Int(-25.4)=-25.4 D)Int(-25.4)= 设 A B C 表示三角形的三条边, 条件 任意两边之和大于第三边 的布尔表达式可以用 ( ) 表示 A)A+B>=C Or A+C>=B Or B+C>=A B)A+B>C And A+C>B And B+C>A C)A+B<C Or A+C<B Or B+C<A D)A+B<=C Or A+C<=B Or B+C<=A 6. 如果要将 ListBox 控件和 TextBox 控件的特性结合在一起, 既可以在控件的列表框部分选择一项, 也可以在控件的文本框部分输入信息 下列 ( ) 控件可以实现 A) 目录列表框 B) 文件列表框 C) 组合框 D) 框架 37

42 7. 在设计一个应用时, 系统会建立一个扩展名为 ( ) 的工程文件 A)*.frm B)*.res C)*.txt D)*.vbp 8. 在窗体的 通用 部分用 Public 定义的变量, 其作用域是 ( ) A) 静态变量 B) 局部变量 C) 全局变量 D) 窗体或模块变量 9. 下列逻辑运算中结果为 True 的是 ( ) A)True Or Not True B)False And Not True C)True And Not True D)False Or Not True 10. 下列是 VB 中的变量, 其中正确的是 ( ) A)1abc B)ab π C)alpha D)5*Delta 11. 滚动条控件的 LargeChange 属性所设置的是 ( ) A) 滚动条控件无 LargeChange 属性 B) 滚动条中滚动块的最大移动范围 C) 滚动条中滚动块的最大移动位置 D) 单击滚动条和滚动箭头之间的区域时, 滚动条控件 Value 属性值的改变量 12.VB 提供的选择框 (CheckBox) 控件可具有的功能是 ( ) A) 单一选择 B) 选择一次 C) 多项选择 D) 多重选择 13. 设在菜单编辑器中定义了一个菜单项, 名为 menu1 为了在运行时显示该菜单项, 应使用的 语句是 ( ) A)menu1.Enabled=True B)menu1.Visible=True C)menu1.Enabled=False D)menu1.Visible=False 14. 下面的四项中, 叙述错误的是 ( ) A) 在一行中有多条语句时, 逗号, 可作为语句间的分隔符 B) 一个 Dim 语句定义多个数组时, 逗号, 可作为数组间的分隔符 C) 在 Print 语句中, 有多个输出项时, 逗号, 可作为输出项间的分隔符 D)Read 语句中, 有多个变量时, 逗号, 可作为变量间的分隔符 15. 有如下程序 : s$=" " Print Mid$(s$,3,4) Print Len(s$) 程序运行后, 输出结果是 ( ) A) B) C) D) 下列哪个语句表示可以把当前目录下的图形文件 pic1.jpg 装入图片框 Picture1 中 ( ) A)Picture1.Picture="pic1.jpg" B)Picture1.Picture=LoadPicture("pic1.jpg") 38

43 C)Picture=LoadPicture("pic1.jpg") D)Picture1.Enabled=LoadPicture("pic1.jpg") 17. 有如下程序 : N=0 M=1 DO Until N>3 N=N+1 M=M+N*(N+1) Loop Print N;M 程序运行后, 输出结果为 ( ) A)0 1 B)2 9 C)3 10 D) 有如下程序 : I=0 For J=1 To 3 A=J^J^I Print A Next J 程序运行后, 输出结果为 ( ) A)1 1 1 B)0 0 0 C)1 2 3 D) 删除列表框中的全部内容所使用的方法为 ( ) A)AddItem B)Clear C)RemoveItem D)Move 20. 有如下程序 : a=2 result=iif(a,"a<>0","a=0") Print result 程序运行后, 输出结果是 ( ) A)a<>0 B)a=0 C)a<>0 或 a=0 D)a=3 21. 如下程序 : Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 39

44 x=x+6 Next k Next j Next i Print x 程序运行后, 单击命令按钮, 则输出结果为 ( ) A)15 B)16 C)39 D) 有如下程序 : Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i 程序运行后, 单击命令按钮, 则输出结果为 ( ) A)1 2 3 B) C)1 4 7 D) 在窗体中有两个标签 ( 其名称分别为 Label1 Label2) 和一个命令按钮 Command1, 有如下程序 : Private Sub Command1_Click() x=-6:y=-6 Select Case y Case Is>0 y=x+1 Case Is>=0 y=x+2 Case Else y=x+3 40

45 End Select Label1.Caption=x Label2.Caption=y 程序运行后, 单击命令按钮, 则标签 Label1 和 Label2 中显示的内容分别为 ( ) A)-5-5 B)-5-3 C)-6-3 D) 有如下程序 x=1:y=2:z=3 FOR j=1 TO 3 IF j=1 THEN x=x+y+z ELSE IF j=2 THEN x=2*x+2*y+2*z ELSE x=3*x+3*y+3*z END IF NEXT j PRINT x END 程序运行后, 输出 x 的值是 ( ) A)6 B)12 C)18 D) 有如下程序 j=0:n=0 DO WHILE n<3 j=(j+1)*(j+2) n=n+1 LOOP PRINT n;j END 运行后, 输出的结果是 ( ) A)1 0 B)3 3 C)4 30 D) CIRCLE 语句的功能是 ( ) A) 用来绘制圆 B) 用来绘制椭圆 C) 用来绘制圆弧 D) 用来绘制圆 椭圆和圆弧 27. 有如下程序 READ x,y,z$ 41

46 a=x+y+val(z$) RESTORE 10 READ x,y,z$ a=a+x+y+val(z$) PRINT a DATA 1,2 10 DATA 3,4 DATA A,B END 程序运行后, 输出结果为 ( ) A)14 B)16 C)17 D) 显示出错信息 28. 有如下程序 : Private Sub Command1_Click() Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next Print"s=";s 程序运行后, 单击命令按钮, 则输出结果是 ( ) A)s=9 B)s=24 C)s=33 D)s= 有如下程序 DECLARE SUB A(x,y) x=5:y=4 CALL A((x),y) PRINT x,y END SUB A(x,y) x=x x=t/y y=t MOD y END SUB 程序运行后, 输出的结果是 ( ) 42

47 A)1 1 B)1 4 C)5 1 D) 在图形模式下, 点亮坐标为 x,y 的像素所用的语句是 ( ) A)PSET(x,y) B)PRESET x,y,5 C)LOCATE x,y D)POSITION x,y 二 填空题 ( 每空 2 分, 共 30 分 ) 请将每空的正确答案写在答题卡 1 ~ 15 序号的横线上, 答在试卷上不得分 1. 在一窗体中有两个命令按钮,( 其名称分别为 Command1 Command2;Caption 值分别为 字体变大 窗体变大 ) 当单击命令按钮 Command1 时, 窗体显示 字体由小变大, 设刚开始字体的大小为 24, 当单击命令按钮 Command2 时, 窗体高度 宽度各增大 100 个像素, 且窗体中显示 窗体由小变大 将下面程序补充完整 Private Sub Command1_Click() 1 Print" 字体由小变大 " Private Sub Command2_Click() Height= 2 Width= 3 Print" 窗体由小变大 " 2.VB 表达式 INT(-4.8)*6\3^2+FIX(-4.8) 的值是 4 3. 设有如下声明 : Dim x As Integer 如果 Sgn(x) 的值为 -1, 则表示 x 的值为 5 4. 已知下面程序的运行结果为 ABCD, 请将程序补充完整 Private Sub Command1_Click() a="" For n=65 To 68 a= 6 Next n Print a 5.KeyDown 和 KeyUp 事件都有两个参数, 7 和 8 6. 有如下程序 Dim x As Integer If x Then Print x Else Print x-1 程序运行后, 输出结果是 9 7. 设在工程中有一个标准模块, 其中定义了如下记录类型 : Type Books Name As String*10 43

48 TelNum As String*20 End Type 在窗体中有一个命令按钮 Command1, 要求当单击命令按钮时, 在顺序文件 Person.txt 中写入一条记录 请将程序补充完整 Private Sub Command1_Click() Dim B As 10 Open"c:\Person.txt"For Output As #1 B.Name=InputBox(" 输入姓名 ") B.TelNum=InputBox(" 输入电话号码 ") 11,B.Name,B,TelNum Close #1 8. 以下程序用来输出 20 个在开区间 (10,87) 中的随机整数 R, 每行输出 4 个整数 Private Sub Command1_Click() For I=1 To 20 R= 12 Print R; If 13 Then Print Next I 9. 在窗体上加一个文本框 ( 其名称为 Text1), 编写如下事件过程 : Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode-3); 程序运行后, 如果 Text1 在文本框中输入 EFG, 则在窗体上输出结果为 14 ; 如果在 Text 文本框中输入 efg 时, 则在窗体上输出结果为 15 44

49 参考答案及分析 一 选择题 1. 答案 C) 分析 多文档界面(MDI,Multiple Document Interface) 允许创建在单个容器窗体中包含多个窗体的应用程序 多文档界面由父窗口和子窗口组成, 子窗口属于父窗口, 如父窗口关闭, 则所有子窗口全部关闭, 但是如果所有子窗口全部关闭, 父窗口不关闭 2. 答案 C) 分析 在一般情况下, 用户没有必要改变对话框的大小, 因此其边框是固定的 3. 答案 B) 分析 Tab 顺序是在按 Tab 键时焦点在控件间移动的顺序 属性 Disable( 禁止 ) 和属性 Invisible( 不可见 ) 可以使 Tab 顺序不起作用 4. 答案 B) 分析 函数 Int(x) 是求不大于自变量 x 的最大整数 Int(-25.4)= 答案 B) 分析 布尔表达式中要求同时满足条件用逻辑运算符 And 6. 答案 C) 分析 组合框(ComboBox) 是组合列表框和文本框的特性而成的控件 7. 答案 D) 分析 工程文件由若干个窗体和模块组成, 其扩展名为.vbp 8. 答案 C) 分析 Public 是用来在标准模块中定义全局变量或数组的 9. 答案 A) 分析 逻辑运算符 Not 是由真变假或由假变真 ; 逻辑运算符 And 是两个关系表达式的值进行比较, 如果两个表达式的值均为 True, 结果才为 True, 否则为 False; 逻辑运算符 Or 是两个关系表达式的值进行比较, 如果其中一个表达式的值为 True, 结果就为 True, 只有两个表达式的值均为 False 时, 结果才为 False 10. 答案 C) 分析 在 VB 中规定变量名的首字符必须是字母, 不能使用函数名和非法字符, 不能含 % $ 字符 11. 答案 D) 分析 属性 LargeChange 是单击滚动条中滚动框前面或后面的部位时,Value 增加或减少的增量值 12. 答案 C) 分析 复选框用 来表示选中, 可以同时选择多个 13. 答案 B) 分析 用属性 Enabled 来定义菜单项的 有效 属性 ; 用属性 Visible 来设置菜单项的 可见 属性 45

50 14. 答案 A) 分析 在 VB 中如果一行中有多条语句则用冒号 : 来作为语句之间的分隔符 15. 答案 B) 分析 函数 Mid( 字符串,p,n) 是从 字符串 p 位置开始截取 n 个字符 ; 函数 Len( 字符串 ) 是测试 字符串 的长度 16. 答案 B) 分析 在运行期间可以用 LoadPicture 函数把图形文件装入窗体 图片框或图像框中 其一般格式为 :[ 对象.]Picture=LoadPicture(" 文件名 ") 17. 答案 D) 分析 考点:Do 循环语句 关键字 Until 是表示当条件不满足时, 退出循环体 18. 答案 A) 分析 运算符 ^ 是表示幂运算 任何数的 0 次幂都为 答案 B) 分析 用 Clear 方法可以清除列表框中的全部内容, 其格式为 : 列表框.Clear 执行 Clear 方法后,ListCount 重新被设置为 0; 用 AddItem 方法可以在列表框中插入一行文本 ; 用 RemoveItem 方法可以删除列表框中指定的项目 20. 答案 A) 分析 考点:Iif 函数 Iif 函数可用来执行简单的条件判断操作, 其格式为 :result=iif( 条件,True 部分,False 部分 ) result 是函数返回值, 条件 是一个逻辑表达式, 当 条件 为真时,Iif 函数返回 True 部分 而当 条件 为假时返回 False 部分 21. 答案 A) 分析 考点:For 循环 第三个 For 循环 x=3+6+6= 答案 B) 分析 考点 : 二维数组 程序第三行定义了一个 11*11 的二维数组,For 循环要求输出该数组第 行的第 列中的元素 23. 答案 C) 分析 考点: 情况语句也就是 Select Case 语句, 它的一般格式为 : Select Case 测试表达式 Case 表达式表列 1 语句块 1 [Case 表达式表列 2 [ 语句块 2]] [Case Else [ 语句块 n]] End Select 其功能是, 根据 测试表达式 的值, 从多个语句块中选择符合条件的一个语句块执行 24. 答案 D) 分析 考点:If 语句的嵌套 提示 : 每一个变量都在内存中占据一定的存储单元 而每次 46

51 访问变量时, 都要取它最新值 25. 答案 D) 分析 点:DO 循环语句 第一次循环结果是 1,2; 第二次循环结果是 2,12; 第三次循环结果是 3, 答案 D) 分析 CIRCLE 语句是用来绘制圆 椭圆和圆弧的 它的一般格式为 :CIRCLE[(xc,yc),< 半径 >[,< 起始角 >,< 终止角 >[,< 纵横比 >]]] 27. 答案 B) 分析 READ 语句是 读数语句, 它的作用是从 DATA 语句读入数据赋给 READ 语句中的变量 RESTORE 语句的作用是使数据区的数据指针从当前位置返回到数据区的开头或某一 DATA 语句的开头, 即恢复数据指针先前的位置 28. 答案 C) 分析 在循环中 f 和 s 的值分别为 1,1;2,3;6,9;24, 答案 C) 分析 提示: 变量 (x) 与变量 x 不是同一变量 x 并没有参加运算, 所得的值还是原来值 取模运算符 MOD 是用来求余数的 30. 答案 A) 分析 PSET 语句的作用是 点亮 坐标为 (x,y) 的象素, 它的一般格式为 : PSET(x,y)[,< 色彩 >] 二 填空题 1. 1 FontSize=24 2 Height Width+100 分析 属性 FontSize 是用来设置控件中字体的大小 ; 属性 Height,Width 是用来指定窗体的高度和宽度, 其单位为 twip 其格式分别为: 对象.Height[= 数值 ]; 对象.Width[= 数值 ] 分析 函数 Int(x) 是求不大于自变量 x 的最大整数 ; 函数 Fix(x) 是去掉浮点数的小数部分, 保留其整数部分 3. 5 负数 分析 符号函数 Sgn(x) 是返回自变量 x 的符号 在执行 Sgn(x) 函数时, 根据表达式的值大于 等于 小于 0, 函数返回不同的值, 分别为 : 当 x 为负数时, 函数返回 -1; 当 x 为 0 时, 函数返回 0; 当 x 为正数时, 函数返回 Chr$(n) 分析 函数 Chr$(n) 是用来返回指定字符码 (ASCII 码 ) 所对应的字符 ASCII 码 65 到 68 对应的字符分别是 :A,B,C,D 5. 7 KeyCode 8 Shift 分析 KeyDown 和 KeyUp 事件返回的是键盘的直接状态 KeyDown 和 KeyUp 事件都有两个参数, 即 KeyCode 和 Shift KeyCode 是按键的实际的 ASCII 码 ;Shift 是转换键 它指的是 3 个转 47

52 换键的状态包括 Shift,Ctrl 和 Alt 分析 变量未被赋值, 在引用它时, 设默认值为 Books 11 Write #1 分析 程序开头就用 Type Books 定义了数据类型 Books, 再单击命令按钮事件用定义过的 Books 来定义变量 B 用 Write # 语句可以把数据写入顺序文件中, 其格式为 :Write # 文件号. 表达式 Int(Rnd*77+10) 13 I Mod 4=0 分析 先定义随机数为整数 函数 Rnd(x) 产生一个 0~1 之间的单精度随机数 BCD 15 BCD 分析 KeyDown 事件返回的是键盘的直接状态 它有两个参数, 即 KeyCode 和 Shift, 其中 KeyCode 是按键的实际的 ASCII 该码以 键 为准, 而不是以 字符 为准 大写与小写字母使用同一个键, 它们的 KeyCode 相同 ( 使用大写字母的 ASCII 码 ) CHR$(< 数值表达式 >) 其作用是 : 将数值转换成相应的字符 48

53 全国计算机等级考试二级笔试标准预测试卷 ( 五 ) ( 二级 Visual Basic 语言程序设计 ) ( 考试时间 90 分钟, 满分 100 分 ) 一 选择题 (1~20 每小题 2 分,21~30 每小题 3 分, 共 70 分 ) 下列各题 A) B) C) D) 四个选项中, 只有一个选项是正确的, 请将正确选项涂写在答题卡 相应位置, 答在试卷上不得分 1. 下列哪一个是 VB 的合法变量名 ( ) A)yy11 B)Sub C)1X D)X[A] 2. 用标准工具栏中的工具按钮不能执行的操作是 ( ) A) 添加工程 B) 打印源程序 C) 添加窗体 D) 打开菜单编辑器 3. 下列是关于菜单的描述, 其中错误的是 ( ) A) 菜单项的索引号必须从 1 开始 B) 菜单项的索引号可以不连续 C) 除了 Click 事件之外, 菜单项不可以响应其他事件 D) 每个菜单项都是一个控件, 与其他控件一样也有属性和事件 4. 下列哪个操作不可以打开属性窗口 ( ) A) 双击代码窗口 B) 双击任何一个对象 C) 单击鼠标右键按钮 D) 执行 视图 菜单中的 属性窗口 命令 5. 下列哪个属性能够获得一个文本框中被选取文本的内容 ( ) A)SelLength B)SelStart C)SelText D)GotFocus 6. 在 VB 中, 变量未被赋值时, 系统默认数值型变量的值为 ( ), 字符串变量的值为 ( ) A)Null B)0 C) 空串 "" D) 没有任何值 7. 下列哪个程序段可以使变量 X Y 的值交换 ( ) A)Y=X:X=Y B)Z=X:X=Y:Y=Z C)Z=X:Y=Z:X=Y D)Z=X:W=Y:Y=Z:X=Y 8. 在 VB 中编写代码, 如果要强制显式声明变量, 可在窗体模块或标准模块的声明中加入语句 ( ) A)Option Explict B)Option Compare C)Option Base 0 D)Option Base 1 49

54 9. 表达式 2+3*4^9-Sin(x+4)/3 中最先进行的运算是 ( ) A)3*4 B)4^9 C)x+4 D)Sin() 10. 下列哪个快捷键可以打开文件对话框 ( ) A)Ctrl+O B)Ctrl+D C)Ctrl+E D)Ctrl+F 11. 若要求在文本框中输入密码时文本框中显示 * 号, 则应在此文本框的属性窗口中设置 ( ) A)Caption 属性值为 * B)Password 属性值为空 C)Text 属性值为 * D)PasswordChar 属性值为 * 12. 下列关于变体类型的描述, 其中正确的是 ( ) A) 变体是一种没有类型的数据 B) 变体的空值就表示该变体的值为 0 C) 一个变量没有定义就赋值, 该变量即为变体类型 D) 变体是赋给某一种类型数值后, 就不能再赋给它另一类型的数值 13. 下列关于 Do While Loop 和 Do Loop Until 循环执行循环体次数的描述正确的是 ( ) A)Do While Loop 循环和 Do Loop Until 循环至少都执行一次 B)Do While Loop 循环至少执行一次,Do Loop Until 循环可能不执行 C)Do While Loop 循环和 Do Loop Until 循环可能都不执行 D)Do While Loop 循环可能不执行,Do Loop Until 循环至少执行一次 14. 为了使列表框中的项目分为多列显示, 需要设置的属性为 ( ) A)Columns B)List C)ListCount D)MultiSelect 15. 在下列表达式中, 值为 False 的是 ( ) A)"ABC"<"ABc" B)"student"<>"stu" C)"Teacher">"Tea" D)"VisualBasic"="Visualbasic" 16. 有如下语句 : answer=msgbox(" 第一个字符串 ",vbabortretryignore_ Or vbcritical_ Or vbdefaultbutton3,_ " 第二个字符串 ") 执行该语句后, 将显示一个信息框, 此时如果按回车键, 则 answer 的值为 ( ) A)" 第一个字符串 " B)3 C)5 D)7 17. 为了使标签中的内容居中显示, 属性 Alignment 应该设置为 ( ) A)0 B)1 C)2 D) 不用设置 18. 有如下程序 : For I=1 To 3 For J=5 To 1 Step 1 50

55 Print I*J Next J,I 程序运行后, 语句 Print I*J 执行的次数是 ( ) A)15 B)18 C)36 D) 有如下语句 : Dim A(-1 To 5) As Integer 语句中定义数组的元素个数是 ( ) A)5 B)6 C)7 D)8 20. 在窗体上画一个名称为 Command1 的命令按钮, 一个名称为 Label1 的标签, 然后编写如下事件过程 : Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1.Caption=s 程序运行后, 单击命令按钮, 则标签中显示的内容是 ( ) A)1 B)5 C)27 D) 有如下程序 : Private Sub Command1_Click() score=asc("a")+1 Select Case score Case Is<60 a$=" 不及格 " Case Is 60 To 69 a$=" 及格 " Case Is 70 To 79 a$=" 中 " Case Is 80 To 89 a$=" 良 " Case Else a$=" 优秀 " End Select MsgBox a$ 51

56 程序运行后, 消息对话框中显示的内容是 ( ) A) 不及格 B) 及格 C) 中 D) 良 22. 单击下图所示的信息对话框 是 (Y) 按钮, 执行下列程序后, 输出结果是 ( ) Private Sub Commnd1_Click() c=msgbox(" 是否要退出 ",4,"VB6.0") Print c A)" 是否要退出 " B)4 C)"VB6.0" D)6 23. 在窗体中有两个文本框 ( 其名分别为 Text1 Text2) 和一命令按钮 ( 其名为 Command1) 有如下程序 : Private Sub Command1_Click() a=text1.text+text2.text Print a Private Sub Form_Load() Text1.Text="123" Text2.Text="456" 程序运行后, 输出结果为 ( ) A)123 B)456 C)579 D) 有如下程序 : Private Sub Form_Click() Dim a,b,c,d As Single Dim x As Single a=200 b=40 c=2000 If b>a Then d=a:a=b:b=d 52

57 End If If b>c Then x=b Else If a>c Then x=c Else x=a End If 程序运行后,x 的值为 ( ) A)200 B)40 C)2000 D)0 25. 有如下程序 FOR m=1 TO 4 n=0 FOR j=1 TO 5 n=1 FOR k=1 TO 6 n=n+3 NEXT k NEXT j NEXT m PRINT n END 运行后, 输出的结果是 ( ) A)18 B)19 C)95 D) 有如下程序 j=4 FOR i=10 TO 6 STEP-1 READ a(j) j=j+1 NEXT i DATA 9,7,5,3,1 FOR j=4 TO 8 PRINT a(j); NEXT j END 运行时, 输出结果是 ( ) 53

58 A) B) C) D) 在运行阶段, 要在文本框 Text1 获得焦点时选中所有内容, 对应的事件过程是 ( ) A)Private Sub Text1_Change() B)Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Text1.Text) C)Private Sub Text1_GotFocus() D)Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Text1.Text) 28. 有如下程序 DEFSTR X-Z x="x":y="y":z="z" x$="a":y$="b":z$="c" x=y:y=z:z=x PRINT x$;y$;z$ END 运行后, 输出的结果是 ( ) A)abc B)bcb C)XYZ D)YZY 29. 有如下程序 : Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function Private Sub Command1_Clicd() Dim a As Integer,b As Integer,c As Integer a=2:b=3:c=4 Print SecProc(c,b,a) 单击命令按钮, 则输出结果是 ( ) A)17 B)19 C)21 D) 有如下程序 : FOR m=3 TO 1 STEP 1 x$=string $(m,"#") 54

59 PRINT m;x$ NEXT m END 运行后, 输出的结果是 ( ) A)1 # B)1 # 2 # # 2 # 3 # # # 3 # C)3 # D)3 # # # 2 # # 2 # # 1 # # # 1 # 二 填空题 ( 每空 2 分, 共 30 分 ) 请将每空的正确答案写在答题卡 1 ~ 15 序号的横线上, 答在试卷上不得分 1. 对一个窗体对象, 其最先发生的事件是 1 事件, 最后发生的事件是 2 事件 2.a=2,b=3,c=4,d=5, 表达式 (a>b Xor b<c) Or b<d Eqv a<c 的值为 3 3. 如果想让文本框中能输入多行文本, 应该设属性 4 为 True 4. 有如下程序用于在一个字符串变量中查找 "abc", 并用输出对话框给出找到的个数或没有找到查找结果 将下面程序补充完整 Private Sub Form_Click() Dim Str1$,Length%,Sum%,I% Str1=InputBox( 请输入一个字符串 ") Length= 5 I=1 sum=0 Do Until I> 6 If 7 <>"abc" Then sum=sum+1 End If I=I+1 Loop If 8 Then MsgBox" 没有找到!" Else MsgBox" 找到了 "& Str(sum) &" 个 " End If 5. 用随机数产生 10 个 [10~50] 的随机整数 ( 包括 10 和 50), 并按由小到大顺序 5 个一行打印出来 请将下面程序补充完整 Option Base 1 55

60 Dim a(10) As Integer Private Sub Form_Click() Dim i,j As Integer Dim t As Integer Randomize For i=1 To 10 a(i)= 9 Next i Print" 排序前数据 :" For i=1 To 10 Print a(i); If 11 Then Print Next I Print For i=1 To 9 min=i For j= 12 To 10 If a(min)>a(j) Then min=j Next j t=a(i) a(i)=a(min) a(min)= 13 Next i Print" 排序后数据 :" For i=1 To 10 Print a(i); If i Mod 5=0 Then Print Next i 6. 把窗体的 KeyPreview 属性设置为 True, 然后编写如下两个事件过程 : Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) 程序运行后, 如果直接按键盘上的 A 键 ( 即不按住 Shift 键 ), 则在窗体上输出的字符分别是 14 和 15 56

61 参考答案及分析 一 选择题 1. 答案 A) 分析 在 VB 中, 变量名只能由字母 数字和下划线组成 ; 名字的第一个字符必须是英文字母, 最后一个字符可以是类型说明符 ; 名字的有效字符为 255 个 ; 不能用 VB 的保留字作变量名 2. 答案 B) 分析 在 VB 中标准工具栏包含的工具按钮有 : 添加工程 添加窗体 菜单编辑器 打开工程 保存工程等 3. 答案 A) 分析 索引是用来为用户建立的控件数组设立下标 所以无须从 1 开始 4. 答案 A) 分析 在窗体中单击右键可以打开属性窗口; 双击任何一个对象可以打开属性窗口 ; 执行 视图 菜单中的 属性窗口 命令, 可以打开属性窗口 而双击代码窗口是不能打开属性窗口的 5. 答案 C) 分析 属性 SelText 含有当前所选择的文本字符串, 如果没有选择文本, 则该属性含有一个空字符串 ; 如果在程序中设置属性 SetText, 则用该值代替文本框中选取的文本 6. 答案 B) C) 分析 在 VB 中, 变量未被赋值时, 系统默认数值型变量的值为 0, 字符串变量的值为空串 7. 答案 B) 分析 答案 A)C)D) 结果一样, 都是 X=X;Y=X 8. 答案 A) 分析 在 VB 代码编辑器 中选择 要求变量声明 则强制显式地声明变量, 所有的变量必须先声明再使用 在编写代码时, 将自动在程序代码之前加语句 Option Explicit 9. 答案 C) 分析 表达式中运算级别最高的是函数, 但是如果有括号, 就先进行括号中的运算 10. 答案 B) 分析 快捷键 Ctrl+O 是打开工程 ; 快捷键 Ctrl+E 是打开菜单编辑器 ; 快捷键 Ctrl+F 是打开查找窗体 11. 答案 D) 分析 属性 PasswordChar 可用于口令输入 在默认状态下, 该属性被设置为空字符串, 用户从键盘上输入时, 每个字符都可以在文本框中显示出来 如果把 PasswordChar 属性设置为一个字符, 则在文本框中键入字符时, 显示的不是键入的字符, 而是被设置的字符 12. 答案 C) 分析 一个变量没有被定义就赋值, 则该变量就为变体类型 变体变量的类型由所赋予值的类型而定 13. 答案 D) 分析 考点:Do 循环语句 Do 循环中有两个关键字 While Until While 是当条件为 True 57

62 时执行循环 ;Until 则是在条件变为 True 之前重复 Do While Loop 循环是先判断条件是否为 True, 为 True 才执行循环, 否则不执行 ;Do Loop Until 循环是先执行循环, 才判断条件是否为 True, 为 True 退出循环 14. 答案 A) 分析 属性 Columns 用来确定列表框的列数 ; 属性 List 用来列出表项的内容 ; 属性 ListCount 用来列出列表框中表项的数量 ; 属性 MultiSelect 是用来设置一次可以选择的表项数 15. 答案 D) 分析 在比较两个字符串时, 首先比较两个字符串的第一个字符, 其中 ASCII 码值较大的字符所在的字符串大 如果第一个字符相同, 则比较第二个 依次类推 提示 : 同是一个字符, 但是它的小写 ASCII 码值比它的大写 ASCII 码值要大 16. 答案 C) 分析 函数 MsgBox 的一般格式为 :MsgBox(msg[,type][,title][,helpfile,context]) 它的返回值是一个整数, 这个整数与所选择的按钮有关 参数 type 是一个整数值或者是符号常量, 用来控制在对话框内显示的按钮 图标的种类以及数量 符号常量 vbabortretryignore 是用来在信息框中显示 终止 重试 以及 忽略 按钮 ; 符号常量 vbcritical 是用来显示 Critical Message 图标 ; 符号常量 vbdefaultbutton3 是表示第 3 个按钮是默认值 按钮 忽略 对应的值为 5, 所以变量 answer 的值为 答案 C) 分析 属性 Alignment 是用来确定标签中标题的放置方式, 当它的属性值为 0 时, 表示从标签的左边开始显示标题 ( 默认 ); 为 1 时, 表示标题靠右显示 ; 为 2 时, 表示标题居中显示 18. 答案 A) 分析 外循环执行 3 次, 它每执行一次循环, 内循环都要执行 5 次, 所以内循环总共执行的次数就为 15 次 19. 答案 C) 分析 程序语句是定义了一个一维数组, 它元素的下标下界为 -1, 下标上界为 5,(-1,5) 之间的整数总共有 7 个 20. 答案 B) 分析 运算符 Mod 是求余运算 语句 x Mod 3=0 所表示的意思是 x 被 3 整除, 程序运行期间, 能被 3 整除的 x 值依次为 3,9,15,21,27, 所以 s=5 21. 答案 B) 分析 考点: 情况语句也就是 Select Case 语句, 它的一般格式为 : Select Case 测试表达式 Case 表达式表列 1 语句块 1 [Case 表达式表列 2 [ 语句块 2]] [Case Else [ 语句块 n]] 58

63 End Select 其功能是, 根据 测试表达式 的值, 从多个语句块中选择符合条件的一个语句块执行 字符 A 的 ASCII 码值为 65,score 的值为 答案 D) 分析 函数 MsgBox 是根据用户选择单击的按钮而返回不同的值, 当按钮名为 Yes( 是 ), 取值为 答案 D) 分析 属性 Text 是用来设置文本框中显示的内容 符号 + 是字符串连接符 24. 答案 A) 分析 考点:If 语句 25. 答案 B) 分析 n 的值取决于 FOR 语句中的 k 循环 26. 答案 D) 分析 考点:FOR 循环 读数语句 (READ) 和置数语句 (DATA) FOR 语句的循环次数为 5,a(j) 分别为 a(4)=9,a(5)=7,a(6)=5,a(7)=3,a(8)=1 27. 答案 C) 分析 文本框 Change 事件 : 当用户向文本框中输入新信息, 或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性时, 将触发 Change 事件 ;GotFocus 事件 : 当文本框具有输入焦点 ( 即处于活动状态 ) 时, 键盘上输入的每个字符都将在该文本框中显示出来 只有当一个文本框被激活并且可见性为 True 时, 才能接收到焦点 ;LostFocus 事件 : 当按下 Tab 键使光标离开当前文本框或者鼠标选择窗体中的其他对象时触发该事件 ;SetFocus 事件 : 可以把光标移到指定的文本框中 28. 答案 B) 分析 考点: 变量 变量是取最新赋予的值 29. 答案 C) 分析 考点: 过程函数 Function 的调用, 形参与实参的相互转换 30. 答案 D) 分析 函数 String$(n,ASCII) 或 String$(n, 字符串 ), 是返回由 n 个指定字符组成的字符串 二 填空题 1. 1 Load 2 Unload 分析 Load 事件可以用来在启动程序时对属性和变量进行初始化 因为在装入窗体后, 如果进行程序, 将触发该事件 Unload 事件当从内存中清除一个窗体 ( 关闭窗体或执行 Unload 语句 ) 时触发该事件 2. 3 True 分析 在表达式中如果有括号就先执行括号中的运算 逻辑运算符 Xor, 如果两个表达式同时为 True 或同时为 False, 则结果为 False, 否则为 True; 逻辑运算符 Or, 如果两个表达式其中一个为 True, 结果就为 True, 只有两个表达式的值都为 False 时, 结果才为 False; 逻辑运算符 Eqv, 如果两个表达式同时为 True 或同时为 False, 则结果为 True 3. 4 MultiLine 59