2013年3月 总版技术专家分月排行榜第二
2014年2月 Java大版内专家分月排行榜第一2013年8月 Java大版内专家分月排行榜第一2013年5月 Java大版内专家分月排行榜第一2013年4月 Java大版内专家分月排行榜第一2013年3月 Java大版内专家分月排行榜第一2013年2月 Java大版内专家分月排行榜第一
2013年3月 总版技术专家分月排行榜第二
2014年2月 Java大版内专家分月排行榜第一2013年8月 Java大版内专家分月排行榜第一2013年5月 Java大版内专家分月排行榜第一2013年4月 Java大版内专家分月排行榜第一2013年3月 Java大版内专家分月排行榜第一2013年2月 Java大版内专家分月排行榜第一
2013年3月 总版技术专家分月排行榜第二
2014年2月 Java大版内专家分月排行榜第一2013年8月 Java大版内专家分月排行榜第一2013年5月 Java大版内专家分月排行榜第一2013年4月 Java大版内专家分月排行榜第一2013年3月 Java大版内专家分月排行榜第一2013年2月 Java大版内专家分月排行榜第一
本帖子已过去太久远了，不再提供回复功能。君，已阅读到文档的结尾了呢~~
◎VB控件的使用
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
◎VB控件的使用
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口以下试题来自：
问答题在名称为Form1的窗体上添加两个命令按钮(见图1)，其名称分别为Cmd1和Cmd2，编写适当的事件过程。程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图2所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2. vbp，窗体文件名保存为sjt2. frm。
[解题思路] 在窗体上建立控件后，先设置控件的属性，再编写事件过程。
单击命令按钮触发Click事件。利用按钮的Height和Widt......
为您推荐的考试题库
你可能感兴趣的试题
1.问答题 [解题思路] Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数，最初把数组的第一个元素的...... 2.问答题 [解题思路] 文本框控件的MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；Font属性...... 34A) 579 B) 123 C) 456123 D) 4565A) 15 B) 14 C) 13 D) 12
热门相关试卷
最新相关试卷以下试题来自：
单项选择题在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是(
Option Base 1
Private Sub Command1_Click()
Dim a(5) As Integer
Dim k As Integer
Dim total As Integer
For k=1 To 5
tota11=tota1+a(k)
Print tota1
End SubA．10B．15C．27D．35
为您推荐的考试题库
你可能感兴趣的试题
12A．1和0B．2和240C．3和50D．4和16834A．10B．12C．16D．205A．Private Sub List1_Click()
Label1.Caption=List1.ListIndex
End SubB．Private Sub List1_Click()
Label1.Name=List1.ListIndex
End SubC．Private Sub List1_Click()
Label1.Name=List1.Text
End SubD．Private Sub List1_Click()
Label1.Caption=List1.Text
热门相关试卷
最新相关试卷VB题库总题(分章)1
第一章 VB 环境和基础一、选择题 1. 标准模块文件的扩展名为_____D____。A、.frm A、 F10 A、语法错误 B、.res C、.cls D、.bas C、 F5 C、运行错误 D、 Ctrl D、逻辑错误2. 激活菜单栏的快捷键是：AB、 F4 B、编译错误3. 当我们输入代码时，Visual Basic 可以自动检测__A_______错误。 4. 下列方法中不能退出 Visual Basic 的是:BA、 按Alt+Q组合键 B、 按下Alt+F组合键，然后按Esc键 C、 打开“文件”菜单，执行“退出”命令 D、 按F10键，然后按F键，再按X键 5. 一个工程必须包含的文件的类型是:B A、*.vbp ,*.frm ,*.frx B、*.vbp ,*.cls, *.bas C、*.bas ,*.ocx ,*.res D、*.frm ,*.cls ,*.bas 6. 下列可以打开立即窗口的操作是 D： A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 7. 刚建立一个新的标准 EXE 工程后，出现在工具箱中的控件是：C A、CommonDialog B、ListView C、TextBox D、Toolbar 8. Visual Basic 窗体设计器的主要功能是：A A、建立用户界面 B、编写源程序代码 C、画图 D、显示文字 9. 下列可以启动 Visual Basic 的方法是:D A、 打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击 “VB6.exe”图标 B、 在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件 C、 利用“开始”菜单中的“程序”命令可启动Visual Basic D、 A) 和 C) 10. 资源文件的扩展名为_____A____。 A、.res B、.frm C、.vbp D、.bas 11. 在 Visual Basic 中，要强制用户对所用的变量进行显式声明，这可以在哪里设置:C A、 “属性”对话框 B、 “程序代码”窗口 C、 “选项”对话框 D、对 象浏览器 12. 下列可以打开文件对话框的操作是:A A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 13. Visual Basic 集成的主窗口中不包括：A A、 属性窗口 B、标题栏 C、 菜单栏 D、 工具栏 14. VB 的启动有多种方法，下面不能启动 VB 的是:D A、 使用“开始”菜单中的“程序”命令 B、 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入 VB 启动文件的名字 C、 使用“我的电脑”，在 VB 所在硬盘驱动器中找到相应的 VB 文件夹 D、 先打开 VB 的“文件”菜单，再按 Zlt+Q 组合键 15. 创建 VB 应用程序的主要步骤是： ①创建应用程序界面 ②设置控件 ③设置属性 ④编写代 码 ，其中正确的步骤是:A A、①③④ B、①②④ C、②③④ D、①②③④ 16. Microsoft Visual Basic 6．0 包括三种版本，其中不包括：A1A、通用版 A、VBPB、企业版 B、FRM C、VBWC、学习版 D、PDM C、按 F9 键D、专业版17. Visual Basic 中窗体文件的扩展名是：B 18. 在 Visual Basic 的集成开发环境中不能执行程序的方法是：A、按 F8 键 A、代码窗口 B、按 F5 键 D、按 Shift+F8 D、属性窗口19. 通过以下____A____窗口可以在设计时直观的调整窗体在屏幕上的位置。B、窗体布局窗口 C、窗体设计窗口20. VB 的工程资源管理器可管理多种类型的文件，下面叙述不正确的是:CA、 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件 B、 标准模块是一个纯代码性质的文件，它不属于任何一个窗体 C、 用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas D、 资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑 21. 在 Visual Basic 6 中下列__D______是不对的。 A、可以编写 ActiveX 控件 B、可以编写网络程序 C、可以通过直接访问或建立连接的方式访问大型网络数据库 D、可以写出 16 位应用程序二、填空题 1. Visual Basic 中的控件分为 3 类，它们是标准控件、 2. Visual BASIC 应用程序通常由 3 类模块组成，即窗体模块、和可插入对象。 和类模块。第一章答案一、选择题 1. D 2. A 3. A 4. B 5. A 6. D 7. C 8. A 9. 11. C 12. A 13. A 14. D 15. A 16. A 17. B 18. C 19. B 20. C 21. D 99. 二、填空题 1. ActiveX 控件 2. 标准模块D10.A2第二章 VB 对象及操作一、选择题 1. 下列不能打开属性窗口的操作是：CA、执行&视图&菜单中的&属性窗口&命令 B、按 F4 键 C、按 Ctrl+T D、单击工具栏上的&属性窗口&按钮 2. 下列不能打开工具箱窗口的操作是:B A、执行“视图”菜单中的“工具箱”命令 B、按 Alt+F8 键 C、单击工具栏上的“工具箱”按钮 D、按 Alt+V，然后按 X 键 3. 以下不能在“工程资源管理器”窗口中列出的文件类型是 D： A、 ．bas B、 ．res C、 ．frm D、 ．ocx。 4. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是:B A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过 程和模块 5. DataTime 是一个 Data 类型的变量，以下赋值语句中错误的是:D A、DataTime=#5/14/01# B、DataTime=#September 1,2001# C、DataTime=#12:15:00 AM# D、DataTime=“8/8/99” 6. 关于 Visual Basic&方法&的概念错误的是:B A、 方法是对象的一部分 B、 方法是预先定义好的操作 C、 方法是对事件的响应 D、 方法用于完成某些特定的功能 7. 在设计应用程序时，通过__B_____窗口可以查看到应用程序工程中的所有组成部分。 A、代码窗口 B、窗体设计窗口 C、属性窗口 D、工程资源管理器窗口 8. 保存一个工程至少应保存两个文件，这两个文件分别是:B A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 9. 为了保存一个 VB 应用程序，下列叙述中正确的是:C A、只保存窗体文件（.frm） B、只保存工程文件（.vbp） C、分别保存工程文件和窗体文件 D、分别保存工程文件和标准模块文件（.bas）二、填空题 1. Visual Basic 对象可以分为两类，分别为 和 。 2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click() Text1.Text = &VB 程序设计& End Sub Private Sub Text1_Change() Picture1.Print &VBProgramming& End Sub 程序运行后,单击窗体,在文本框中显示的内容是_________,而在图片框中显示的内容是 _________。99.3第二章答案一、选择题 1. C 2. B 3. D 4. B 5. D 6. C 7. D 8. B 9. C 二、填空题 1. 预定义对象、用户定义对象 2. VB 程序设计；VBProgramming4第三章 VB 数据类型及运算一、选择题 1. 可以同时删除字符前导和尾部空白的函数是：CA、Ltrim B、Rtrim C、Trim D、)Mid2. 计算结果为 0 的表达式是:DA、Int(2.4)+Int(-2.8) B、Cint(2.4)+Cint(-2.8) C、Fix(2.4)+Int(-2.8) D、Fix(2.4)+Fix(-2.8) 用于获得字符串 S 从第 2 个字符开始的 3 个字符的函数是:A A、 MId$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3) 符号％是声明_A______类型变量的类型定义符。 A、Integer B、Variant C、Single D、String 定义变量如下： Dim My_Var My_Var =”come see me “ 若在立即窗口中显示 My_Var 的值，下面正确的是:A A、Debug.Print My_Var B、PictureBox.Print My_Var C、Printer.Print My_Var D、Print My_Var 在窗体上画一个命令按钮(名称为 Command1)，编写如下事件过程： Private Sub Command1 click() b=5 c=6 Prim a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是：C A、a=ll B、a=b+c C、a= D、False 以下变量名中，____B_____是不符合 Visual Basic 的命名规范的。 A、Abc901 B、_mnu_Open_234 C、price_ D、K 函数 String(n， “str”)的功能是：B A、把数值型数据转换为字符串 B、返回由 n 个字符组成的字符串 C、从字符串中取出 n 个字符 D、从字符串中第 n 个字符的位置开始取子字符串3. 4. 5.6.7. 8.9. 下面对哪一种变量的类型说明符的使用是正确的:DA、Dim a:a@=2000 B、Dim a:a%=50000 C、Dim a:a&=True D、Dim a:a$=“OK” 下列各组常量的声明正确的是:B A、Const C as 3 B、Const c=1/3 C、Public I=3 D、Puclic I=1/3 根据变量的作用域，可以将变量分为 3 类，分别为:a A、 局部变量、模块变量和全局变量 B、 局部变量、模块变量和标准变量 C、 局部变量、模块变量和窗体变量 D、 局部变量、标准变量和全局变量 声明一个变量为局部变量应该用:b A、 Global B、 Private C、 Static D、 Public 关于货币型数据的说明，正确的是:a A、 货币型数据有时可以表示成整型数据510. 11.12. 13.B、 货币型数据与浮点型数据完全一样 C、 货币型数据是由数字和小数点组成的字符串 D、 货币型数据是小数点位置固定的实型数 14. 下列变量名中，合法的变量名是:a A、C24 B、A B C、A：B D、1+2 15. 如果在立即窗口中执行以下操作(&CR&是回车键)： a=8 &CR& b=9 &CR& print a&b &CR& 则输出结果是：C C)False D)True A)-1 B) 0 16. 如果在程序中要将 c 定义为静态变量，且为整型数，则应使用的语句是:b A、 Redim a As Integer B、 Static a As Integer C、 Public a As Integer D、 Dim a As Integer 17. 表达式 Abs(-5)+Len(&ABCDE&)的值是：c A、5ABCDE B、-5ABCDE C、10 D、0 18. 设 a=”a”,b=”b”,c=”c”,d=”d”,执行语句 x=IIf((a&d),”A”,”B”)后，x 的值 为：c A、 ”a” B、 ”b” C、 ”B” D、 ”A” 19. 下列变量命名正确的是:A A、myfile B、vb 1 C、page @2 D、cmd.1 20. 下面变量名错误的是 D： A、我们 B、abc C、a123 D、a.c 21. 设 x=4,y=8,z=7，以下表达式的值是：D x&y And (Not y&z) Or z&x A、1 B、-1 C、True D、False 22. Rnd 函数不可能产生_B________值。 A、0 B、1 C、0.1234 D、0.00005 23. 以下合法的 Visual Basic 标识符是 A： A、ForLoop B、Const C、9abc D、a#x 24. 假设变量 bool_x 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是:D A、bool_x=&False& B、bool_x=.False. C、bool_x=#False# D、bool_x=False 25. 已知 X&Y，A&B，正确表示它们之间关系的式子是:B A、Sgn(Y-X)-sgn(A-B)&0 B、Sgn(Y-X)-Sgn(A-B)=-2 C、Sgn(Y-X)-Sgn(A-B)=0 D、Sgn(Y-X)-Sgn(A-B)=-1 26. 以下关系表达式中，其值为假的是：B A、&XYZ&&&Xyz& B、&VisualBasic&=&visualbasic& C、&the&&&&there& D、&Integer&&&Int& 27. 在 Visual Basic 中，下列运算符中优先级最高的是：A A、* B、＼ C、& D、Not 28. 在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是:D A、 ， B、 ； C、 、 D、 ： 29. 设有如下变量声明 Dim time1 As Date,为变量 time1 正确赋值的表达式是:A A、time1 = #11:34:04 # B、time1 = Format(Time,&yy:mm:dd&) C、time1 = #&11:34:04&# D、time1 = Format(&hh:mm:ss&,Time) 30. 在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码： Private Sub Command1_Click( )6A=1.2 C=Len(Str$(A)+Space(10)) Text1.text=C End Sub 程序运行后，单击命令按钮，在文本框中显示:C A、3 B、8 C、14 D、10 31. 在 VB 的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定义 Dim a，则以下变量赋值中正确的是:A A、a=”OK” B、A$=OK C、a=04/01/2001 D、a$=”OK” 32. 下面的变量名合法的是:A A、k_name B、k ame C、name D、k-name 33. 下列可作为 Visual Basic 变量名的是：D A、A#A B、4A C、?xv D、constA 34. 下列程序段的显示结果为：A x=0 Print x-1 A、-1 B、3 C、2 D、0 35. 下面的四个 VB6.0 表达式语法正确的是：D A、a&b．find．b&&c B、a&b c C、a&b AND&&c D、a&b AND b&&c 36. 如果一个变量未经定义就直接使用，则该变量的类型为:D A、 Integer B、 Byte C、 Boolean D、 Variant 37. 下列不可作为 VB 变量名的是:A A、4*Delta B、Alpha C、ABC D、ABT1 38. Visual Basic 逻辑运算符 Xor、Or、Eqv、And 中，级别最高的运算符是：C A、Xor B、Or C、Eqv D、And 39. 以下关于作用范围的描述正确的是:B A、所有变量（Public/Global/Static/Private）都可以放到窗体的通用部分定义 B、所有变量（Public/Global/Static/Private）都可以放到标准模块中定义 C、Public/Global 类的变量只能放在标准模块中定义 D、只有 Global 类的变量必须放在标准模块中定义 40. 执行以下程序段后，变量 c$的值为：D a$=&Visual Basic Programming& b$=&Quick& c$=b$ & UCase(Mid$(a$，7，6))&Right$(a$,1 2) A、Visual Basic Programming B、Quick Basic Programming C、QUICK Basic Programming D、Quick BASIC Programming 41. 表达式 5 Mod 3+3\5*2 的值是：B A、0 B、2 C、4 D、6 42. 下列程序段的执行结果为：D K=0 For I=l TO 3 A=I^I^K Print A; Next I A、1 l 1 B、l 4 9 C、0 0 0 D、1 2 3 43. 设有如下变量声明 Dim TestDate As Date744. 45.46. 47.48.为变量 TestDate 正确赋值的表达方式是：A A、TestDate=#1／1／2002# B、TestDate=#&1／1／2002&# C、 TestDate=date(&1／1／2002&) D、 TestDate=Format(&m／d／yy&,&&) 表达式 3^2*2+3 MOD 10\4 的值是:C A、18 B、1 C、19 D、0 以下能正确定义数据类型 TelBook 的代码是:A A、Type TelBook Name As String*10 TelNum As Integer End Type A、 Type TelBook Name As String*10 TelNum As Integer End TelBook B、 Type TelBook Name String。10 TelNum Integer End Type TelBook C、 Typedef TelBook NameString*lO TelNum Integer EndType 设 S=“中华人民共和国” ，表达式 Left（S,1）+Right（S,1）+Mid（S,3,2）的值为:B A、 “中华民国” B、 “中国人民” C、 “中共人民” D、 “人民共和” 在窗体中添加一个命令按钮，名称为 Command1，然后编写如下程序： Private Sub Command1_Click( ) A=1234 B$=Str$(A) C=Len(B$) Print C End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是:B A、0 B、5 C、6 D、7 有如下语句： Type Student Name As String Age As Integer Sex As String End Type Dim Stu As Student With Stu .Name = &张红& .Age = 22 .Sex = &女& End With 执行 Print Stu.Age 后的结果是:B A、张红 B、22 C、“女” D、Age849. 下列逻辑表达式中，能正确表示条件“x,y 都是奇数”的是:CA、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =1 And y Mod 2 =1 D、x Mod 2 =0 And y Mod 2=0 50. 设有如下的记录类型 Type Student Number As string name As String age As Integer End Type 则正确引用该记录类型变量的代码是：B A、Student．name=”张红” B、Dim s As Student s．name＝”张红” C、Dim s As Type Student D、Dim s As Type S．name=”张红” s.Dame＝”张红”51. d 设 a=2,b=3,c=4,d=5，表达式 3&2*b OR a=c AND b&&c OR c&d 的值是:DA、1 B、-1 C、False D、True52. c 下列符号常量的声明中，不合法的是:CA、 Const a As Single=1.1 B、 Const a=&OK& C、 Const a As Double=Sin(1) D、 Const a As Integer=12 设 a=”MicrosoftVisualBasic”, 则以下使变量 b 的值为”VisualBasic”的语句是：A A、b=Left(a,10) B、b=Mid(a,10) C、b=Right(a,10) D、b=Mid(a,11,10) 使用 Public Const 语句声明一个全局的符号常量时，该语句应放在：D A、过程中 B、窗体模块的通用声明段 C、标准模块的通用声明段 D、窗体模块或标准模块的通用声明段 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=&VisualBasic& Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是：A A、VVV B、Vis C、sic D、11 执行以下语句后，输出的结果是:B s$ = &ABCDEFGHIJK& Print Mid$(s$, 3, 4); print Len(s$) A、ABCD 11 B、CDEF 11 C、EFGH 11 D、HIJK 11 设 A=&&，则表达式 Val(Left(A,4)+Mid(A,4,2))的值为 B A、123456 B、123445 C、1279 D、6 设 a=10，b=5，c=l，执行语句 Print a&b&c 后，窗体上显示的是：C。 A、True B、False C、l D、出错信息 执行以下程序段后，变量 C$的值为:C a$=＂Visual Basic＂ b$=＂Quick＂ c$=b$ & Mid$(a$,2,3) & ucase(Right$(a$,2)) A、Quick Visual B、Quick Basic C、QuickisuIC D、QuickISUic 骰子是一个正六面体，用 1-6 这六个数分别代表这六面，掷一次骰子出现的数可表示为：953. 54.55.56.57. 58. 59.60.D A、INT(RND(6)+1) B、INT(RND*6) C、INT(RND*7) D、INT(RND*6+1) 语句 Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是:C A、-36 B、1 C、-1 D、-72 如下程序段定义了学生成绩的记录类型，由学号、姓名、三门课程成绩(百分制)组成: Type Stud no As Integer name As String * 10 score (1 to 3) As Single End Type 若对某个学生的各数据项进行赋值，下列程序段正确的是:C A、Dim S As Stud Stud.no =0201 Stud.name=&李平& Stud.score=78,88,96 B、Dim S As Stud S.no =0201 S.name=&李平& S.score=78,88,96 C、Dim S As Stud S.no =0201 S.name=&李平& S.score(1)=78 S.score(2)=88 S.score(3)=96 D、Dim S As Stud Stud.no =0201 Stud.name=&李平& Stud.score(1)=78 Stud.score(2)=88 Stud.score(3)=96 设 a=2,b=4,c=6，下列表达式的值为真的是: A、a&b And c&a B、a&b Or c&a C、a&b Xor c&a D、a&b Eqv c&a 下列表达式的值为 2123 的是:B A、 Val(&123asd&) & 2000 B、 Val(&123asd&) + 2000 C、 Str(123) & &2000& D、Str(123)+&2000& 执行以下程序段后，变量 c$的值为：D a$=&Visual Basic Programing& b$=&Quick” c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,11) A、Visual BASIC Programing B、Quick Basic Programing C、QUICK Basic Programing D、Quick BASIC Programing 下面叙述中不正确的是：A A、自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明1061. 62.63. 64.65.66.B、自定义数据类型只能在窗体模块的通用声明段进行声明 C、在窗体模块中定义自定义数据类型时必须使用 Private 关键字 D、自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定 义数据类型 67. 将数学表达式 Cos2(a+b)+5e2 写成 Visual Basic 的表达式，其正确的形式是 A： A、Cos(a+b)^2+5*exp(2) B、Cos^2(a+b)+5*exp(2) C、Cos(a+b)^2+5*ln(2) D、Cos^2(a+b)+5*ln(2) 68. 设 a=5,b=4,c=3,d=2，下列表达式的值是 3&2*b Or a=c And b&&c Or c&d C A、1 B、True C、False D、2 69. 设 a=6，则执行 x=IIf(a&5,-1,0)后，x 的值为：D A、 B、6 C、0 D、-1 70. 以下关于变量类型说明符的使用正确的是：B A、Dim a:a%=90000 B、Dim a:a=2000% C、Dim a:a#=”OK” D、Dim a:a&=True 71. 以下声明语句中错误的是：B A、Const varl=123 B、Dim var2='ABC' C、Dim intSum As Integer D、Static vat3 As Integer 72. 表达式 4+5＼6*7／8 Mod 9 的值是：A A、4 B、5 C、6 D、7 73. 若设 a = 4,b = 5,则下列表达式值为真的是: A、(True+a)&0 And b&10 B、a&b Or b&10-a C、(False-b& 0) Eqv (a&b) D、a&b Xor b+3&5 74. 表达式 12000 + &129& & 200 的值是:B A、12329 B、&& C、&& D、&12329& 。 x=8．6 y=int(x+0.5) print y 2. 在 Visual Basic 的立即窗口内输入以下语句 X＝65&CR& ?Chr$(X) &CR& 。 在窗口中显示的结果是 A 3. 设有如下的 Visual Basic 表达式： 5 * x^2 C 3 * x C 2 * Sin(a)/3 它相当于代数 式____5x2-3x_____。 4. 函数 len(Str$(256.36) )的值是 7 。 5. 假定当前日期为 2003 年 9 月 20 日，星期六，则执行以下语句： Print Day(Now) 输出结果是 20 6. 以下程序段的输出结果是 8.6 。 x=8．5 print int(x)+0.6 7. 以下语句的输出结果是 4 a%=4.5678 Print a% 8. 与数学表达式 COS2(a+b)／3x+5 对应的 Visual Basic 表达式是 cos(a+b)^2/3/x+51199.二、填空题 1. 以下程序段执行后 y 的值是 99. VB 表达式 INT（-4.8）*6\3^2+FIX（-4.8）的值是-7__ 10. 用户可以用 const 语句定义自己的数据类型。 11. 以下语句的输出结果 ChinaBeijing 。S$=&China& S$=&Beijing& Print S$ 表达式 Fix(-32.68)+Int(-23.02)的值为 -56 。 语句 Print “25+32=”;25+32 的输出结果是_ 57 。 执行下面的程序段后，s 的值为 9 。 s = 5 For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i 执行以下程序段，并输入 1.23，则程序的输出结果应是 .23 N=Str(InputBox(&请输入一个实数：&)) p=InStr(N,&.&) Print Mid(N,p) 设有如下程序段： a$=&BeijingShanghai& b$=Mid(a$,InStr(a$,&g&)+1) 执行上面的程序段后，变量 b$的值为_hai_______。 随机生成一个 1-10 的随机整数的表达式是 rnd*10+1 以下语句的输出结果是: _12345.68________。 Print Int(*100+0.5)/100 执行下面的程序段后，b 的值为 300 。 a=300 b=20 a=a+b b=a-b a=a-b 下面程序运行后，输出的结果为 0 Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left（A$,2)+Right$(B$,2),C$) Print C$ End Sub12. 13. 14.15.。16.17. 18. 19.20.12第三章 答案一、选择题 1. C 11. A 21. D 2. D 12. C 22. B 3. A 13. D 23. A 24. D 4. A 14. A 25. B 5. A 15. C 26. B 6. D 16. B 27. A 7. B 17. C 28. D 8. B 18. C 29. A 9. D 19. A 30. C 10. B 20. D 99. 二、填空题 1. 9 2. A 3. 5x2-3x-2Sina÷3 4. 7 5. 20 6. 8.6 7. 4 8. (cos(a+b))^2／(3*x+5) 9. -7 10. TYPE 31. A 33. 34. 35. 36. 37. 38. 39. 40.32. A D A D D A D C D41. B 42. A 43. A44. C45. A46. B 47. B 48. B 49. C 50. B51. 52. 53. 54. 55. 56. 57. 58. 59. 60.D C B C A B B B C D61. C62. C 63. D 64. B 65. D 66. B 67. A 68. B 69. D 70. B71. B 72. B73. D 74. B11. Beijing 12. -56 13. 25+32=57 14. 9 15. .23 16. Shanghai 17. INT（ （10*RND）＋1） 18. . 300 20. 013第四章 VB 输入输出一、选择题 1. 对用 MsgBox 显示的消息框，下面_D________是错的。A、可以有一个按钮 C、可以有三个按钮 B、可以有两个按钮 D、可以有四个按钮 2. 设有如下程序： Private Sub Form_Click() i = MsgBox(&AAAAA&, 2, &BB&) End Sub 程序运行后，单击窗体，则在窗体上显示的内容是：A3. 假定有如下的窗体事件过程：Private Sub Form_Click() a$ = &Microsoft Visual Basic& b$ = Right(a$, 5) Basic c = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：C A、Microsoft Visual B、Microsoft C、Basic D、5 可以实现从键盘输入一个作为双精度变量 a 的值的语句是:C A、 a=InputBox() B、 a=InputBox(&请输入一个值&) C、 a=Val(InputBox(&请输入一个值&) ) D、 a=Val(InputBox() ) 在 MsgBox 函数中哪一个参数是必须的:A A、prompt B、buttons C、title D、context 以下语句的输出结果是 C： Print Format $(32548.5,“000,000.00”) A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是：B A、空格 B、逗号 C、冒号 D、分号 用 InputBox 函数设计的对话框，其功能是:B A、 只能接收用户输入的数据，但不会返回任何信息144.5. 6.7. 8.B、 能接收用户输入的数据，并能返回用户输入的信息 C、 既能用于接收用户输入的信息，又能用于输出信息 D、 专门用于输出信息 9. InputBox 函数返回值的类型为：B A、数值 B、字符串 C、变体 D、数值或字符串（视输入的数据而定） 10. 可以同时删除字符串前导和尾部空白的函数是：C A、Ltrim B、Rtrim C、Trim D、Mid 11. 以下语句的输出结果是:B Print Format$(1234.5,”00,000.00”) A、1234.5 B、01,234.50 C、01,234.5 D、1,234.50 12. 执行如下两条语句后，窗体上显示的是：D a=8.4326 Print Format(a，&$00,00.00&) A、0,008.43 B、$8.43 C、8.43 D、$0,008.43 13. 下列叙述不正确的是:C A、InputBox 函数返回值为字符型 B、MsgBox 函数返回值为所单击按钮的键 值 C、MsgBox 语句返回值为所单击按钮的键值 D、 Shell 函数返回值为所执行文件的工作 代码 14. 执行下列语句后，显示输入对话框，此时如果单击&确定&按钮，则变量 atrInput 的内容 是：C atrInput=lnputBox(&请输入字符串&，&字符串对话框&，&字符串&) A、 &请输入字符串& B、 &字符串对话框& C、 &字符串& D、空字符串 15. 在窗体上画一个命令按钮，名称为 Commandl。单击命令按钮时，执行如下事件过 程： Prlvate Sub Commandl―C1ick() a$=&software and hardware& b$＝Right(a$,8) hardware c$=Mid(a$,1，8) software Msgbox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是：C A、softWare and hardware B、software C、hardwafe D、1 16. 阅读程序： Private Sub Command1_Click() a = 10: b = 15: c = 20: d = 25 P Spc(5); Spc(5); c P Space$(5); Space$(5); c P Spc(2); &+&; Spc(2); Print Spc(2); &=&; Spc(2); c + d End Sub 程序运行后，单击窗体，输出结果是：A1517. 下面叙述正确的是:BA、Spc 函数既能用于 Print 方法中，也能用于表达式 B、Space 函数既能用于 Print 方法中，也能用于表达式 C、Spc 函数与 Space 函数均生成空格，没有区别 D、以上说法均不对 执行如下语句：C a=InputBox(&Today&,&Tomorrow&,&Yesterday&,,,&Day before yesterday&，5) 将显示一个对话框，在对话框的输入区中显示的信息是： A、Today B、Tomorrow C、Yesterday D、Day before yesterday 以下语句的输出结果是 A______。 Print Format$(&123．58&，&#，###．00&) A、123．58 B、123．00 C、,123．58 D、0,123．58 下列语句的输出结果为：D Print Format＄(5689.36, &000,000.000&) A、 5,689.36 B、 5,689.360 C、 5,689.3 D、 005,689.360 以下关于 MsgBox 的叙述中，错误的是：D A、MsgBox 函数返回一个整数 B、通过 MsgBox 函数可以设置信息框中图标和按钮的类型 C、MsgBox 语句没有返回值 D、MsgBox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量18.19.20.21.99. 二、编程题 1. 编写程序，输入以秒为单位表示的时间，将其换算成几时几分几秒。 2. 编写程序，从键盘上输入三个数，计算并输出这三个数的和及平均值。通过 InputBox 函数输入数据，在窗体上显示和及平均值。A=inputbox(“”) B=inputbox(“”) C= Sum=a+b+c Aver=sum/3 Print sum,aver16第四章答案一、选择题 1. D 2. A 3. C 4. C 5. A 6. 7. 8. 9. 10.C B B B C11. B 12. D13. C16. A17. B 18. C 19. A 20. D21. D14. C 15. C二、编程题 1. x = InputBox(&请输入秒数:&)a = Val(x) \ 3600 b = (Val(x) - a * 3600) \ 60 c = (Val(x) - a * 3600) Mod 60 P &秒是&; &小时&; &分&; &秒& 2. a = Val(InputBox(&输入第一个数&)) b = Val(InputBox(&输入第二个数&)) c = Val(InputBox(&输入第三个数&)) Sum = a + b + c aver = Sum / 3 Print &3 个数的和为：&; Sum Print &3 个数的平均值为：&; aver99.17第五章 VB 标准控件一、选择题 1. 以下各项中，Visual Basic 不能接收的图形文件是:CA、 .ico 文件 B、 .jpg 文件 C、 .psd 文件 D、 .bmp 文件2. 如果希望一个窗体在显示的时候没有边框，应该设置的属性是：CA、将窗体的标题（Caption）设成空字符 B、将窗体的 Enabled 属性置成 False C、将窗体的 BorderStyle 属性置成 None D、将窗体的 ContalBox 置成 False 3. 通过改变单选按钮(OptionButton)控件的 A_____属性值， 可以改变单选按钮的选取状态。 A、Value B、Style C、Appearance D、Caption 4. 使文本框获得焦点的方法:C A、Change B、GotFocus C、SetFocus D、LostFocus 5. 为了使图片框的大小可以自动适应图片的尺寸，则应：A A、将其 Autosize 属性值设置为 True B、将其 Autosize 属性值设置为 False C、将其 Stretch 属性值设置为 True D、将其 Stretch 属性值设置为 False 6. 窗体中有 3 个按钮 Command1、 Command2 和 Command3， 该程序的功能是当单击按钮 Command1 时，按钮 2 可用，按钮 3 不可见，正确的程序是:C A、 Private Sub Command1_Click( ) B、Private Sub Command1_Click( ) Command2.Visible=True Command2.Enabled=True Command3.Visible=False Command3.Enabled=False End Sub End Sub C、 Private Sub Command1_Click( ) D、Private Sub Command1_Click( ) Command2.Enable=True Command2.Enabled=False Command3.Visible=False Command3.Visible=False End Sub End Sub 7. 下面的窗体中没含有的控件是：D A、 单选钮 B、复选框 C、框架 D、命令按钮8. 决定控件上文字的字体、字形、大小、效果的属性是：DA、Text B、Caption C、Name D、Font9. 往窗体 Form1 上添加一个列表框控件 List1，并编写如下代码：Private Sub Form_Load() For i=0 To 6 Listl．Addltem i Next i End Sub 为了在程序运行时，按住 Ctrl 键单击列表中的项目可以选中多个项目，可以设置 Listl1810. 11. 12.13. 14. 15. 16. 17. 18. 19.20.21. 22.23. 24.的属性：C A、Listl．List B、Listl．Listlndex C、Listl．MultiSelect D、Listl．Text 以下控件可以用来实现定时地执行某段代码的是：B A、OLE B、Timer C、ComboBox D、FileListBox 能够获得一个文本框中被选取文本的内容的属性是： C A、Text B、 Length C、 Seltext D、 SelStart 下面说法不正确的是:D A、滚动条的重要事件是 Change 和 Scroll B、框架的主要作用是将控件进行分组，以完成各自相对独立的功能 C、组合框是组合了文本框和列表框的特性而形成的一种控件 D、计时器控件可以通过对 Visible 属性的设置，在程序运行期间显示在窗体上 决定一个窗体有无控制菜单的属性是：D D、ControlBox A、MinButtom B、Caption C、MaxButton 当滚动条位于最左端或最上端时，Value 属性被设置为:A A、 Min B、 Max C、Max和Min之间 D、Max和Min之外 要把一个命令按钮设置成无效，应设置属性 B 的值为 False。 A、Visible B、Enabled C、Default D、Cancel 为了使列表框中的项目分为多项显示，需要设置的属性为 A A、Columns B、Style C、list D、MultiSelect 表示滚动条控件取值范围最大值的属性是：A A、Max B、LargeChange C、Value D、Max―Min 唯一能区别一个控件的属性是：C A、Caption B、Text C、Name D、Index 不能触发滚动条 Change 事件的操作是：B A、拖动滚动条中滑块 B、单击滚动条中滑块 C、单击滚动条两端箭头 D、单击箭头与滑块之间的滚动条 有关列表框的属性和方法的正确描述是:D A、列表框的内容由属性 Item Data 来确定 B、当多选属性（MultiSelect）为 True 时，可通过 Text 属性获得所有内容 C、选中的内容应通过 List 属性来访问 D、选中的内容应通过 Text 属性来访问，并且每次只能获得一条内容 下面的属性中，用于自动调整图像框中图形内容的大小的是:D A、 Picture B、 CurentY C、 CurrentX D、 Stretch 以下叙述中错误的是：D A、事件过程是响应特定事件的一段程序 B、不同的对象可以具有相同名称的方法 C、对象的方法是执行指定操作的过程 D、对象事件的名称可以由编程者指定 当一个复选框被选中时，它的 Value 属性的值是：C A、3 B、2 C、1 D、0 以下能够触发文本框 Change 事件的操作是：D A、文本框失去焦点 B、文本框获得焦点 C、设置文本框的焦点 D、改变文本框的内容1925. 任何控件都有的属性是:CA、 BackColor B、 Caption C、 Name D、 BorderStyle 26. 在窗体中添加名称为 Command1 和名称为 Command2 的命令按钮测验文本框 Text1， 然后编 写如下代码： Private Sub Command1_Click() Text1.Text = &AB& End Sub Private Sub Command2_Click() Text1.Text = &CD& End Sub 首先单击 Command2 按钮，然后再单击 Command1 按钮，在文本框中显示：A A、AB B、CD C、ABCD D、CDAB 27. 标签控件能够显示文本信息，文本内容只能用什么属性来设置:B B、 Caption C、 Visible D、 BorderStyle A、 Alignment 28. 在 Visual Basic 中，组合框是文本框和 C 的组合: A、 复选框 B、 标签 C、 列表框 D、 目录列表框 29. 假定窗体上有一个文本框，名为 Txt1，为了使该文本框的内容能够换行，并且具有水平 垂直滚动条，正确的属性设置为:B A、 Txt1.MultiLine = True B、Txt1.MultiLine = True Txt1.ScrollBars = 0 Txt1.ScrollBars = 3 C、Txt1.MultiLine = False D、Txt1.MultiLine = False Txt1.ScrollBars = 0 Txt1.ScrollBars = 3 30. 在窗体中添加一个命令按钮，名称为 Command1，两个文本框名称分别为 Text1、Text2， 然后编写如下程序： Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) Print C;D End Sub 程序运行后，在文本框 Text1、Text2 中分别输入 AbC 和 Efg，结果是:A A、abcEFG B、abcefg C、ABCefg D、ABCEFG 31. 通常情况下，垂直滚动条的值是：B A、 由下往上递增 B、 由上往下递增 C、 由左到右递增 D、 由右到左递增 32. 为清除 PictureBox 控件中的图形，下列方法正确的是:D A、Set Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor) B、Picture.Picture = LoadPicture(“c:\Win1.bmp”, vbLPLarge, vbLPColor) C、Set Picture.Picture = LoadPicture D、Picture.Picture = LoadPicture(“”) 33. 要使列表框中的列表项显示成复选框形式，则应将其 Style 属性设置为：B A、0 B、l C、True D、False 34. 为了在 CheckBox 后面显示文本，需要设置的属性是 B A、Visible B、Caption C、Enabled D、Valua 35. 以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体&的语句是：C A、Form1.Name=&VisualBasic 窗体& B、Form1.Title=&VisualBasic 窗体&20C、Form1.Caption=&VisualBasic 窗体& D、Form1.Text=&VisualBasic 窗体” 36. 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 C： A、Move B、Change C、Scroll D、GetFocus 37. 当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示所需的图形， 原因是没有对某个属性设置为 1，该属性是:B A、MousePicture B、Style C、DownPicture D、DisabledPicture 38. 确定一个窗体或控件大小属性是:B A、Width 或 Height B、Width 和 Height C、Top 或 Left D、Top 和 Left 39. 下列关于属性设置的叙述正确的是：D A、所有的对象都有同样的属性 B、控件的属性只能在设计时修改，运行时无法改变 C、控件的属性都有同样的默认值 D、引用对象属性的格式为：对象名称 . 属性 40. 当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是:D A、Appearance B、Visible C、Enable D、Autoredraw 41. 以下哪类控件能用来显示图形:B A、Label B、PictureBox C、TextBox D、OptionButton 42. 当滚动条的 Value 属性改变时，将触发滚动条的 D 事件。 D、 Change事件 A、 KeyUp事件 B、 KeyPress事件 C、 Scroll事件 43. 设定文本框内的文字内容是否允许修改的属性是:B B、Locked C、PasswordChar D、Multiline A、Text 44. 下列说法有错误的是:D A、 默认情况下，属性Visible的值为True B、 如果设置控件的Visible属性为False，则运行时控件会隐藏 C、 Visible的值可设为True或者False D、 设置Visible属性同设置Enabled属性的功能是相同的 45. 为了取消窗体的最大化功能，需要把它的一个属性设置为 False，这个属性是:D A、 ControlBox B、MinButton C、Enabled D、MaxButton 46. 在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 HScroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前 值，如图所示：C以下能实现上述操作的程序段是：A A、Private Sub HScroll_Change() Text1.Text=HScroll1.Value End Sub B、Private Sub HScroll_Click() Text1.Text=HScroll1.Value End Sub C、Private Sub HScroll_Change()21Text1.Text=HScroll.Caption End Sub D、Private Sub HScroll_Click() Text1.Text=HScroll.Caption End Sub 47. 以下叙述正确的是：A A、组合框包含了列表框的功能 B、列表框包含了组合框的功能 C、组合框和列表框的功能完全不同 D、组合框和列表框的功能完全相同 48. 当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是:A A、Load B、Click C、Unload D、GotFocus 49. VB 中控件主要分为 3 类，下面哪一种不是 VB 中的控件类:D A、标准控件 B、ActiveX C、可插入控件 D、外部控件 50. 为了暂时关闭计时器，应把计时器的某个属性设置为 False，这个属性是：C A、Visble B、Timer C、Enabled D、Interval 51. 引用列表框（List1）最后一个数据项应使用的表达式是 B A、List1.List(List1.ListCount) B、List1.List(List1.ListCount-1) C、List1.List(ListCount) D、List1.List(ListCount-1) 52. 在列表框中当前被选中的列表项的序号是由下列哪个属性表示 B： A、List B、Index C、Listindex D、Tabindex 53. 下列哪项是窗体对象的方法而不是属性：B B、Print C、Caption D、Enabled A、Name 54. 在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为 Text1、Command1 和 Labell，文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command 1 Click() X=Int(Val(Textl．Text)+0.5) Label1．Caption=Str(x) End Sub 程序运行后，在文本框中输入 28．653，单击命令按钮，标签中显示的内容是： C A、27 B、28 C、29 D、30 55. 假定窗体上有一个 Text1 文本框， 为使它的文本内容位于中间并且没有边框， 则正确的属 性设置为：D A、Text1.Alignment=1 B、Text1.Alignment=2 Text1.BorderStyle=0 Text1.BorderStyle=1 C、Text1.Alignment=1 D、Text1.Alignment=2 Text1.BorderStyle=1 Text1.BorderStyle=0 56. 在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令 按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮 的标题设置为“计算机等级考试” 。以下能实现上述操作的事件过程是：A A、Private Sub Text1_Change() Command1.Caption=”计算机等级考试” End Sub B、Private Sub Command1_Click() Caption=”计算机等级考试” End Sub C、Private Sub Form1_Click()22Text1.Caption=”计算机等级考试” End Sub D、Private Sub Command1_Click() Text1.Text=”计算机等级考试” End Sub 57. 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是：C A、MouseDown B、MouseUp C、Load D、Click 58. 在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会 触发到什么事件:C A、 GotFocus B、 Click C、 Change D、 DblClick 59. 滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 D A、Max B、Value C、LargeChange D、SmallChange 60. 下列控件中，没有 Caption 属性的是:B B、列表框 C、复选框 D、单选按钮 A、框架 61. 如果要改变窗体的标题，需要设置窗体对象的___B______属性。 A、Name B、Caption C、BackColor D、BorderStyle 62. 以下控件中可以作为容器控件的是:B A、Image 图像框控件 B、PictureBox 图片框控件 C、TextBox 文本框控件 D、ListBox 列表框控件 63. 下列语句中，获得列表框 List1 中项目个数的语句是 A A、 x=List1.ListCount B、 x=ListCount C、 x=List1.ListIndex D、 x=ListIndex 64. 不能作为容器使用的对象是：D A、窗体 B、框架 C、图片框 D、图像框 65. 以下关于图片框控件的说法中，错误的是：D A、可以通过 Print 方法在图片框中输出文本 B、清空图片框控件中图形的方法之一是加载一个空图形 C、图片框控件可以作为容器使用 D、用 Stretch 属性可以自动调整图片框中图形的大小 66. 在 Visual Basic 中， A 控件用于设置窗体的背景色 A、BackColor B、Font C、Caption D、FillColor 67. 关于复选框和单选钮的比较中正确的是：D A、复选框和单选钮都只能在多个选择项中选定一项 B、复选框和单选钮的值（value）都是（True/False） C、单选钮和复选框都响应 DblClick 事件 D、要使复选框不可用，可设置 Enabled 属性（False） 68. 滚动条控件的 LargeChange 属性所设置的是:A A、单击滚动条和滚动箭头之间的区域时，滚动条控件 value 属性值的改变量 B、滚动条中滚动块的最大移动位置 C、滚动条中滚动块的最大移动范围 D、滚动条控件无该属性 69. 如果将文本框的 MaxLength 属性设置为 0，则文本框中的字符不能超过：C A、 8K B、 16K C、 32K D、 64K 70. 每当窗体失去焦点时会触发的事件是:C A、Active B、Load C、LostFocus D、GetFocus 71. 在文本框中，要使键入的所有字符都显示&*&号。这时应该设置__D_____属性为&*& A、Text B、MultiLine C、ScrollBars D、PasswordChar2372. 在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是：D A、Timer1.InterVal=0.5 B、Timer1.Interval=5 C、Timer.Interval=50 D、Timer1.Interval=500 73. 为了使标签覆盖背景，应把 BackStyle 属性设置为:B A、0 B、1 C、True D、False 74. 设置复选框或单选按钮标题对齐方式的属性是:B A、Align B、Alignment C、Sorted D、value 75. 在窗体上画一个水平滚动条，名称为 HScroll1;再画一个文本框，名称为 Text1。要想使用 滚动条滑块的变化量来设置文本框中文字的大小，则可满足的语句是:C A、Text1.FontName= HScroll1.Max B、Text1.FontSize= HScroll1.Min C 、 Text1.FontSize= HScroll1.value D 、 Text1.FontBold= HScroll1.value 76. Cls 方法可清除窗体或图片框中的信息是:C A、Picture 属性设置的背景图案 B、在设计时放置的控件 C、程序运行时产生的图形和文字 D、以上方法都对 77. 为了把窗体上某个控件变成活动控件，应执行的操作是：B A、单击窗体的边框 B、单击控件的内部 C、双击控件 D、双击窗体 78. VB 提供的选择框（CheckBox）可具有的功能是:C A．多重选择 B．单一选择 C．多项选择 D．选择一次 79. 窗体在屏幕上显示后有__C_____种方法可以清除它。 A、1 种 B、2 种 C、3 种 D、4 种 80. 以下关于窗体的描述中，错误的是：A A、执行 UnloadForm1 语句后，窗体 Form1 消失，但仍在内存中 B、窗体的 Load 事件在加载窗体时发生 C、当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止 D、窗体的 Height、width 属性用于设置窗体的高和宽 81. 在程序代码中将图片文件 mypicjpg 装入图片框 Picturel 的语句是：C A、Picture1．Picture=&mypic．jpg& B、Picture1．Image=&mypic.jpg& C、Picture1．Picture=LoadPicture(&mypic．jpg&) D、LoadPicture(&mypicjpg&) 82. 在窗体上画一个名称为 Check1 复选框，在程序运行的过程中，若选中复选框，则 Check1.value 的值是:D A、True B、2 C、0 D、1 83. 设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属 性是:D A、Caption B、Name C、Text D、value 84. 为了清除列表框中的所有内容，应使用的方法是：B A、Cls B、Clear C、Remove D、Removeltem 85. 在窗体上画一个命令按钮和一个文本框,名称分别为 Command1 和 Text1,然后编写如下程 序: Private Sub Command1_Click() a = InputBox(&请输入日期(1-31)&) t = &旅游景点:& _24& IIf(a & 0 And a &= 10, &长城&, &&) _ & IIf(a & 10 And a &= 20, &故宫&, &&) _ & IIf(a & 20 And a &= 30, &颐和园&, &&) Text1.Text = t End Sub 程序运行后,如果从键盘输入 16,则在文本框中显示的内容是:D A、旅游景点：长城故宫 B、旅游景点：长城颐和园 C、旅游景点：颐和园 D、旅游景点：故宫 86. 文本框控件最多能处理_A__________个字节。 A、32K B、64K C、128K D、16K 87. 将组合框的 Style 属性设置为何值时，只能选择，不能从键盘输入文本:C A、 0 B、 1 C、 2 D、 3 88. 若在 Shape 控件内以 FillStyle 属性所指定的图案填充区域， 而填充图案的线条的颜色由 FillColor 属性指定，非线条的区域由 BackColor 属性填充，则应：A A、将 Shape 控件的 FillStyle 属性设置为 2 至 7 间的某个值，BackStyle 属性设置为 l B、将 Shape 控件的 FillStyle 属性设置为 0 或 l，BackStyle 属性设置为 l C、将 Shape 控件的 FillStyle 属性设置为 2 至 7 间的某个值，BackStyle 属性设置为 0 D、将 Shape 控件的 FillStyle 属性设置为 0 或 l，BackStyle 属性设置为 0 89. 窗体上有一组合框 Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和 “Zinfande”放置到组合框中，当窗体加载时的代码如下： Private Sub Form_Load() Combo1.AddItem &Chardonnay& Combo1.AddItem &FunBlanc& Combo1.AddItem &Gewrzt& Combo1.AddItem &Zinfande& End Sub 要在文本框 Text1 中显示列表中的第三个项目的正确语句是 C A、Text1.Text=Combo1.List(0) B、Text1.Text=Combo1.List(1) C、Text1.Text=Combo1.List(2) D、Text1.Text=Combo1.List(3) 90. 比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是:D A、两类控件都可以设置 AutoSize 属性，以保证装入的图形可以自动改变大小 B、两类控件都可以设置 Stretch 属性，使得图形根据物件的实际大小进行拉伸调整，保 证显示图形的所有部分 C、当图片框（PictureBox）的 AutoSize 自属性为 False 时，只在装入图形文件（*.wmf） 时，图形才能自动调整大小以适应图片框的尺寸 D、当图像框（Image）的 Stretch 属性为 False 时，图像框会自动改变大小以适应图形的 大小，使图形充满图像框 91. 若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置:C A．Text 属性值为# B．Caption 属性值为# C．PasswordChar 属性值为# D．PasswordChar 属性值为真 92. 假定窗体的名称为（Name 属性）为 form1，则把窗体的标题设置为“VBTEST”的语句正确 的是:B A、form1=“VBTEST” B、Caption=“VBTEST” C、form1.test=“VBTEST” D、form1.name=“VBTEST” 93. 为了把焦点移到某个指定的控件，所使用的方法是 A25A、SetFocus B、Visible C、Refresh D、GetFocus94. 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Labe11 和Command1，然后编写如下两个事件过程： Private Sub Commandl_Click() strText=InputBox(&请输入&) Text1.Text=strText End Sub Private Sub Text1_Change() Labe11.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是：D A、空 B、abcdef C、abc D、def 95. 下面不是 VB 的文件类控件:D A、DriveListBox 控件 B、DirListBox 控件 C、FileListBox 控件 D、MsgBox 96. 在窗体上有若干控件， 其中有一个名称为 Text1 文本框。 影响 Text1 的 Tab 顺序的属性是： D A、TabStop B、Enabled C、Visible D、TabIndex 97. 执行 x$=InputBox(&请输入 x 的值&) 时，在弹出的对话框中输入 123，在列表框 List1 中选中 1 个列表项数据为 456 ，y 的值是 123456 的是 A A、 y=x$+List1.List(List1.ListIndex) B、 y=x$+List1.List(1) C、 y=Val(x$) +Val(List1.List(0) ) D、 y=Val(x$) & Val(List1.List(1) ) 98. 下列叙述中正确的是：A A、文本框控件可以设置滚动条 B、InputBox 函数和 MsgBox 函数一样，返回的是字符串 C、ListBox 控件和 ComboBox 控件一样，都只能选择一项 D、VB 使用 Delete 来删除磁盘上的文件 99. 同时改变一个活动控件的高度和宽度，正确的操作是:A A、拖拉控件 4 个角上的某个小方块 B、只能拖拉位于控件右下角的小方块 C、只能拖拉位于控件左下角的小方块 D、不能同时改变控件的高度和宽度 00. 为了使标签中的内容居中显示，应把 Alignment 属性设置为:C A、0 B、1 C、2 D、3 01. 设窗体上有一个文本框，名称为 text1,程序运行后，要求该文本框不能接受键盘输入， 但能输出信息，以下属性设置正确的是：B A、text1.maxlength=0 B、text1.enabled=flase C、text1.visible=flase D、text1.width=0 02. 下列可以把当前目录下的图形文件 pic1.jpg 装入图片框 Picture1 中的语句是:C A、picture=”pic1.jpg” B、Picture1.Handle=” pic1.jpg” C、Picture1.Picture=LoadPicture(” pic1.jpg”) D、Picture=LoadPicture(” pic1.jpg”) 03. 假定窗体上有一个标签，名为 Labell，为了使该标签透明并且没有边框，则正确的属性 设置为：A A、Label1. BackStyle=026Label1.Borderstyle=0 B、Label1.BackStyle=1 Label1.Borderstyle=1 C、Label1.BackStyle=True Label1.BorderStyle=True D、Label1.BackStyle=False Label1.Borderstyle=False。 04. 下列四组控件属性中，属性值的类型不相同的一组是:B A、 Label控件的Enabled属性与TextBox控件的Enabled属性 B、 OptionButton控件的Value属性与CheckBox控件的Value属性 C、 Command控件的Default属性与Command控件的Cancel属性 D、 Command控件的Visible属性与Form控件的Visible属性 05. 在窗体上画一个文本框，其名称为 Text1，为了在程序运行后 Text1 中的文本不可编辑， 应当使用的语句： B B、Textl．Locked=True A、Textl．Clear C、Textl．Visible=False D、Textl．Enabled=True 06. 在窗体上画一个名称为 List1 的列表框，一个名称为 Labe11 的标签。列表框中显示若干 城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是：D A、Private Sub List1_Click() Label1．Caption=Listl．ListIndex End Sub B、Private Sub Listl_Click() Label1．Name=List1．Listlndex End Sub C、Private Sub Listl click() Label1．Name=Listl．Text End Sub D、Private Sub List1 click() Labell.Caption=List1．Text End Sub 07. 建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种（中文/英文/日文 /其他）及分类（10 类，存在重复分类，某一本图书属于 1 类，也同时属于 2 类）。应如 何在窗体中利用单选钮和复选框实现:D A、用一组 16 个复选框来实现 B、将 10 种分类用一组 10 个复选框、借阅情况和语种用 6 个单选钮实现 C、将 10 种分类用一组 10 个单选钮、借阅情况和语种用 6 个选择框实现 D、将 10 种分类用一组 10 个复选框、借阅情况用 2 个单选钮、语种用 4 个单选钮实 现 08. 下列叙述不正确的是:A A、命令按钮的默认属性为 Caption B、标签的默认属性为 Caption C、复选框的默认属性为 value D、滚动条的默认属性为 value 09. 假定在图片框 Picture1 中装入一个图形，为了清除该图形（注意，清除图形，而不是删 除图片框），应采用的正确的方法是：B A、 选择图片框，然后按 Del 键 B、 执行语句 Picture1=LoadPicture(“”) C、 执行语句 Picture1.parent=””27D、 选择图片框，在属性窗口中选择 Picture 属性，然后按回车键10. 在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是:AA、Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub B、Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub C、Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub D、Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub 11. 不在 Visual Basic 6 启动时的基本控件集中的是：D A、Timer B、OLE C、Shape D、CommonDialog 12. 在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理,应使 用的循环语句为：A A、For i=0 To List1.ListCount-1 …… Next B、For i=0 To Listl.Count-1 …… Next C、For i=0 To List1．ListCount …… Next D、For i=0 TO List1．Count …… Next 13. 为了使命令按钮(名称为 Command1)右移 200，应使用的语句是：C A、Command1.Move -200 B、 Command1.Move 200 C、Command1.Left= Command1.Left+200 D、Command1.Left= Command1.Left-200 14. 为了在按下回车键时执行某个命令按钮的事件过程， 需要把该命令按钮的一个属性设置为 True，这个属性是 ：B A、Value B、Default C、Cancel D、Enabled 15. 在窗体中添加两个文本框（Name 属性分别为 Text1 和 Text2）、一个命令按钮（Name 属 性为 Command1）和一个标签（Name 属性为 Label1）。编写如下程序： Private Sub Form_Load() Text1.Text = && Text2.Text = && End Sub 要求程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入 1232816.17.18.19.20. 21.和 123，然后单击命令按钮，在标签中显示结果为 246。能实现上述功能的程序段是:C A、Private Sub Command1_Click() B、Private Sub Command1_Click() a = Text1.Text + Text2.Text a = Val(Text1.Text + Text2.Text) Label1.Caption = Str(a) Label1.Caption = Str(a) End Sub End Sub C、Private Sub Command1_Click() D、Private Sub Command1_Click() a = Val(Text1.Text) + Val(Text2.Text) val(a) = Text1.Text + Text2.Text Label1.Caption = Str(a) Label1.Caption = Str(a) End Sub End Sub 为了在运行时能显示窗体左上角的控制框（系统菜单） ，必须 B A、把窗体的 Contro1Box 属性设置为 False,其他属性任意 B、把窗体的 ControlBox 属性设置为 True,并且把 Boder Style 属性设置为 1-5 C、把窗体的 ControlBox 属性设置为 False,同时把 BoderStyle 属性调协为非 0 值 D、把窗体的 ControlBox 属性设置为 True,同时把 BoderStyle 属性设置为 0 值 在窗体上画一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1 click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量 b 的值是：B B、l C、2 D、3 A、0 窗体上画一个文本框(其名称为 Textl)和一个标签(其名称为 Labell)。要求程序 运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实 现上述操作的事件过程是：A A、Private Sub Textl_Change() Label1．Caption=Text1．Text End Sub B、Private Sub Text1_Click() Labell．Caption=Textl．Text End Sub C、Private Sub Labell_Change() Label1．Caption=Text 1．Text End Sub D、Private Sub Labell_Click() Label1．Caption=Text 1．Text End Sub 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox(&请输入一个整数&) Print x + Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确 定”按钮后，在窗体上显示的内容是：D A、123 B、56 C、579 D、123456 当双击窗体时会触发 D 个事件过程。 A、 1 B、2 C、3 D、4 为了在运行时，使最小化按钮不可用，应将 B 属性设置为 False。29A、MaxButton B、MinButton C、ControBoxD、Enabeld22. 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load () List1.AddItem&357& List1.AddItem&246& List1.AddItem&123& Listl.AddItem&456& Text1.Text=&& End Sub Private Sub List1_ DblClick ( ) a =List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789” ，然后双击列表框中的&456&，则输出结果为：B A、1245 B、456789 C、789456 D、0 23. 在窗体上画一个名称为 Commandl 的命令按钮和三个名称分别为 Labell、Label2、 Label3 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_C1ick() Static y As Integer Dim z As Integer n＝10 z=n+z y＝y+z x＝x+z Labell.Caption＝x Label2.Caption=y Label3.Caption＝z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是：C A、10 10 10 B、30 30 30 C、30 30 10 D、10 30 24. 在窗体上画一个 List1 的列表框， 一个名称为 Label1 的标签， 列表框中显示若干个项目， 当单击列表框中的某个项目时， 在标签中显示被选中的项目的名称， 下列能正确实现上述操作 的程序是:D A、 Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub B、 Private Sub List1_Click() Label1.Name = List1.ListIndex End Sub C、 Private Sub List1_Click() Label1.Name = List1.Text End Sub D、 Private Sub List1_Click() Label1.Caption = List1.Text End Sub 25. 在窗体上画一个文本框和一个计时器控件， 名称分别为 Text1 和 Timer1,在属性窗口中把30计时器的 Interval 属性设置为 1000，Enabled 属性设置为 False,程序运行后，如果单击命令 按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._________ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在___A___处应填入的内容是： A、Enabled=True B、Enabled=False C、Visible=True D、Visible=False 26. 在窗体中添加一个列表框 List1、 一个组合框 Combo1、 一个文本框 Text1 和一个命令按钮， 编写如下代码： Private Sub Form_Load() List1.AddItem &11& List1.AddItem &22& List1.AddItem &33& Combo1.AddItem &44& Combo1.AddItem &55& Combo1.AddItem &66& Text1.Text = && End Sub 程序运行后，单击命令按钮，要在文本框中显示“2255”。能满足要求的命令按钮的程序 代码是：B A、 Private Sub Command1_Click() Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub B、 Private Sub Command1_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub C、 Private Sub Command1_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub D、 Private Sub Command1_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub 27. 执行了下面程序后，组合框中数据项的值是 B Private Sub Form_Click() For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i31End Sub A、1 5 6B、1 3 5C、4 5 6D、2 4 699. 二、填空题 1. 在修改列表框内容时，RemoveItem 方法的作用是 。 2. 在 VB 中向组合框中增加数据项所采用的方法为___additem ___ ___。 3. 为了使标签能自动调整大小以显示全部文本内容， 应把标签的 autosize属性设置为 True。 4. 当对象得到焦点时，会触发 GotFocus 事件。 5. 记时器控件能有规律的以一定时间间隔触发 Timer 事件，并执行该事件过程中的 程序代码。 6. 当对象失去焦点时，将触发 lostfocus 事件。 7. 为了在按下 Esc 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设 True，这个属性是 cancel 。 8. visual Basic 中有一种控件组合了文本框和列表框的特性， 这种控件是 组合框 。 9. 在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click() a = InputBox(&请输入一个整数&) B = InputBox(&请输入一个整数&) Print Val(a) + Val(B) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 21 和 45，输出结果为_66______。 10. 设置计时器事件之间的间隔要通过计时器的 interval 属性。 11. 在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 。 12. 窗体、图片框或图像框中的图形通过对象的 picture 属性设置。 13. 在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个 命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1．Text+Text2．Text Print A End Sub Private Sub Form_Load() Textl．Text=＂＂ Text2．Text=＂＂ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123 和 32l，然 后单击命令按钮，则输出结果为 123321 。 14. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(&请输入一个整数&) b = InputBox(&请输入一个整数&)提示：inputbox 默认为字符型 Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 321 和 456，输出结果为 321456 。 15. 在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。 程序运行后，32Command1 为禁用(灰色)。当向文本框中输入任何字符时，命令按钮 Command1 变为可用。请将 程序补充完整。 Private Sub Form_Load() Command 1．Enabled=False End Sub Private SubText1_ change () Command1．Enabled=True End Sub 16. 执行下面的语句后，所产生的信息框的标题是 BBBB 。 a=msgbox(&AAAA&，，&BBBB&，＂＂，5) 17. 将 C 盘 根 目 录 下 的 图 形 文 件 moon ． jpg 装 入 图 片 框 Picture1 的 语 句 是 picture1.picture=loadpicture(c:\moon.jpg) 。 18. 假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标 光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print&Mousepointer Property is now&;x =x Forml． mousepointer x=x+1 If x=15 Then x=0 End Sub和 风格的组 合框允许用户从键盘输入文本。 2. 在窗体中添加 1 个名称为 text1 的文本框， 个名称为 Command1 的命令按钮， 个单选钮， 1 4 名称分别为 Option1、Option2、Option3、Option4，标题分别为乘法、除法、加法和减法。 要求程序运行后，用户选中单选按钮，则程序作 10 和 2 的相应计算，并把计算结果显示在文 本框中。如用户选中加法单选按钮，则程序作 10 和 2 的相加，计算结果 12 在文本框中显示出 来。单击结束按钮，则退出。请将下列程序补充完整。 Option Explicit Private Sub Command1_Click() _end_ End Sub Private Sub Option1_Click() Text1.Text = 10 * 2 End Sub Private Sub Option2_Click() Text1.Text= 10/2 End Sub Private Sub Option3_Click() Text1.Text = 10 + 2 End Sub Private Sub Option4_Click() Text1.Text = 10 C 2 End Sub3399. 三、填空题 1. 组合框是组合了文本框和列表框的特性而组成的一种控件。3. 一个控件在窗体上的位置由 Top 和 left 属性决定，其大小由 height和 width属性决定。 4. 下面程序的功能是当窗体装入弹出消息框显示“欢迎你”3 个字。请将下列程序补充完 整。 () Private Sub Form_ load_ _msgbox &欢迎你& End Sub 5. 在窗体中添加两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下代码： Private Sub Command1_Click() Text1.Text = &VB& Text2.Text = Text1.Text Text1.Text = &ABC& End Sub 程序运行后，单击命令按钮后，两个文本框中显示的内容分别为_ABC__ _____和__ __VB____。 6. 在窗体中添加一个名称为 Text1 的文本框， 两个名称分别为 Command1 和 Command2 的命令 按钮。要求程序运行后，用户向文本框中输入字母，单击 Command1 按钮则文本框中字母全部 转换为大写；然后单击 Command2 按钮则文本框中字母全部转换为小写。请将下列程序补充完 整。 Private Sub Command1_Click() Text1.Text =Ucase(text1.tag) __ End Sub Private Sub Command2_ click() ___ ___ Text1.Text = LCase(Text1.Tag) End Sub 7. 通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框（Combo1）和一 个文本框（Text1），代码如下。请补充完整。 Private Sub Combo1_Click() Text1.FontName = Combo1.List(Combo1.ListIndex) End Sub Private Sub Form_Load() With Combo1 .AddItem &宋体& .AddItem &隶书& .AddItem &黑体& .AddItem &楷体& .ListIndex = 0 End With = 30 Text1.__fontsize34Text1. fontname__ ____ = Combo1.List(0) End Sub 8. 在窗体中添加两个命令按钮，其名称分别为 Command1 和 Command2，窗体加载时要求 Command1 不可用，Command2 可用；单击 Command2 后，Command1 可用。请将下列程序补充完 整。 Private Sub Command2_Click() _commamd1.enable=true_ End Sub Private Sub Form_Load() _command1.enable=false End Sub99. 四、填空题 1. 程序运行时，单击“开始”命令按钮，汽车图标向右移动，单击“停止”命令按钮，汽车图标停止移动，移动滚动条上的滚动框，改变汽车的移动速度，如图所示。将程序补充完整。Private Sub Command1_Click() Timer1.Enabled = true End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub HScroll1_Change() Timer1 .Interval = HScroll1.Value End Sub Private Sub Timer1_Timer() Picture1.Left = picture1`.left + 10 End Sub 2. 窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label1、 Caption 属性为“Sum”的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序运 行后，将把 1～100 之间能够被 7 整除的数添加到列表框。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序， 请填空。Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then35List1.additemi____ End If Next End Sub Private Sub Command1_Click() Sum =0 For i=0 To__98___ Sum =Sum+__list1.text____ Next Text1.Text=Sum End Sub 3. 设计一个计时程序。该程序用户界面如图所示，由一个文本框（Text1）、两个按钮：命 令按钮 1（Command1）、命令按钮 2（Command2）组成。程序运行后，单击开始按钮，则开始 计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请将下列程序补充 完整。 Option Explicit Dim i Private Sub Command1_Click() i = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Click() unload Me End Sub Private Sub Form_Load() Timer1.Enabled = False Text1.Text = 0 End Sub Private Sub Timer1_ _timer () i = i + 1 Text1.Text = __”I”_ ________ End Sub4. 该程序用户界面如图，由一个标签（Label1）、一个命令按钮（Command1）和两个复选框（Check1、Check2）组成。程序运行后，用户选中粗体复选框时“字体改变！”的字体变成粗 体，用户选中斜体复选框时，“字体改变！”几个字的字体变成斜体。 若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。36Private Sub Check1_Click() If Check1.value = 1 Then Label1.Font.italic___ __ = True Else Label1.Font.Italic = False End If End Sub Private Sub Check2_Click() If Check2.value = 1 Then Label1.Font.Bold = True Else Label1.Font._ bold = False End If End Sub Private Sub Command1_Click() __end End Sub99. 五、编程题 1. 编写一段程序，求 1-1/2+1/3-1/4+…+1/99-1/100 的值。 2. 假设窗体上有一个文本框，名称是 text1。请编写 Form_Load 事件过程，使得运行时，如果在 text1 中每输入一个字符，则显示一个“*” 。99. 一、选择题 1. C 11. 2. C 12. 3. A 13. 4. C 14. 5. A 15. 6. C 16. 7. D 17. 8. D 18. 9. C 19. 10. B 20. 01. B 02. C 03. A第五章答案51. B 52. C 53. B 54. C 55. D 56. A 57. C 58. C 59. D 60. BC D D A B A A C B D21. 22. 23. 24. 25. 26. 27. 28. 29. 30.D D C D C A B C B A31. 32. 33. 34. 35. 36.37.38. 39.40.B D B B C C B B D D41. B 42. D43. B 44. D 45. D 46. A 47. A 48. A 49. D 50. C61. 62. 63. 64. 65. 66. 67. 68. 69. 70.B B A D D A D A C C71. 72. 73. 74.75. 76.77. 78. 79. 80.D D B B C C B C C A81. C82. D 83. D 84. B 85. D 86. A 87. C 88. A 89. C 90. D91. 92. 93. 94. 95. 96. 97. 98. 99. 00.C B A D D D A A A C04. B 05. B 06. D07. D08. A 09. B10. A 11. D 12. A13. C 14. B 15. C16. B 17. B 18. A19. D 20. D 21. B22. B 23. C 24. D25. A 26. B27. B3799.二、填空题 1. 删除指定的列表框条目 2. additem 3. AutoSize 4. GotFocus 5. Timer 6. LostFocus 7. Cancel 8. 组合框 9. 66 10. INTERVAL . 三、填空题 1. 下拉式组合框简单组合框11. 12. 13. 14. 15. 16. 17.下拉式列表框 Picture 456 Change BBBBPicturel．Picture=LoadPicture(&c:\moon.jpg&)或 Picturel=LoadPicture(&c:\moon.jpg&) 18. MousePointer四、填空题 1. TrueTimer1 Picture1.Left 2. list1.additem i list1.listcount-1 list1.list(i) 3. UNLOAD TIMER I 4. ITALIC Bold End2. End10/23. WidthHeight4. Loadmsgbox5. ABCVB6. ucase(text1.tag)click( )7. Fontsizefontname 8. command1.enabled=true command1.enabled=false 99. 五编程题 1. SUM=0 S=1 FOR I=1 TO 100 SUM=SUM+S/I S=-S NEXT I38PRINT “SUM=“；SUM2. Private Sub Form_Load()Text1.PasswordChar = &*& End Sub.39第六章 VB 控制结构一、选择题 1. 下列程序段的执行结果为：DN=10 For K=N TO 1 Step-l X=Sqr(K) X=X-2 Next K Print X-2 A、-3 B、-1 C、1 D、1. 如果整型变量 a、b 的值分别为 3 和 1，则下列语句中循环体的执行次数是:D For I=a to b Print I Next I A、0 B、1 C、2 D、3 以下 Case 语句中错误的是：C A、Case 0 To 10 B、Case Is&10 C、Case Is&10 And Is&50 D、Case 3,5,Is&10 在窗体中添加一个命令按钮 Command1，并编写如下程序： Private Sub Command1_Click( ) x=InputBox() If x^2=9 Then y=x If x^2&9 Then y=1/x If x^2&9 Then y=x^2+1 Print y End Sub 程序运行后，在 InputBox 中输入 3，单击命令按钮，程序的运行结果是:A A、3 B、0.33 C、17 D、0.25 在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() For i = 1 To 4 a = 1 For j = 1 To 3 a = 2 For k = 1 To 2 a = a + 6 Next k Next j Next i Print a End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是：A A、14 B、15 C、16 D、17 当 VB 执行下面语句后，A 的值为：C A=1402.3.4.5.6.7.8.9.10.11.12.13.If A&0 Then A=A+1 If A&1 Then A=0 A、0 B、1 C、2 D、3 设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是 B： A、26 B、27 C、38 D、57 运行下列程序段后，显示的结果为：B J1=23 J2=32 If J1&J2 Then Print J2 Else Print J1 B、 32 C、 55 D、 2332 A、 23 执行以下语句后显示结果为：C Dim x As Integer If x Then Print x Else Print x-l A、1 B、0 C、-1 D、不确定 下列关于 do while …loop 和 do…loop until 循环执行循环体次数的描述正确的是:D 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 循环至少执行一次 下列语句正确的是：C A、 If A≠B Then Print &A不等于B& B、 If A&&B Then Printf &A不等于B& C、 If A&&B Then Print &A不等于B& D、 If A≠B Print &A不等于B& 假设 x 的值为 5，则在执行以下语句时，其输出结果为“OK”的 Select case 语句是:C A、Select Case X Case 10 to 1 Print &OK& End Select B、Select Case X Case Is & 5,Is &5 Print &OK& End Select C、Select Case X Case Is & 5,1,3 to 10 Print &OK& End Select D、Select Case X Case 1,3 Is & 5 Print &OK& End Select 执行下面的程序段后，x 的值为：B x=10 For i=1 To 20 Step 34114.15.16.17.18.19.20.x=x+i\4 Next I A、24 B、25 C、26 D、27 执行如下两条语句，窗体上显示的是：D a=9.8596 Print Format(a,&$00,00.00&) A、0,009.86 B、$9.86 C、9.86 D、$0,009.86 如果变量 a、b、c 均为整型，下列程序段的输出结果为:C a=2 b=3 c=a*b Print a & “*” & b & “=”& c A、c=6 B、a*b=c C、2*3=6 D、a*b=6 下列程序段的执行结果为：B X=2 Y=l If X*Y&l Then Y=Y-1 Else Y=-1 Print Y-X&0 A、True B、False C、-1 D、1 下列程序段的执行结果为：A I=0 For G=10 To 19 Step 3 I=I+l Next G Print I A、4 B、5 C、3 D、6 下列程序段的执行结果为：A A=0：B=0 For I= -1 TO -2 Step Cl For J=l TO 2 B=B+l Next J A=A+1 Next I Print A；B A、2 4 B、-2 2 C、4 2 D、2 3 下面有关注释语句的格式，错误的是:A A、 Rem注释内容 B、 ′注释内容 C、 a=3:b=2 ′对a、b赋值 D、 Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single) 下列各程序段中，正确的是:A A、If 10 & 10 Then a=a+10 End If B、If a& 10 Then a= a+1 Else a= a+ 5 End If C、If a &=10 Then a=a + 142Else End If D、If a &=10 Then a=a + 1 Else If a &=20 Then a=a + 10 End If 21. 在窗体中添加一个命令按钮（Name 属性为 Command1），然后编写如下代码： 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 End Sub 程序运行后，单击按钮，输出结果为：B A、12 B、32 C、48 D、96 22. 以下程序段运行时从键盘上输入字符“-”，则输出结果为:B op$=InputBox(&op=&) If op$=&+& Then a=a + 2 If op$=&-& Then a=a - 2 Print a A、 2 B、 -2 C、 0 D、 +2 23. 编写如下程序： Private Sub Form_Click() a$=&54321&：b$=&abcde& For j=l To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为：D A、alb2c3d45e B、a5b4c3d2el C、eld2c3b4a5 D、la2b3c4d5e 24. 在窗体上画两个名称分别为 Text1、 Text2 的文本框和一个名称为 Command1 的命令按钮， 然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer, n As Integer x=1 n=0 Do While x&20 x=x*3 n=n+l43Loop Textl．Text=Str(x) Text2．Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是：B A、15 和 l B、27 和 3 C、195 和 3 D、600 和 4 25. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-l a=InputBox(&请输入 A 的值&) a=Val(a) b=InputBox(&请输入 B 的值&) b=Val(b) x=InputBox(&请输入 x 的值&) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、l、-1，则输出结果 为：D A、2 B、3 C、14 D、15 26. 设有如下程序： Private Sub Form_Click() score = Int(Rnd * 10) + 30 Select Case score Case Is & 10 a$ = &F& Case 10 To 19 a$ = &D& Case 20 To 29 a$ = &C& Case 30 To 39 a$ = &B& Case Else a$ = &A& End Select Print a$ End Sub 程序运行后，单击窗体，则在窗体上显示的是：B A、A B、B C、C D、D 27. 在窗体上画一个名称为 Commandl 的命令按钮，一个名称为 Labell 的标签，然后 编写如 下事件过程： Private Sub Commandl_C1ick() S＝0 For i＝1 to 1544x＝2*i-1 1f x Mod 3＝0 Then s＝s+1 Next i Label1．Caption=s End Sub ． 程序运行后，单击命令按钮，则标签中显示的内容是：B A、1 B、5 C、27 D、45 28. 在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 n=InputBox(&&) For i= 1 To n For j = 1 To i x = x +1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入 3,则在窗体上显示的内容是：D A、3 B、4 C、5 D、6 29. 设有如下程序： Private Sub Form_Click( ) Print “*”;Tab(6);2,5 For I=15 To 16 Print I For j=2 To 6 Step 3 Print Tab(3*j);j*I; Next j Print Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是:C30. 下列程序段的执行结果为：Ca=1 b=045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、 * *0* * B、 * * 1* * C、 * *2* * D、 0 31. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static y As Integer Cls For i=O TO 2 x=x+y y=y+3 Next Print x,y End Sub 程序运行后，连续二次单击 Command1 按钮后，窗体上显示的是：A A、6 9 B、36 18 C、30 12 D、63 27 32. 下列程序段的执行结果为：B N=0 For I=l To 3 For J=5 To l Step-1 N=N+l Next J Next I Prim N；J；I A、12 0 4 B、15 0 4 C、12 3 l D、15 3 1 33. 设有如下程序： Private Sub Form_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a End Sub 程序运行后，单击窗体，则在窗体上显示的内容是：B46A、6 B、5 C、4 D、334. 下列程序段的执行结果为:Ba=75 If a & 60 Then If a & 70 Then If a & 80 Then If a & 90 Then Print &I=&; I A、 I＝1 I=1 I=2 I=3 I=4 B、 I＝2 C、 I＝3 D、 I＝4！ ！以上答案有错的！！ ！35. 编写如下事件过程：Private Sub Form_Click() k=2 If k&=l Then A=3 If k&=2 Then A=2 If k&=3 Then A=I Prim A End Sub 程序运行后，单击窗体，输出的结果为： B、2 C、3 D、出错 A、1 36. 下列程序段的执行结果为：D A=&abcd& B=&bcde& E=Right(A，3) F=Mid(B，2，3) If E&F Then Print E + F Else Print F + E A、cdebcd B、cdd C、cdcd D、bcdcde 37. 有如下事