vb操作题
国家二级VB机试(上机操作)模拟试卷83(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷83(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计’Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。
框架内含有两个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”，如图3—163所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sitl．frm。
(2)考生文件夹下的工程文件sjt2．vbp 中有一个由直线Linel、L,ine2和L,ine3组成的三角形，直线Linel、Line2和Line3的坐标值见表3—4：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。
再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图3—164所示。
请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。
不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：打开本题工程文件sjt2．vbp，在窗体中按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Prirate Sub Cmdl C1ick( ) Line4．Visible=TrueEnd SubPrirate Sub Cmd2 Ctick( ) Line4．ViSible=FalSeEnd Sub步骤3：按要求将文件保存至考生文件夹中。
中职vb期中考试试题和答案
中职vb期中考试试题和答案中职VB期中考试试题和答案一、单项选择题（每题2分，共30分）1. Visual Basic是一种（）。
A. 操作系统B. 编程语言C. 应用软件D. 数据库管理系统答案：B2. Visual Basic的默认启动窗体是（）。
A. Form1B. Form2C. Form3D. Form4答案：A3. 在Visual Basic中，以下哪个是合法的变量名？（）A. 123abcB. my-variableC. $nameD. 2name答案：B4. 以下哪个是Visual Basic中的保留字？（）A. MyVarB. DimC. NameD. UserVar答案：B5. 在Visual Basic中，以下哪个是正确的字符串连接运算符？（）A. +B. &C. *D. /答案：B6. Visual Basic中，以下哪个函数用于计算字符串的长度？（）A. LenB. LengthC. SizeD. Count答案：A7. 在Visual Basic中，以下哪个是正确的循环结构？（）A. For...NextB. While...End WhileC. Do...LoopD. All of the above答案：D8. Visual Basic中，以下哪个是正确的条件语句？（）A. If...Then...ElseB. If...Then...End IfC. If...Else...End IfD. If...Then...End答案：A9. 在Visual Basic中，以下哪个是正确的数组声明方式？（）A. Dim MyArray(10)B. Dim MyArray[10]C. Dim MyArray(10, 10)D. All of the above答案：D10. Visual Basic中，以下哪个是正确的子程序声明方式？（）A. Sub MySub()B. Function MySub()C. Procedure MySub()D. All of the above答案：A11. 在Visual Basic中，以下哪个是正确的事件处理程序的声明方式？（）A. Private Sub MyEvent()B. Public Sub MyEvent()C. Sub MyEvent()D. Function MyEvent()答案：A12. Visual Basic中，以下哪个是正确的控件属性？（）A. TextB. CaptionC. LabelD. All of the above13. 在Visual Basic中，以下哪个是正确的控件事件？（）A. ClickB. PressC. ChangeD. All of the above答案：A14. Visual Basic中，以下哪个是正确的数据类型？（）A. IntegerB. IntC. LongD. All of the above答案：D15. 在Visual Basic中，以下哪个是正确的文件操作函数？（）A. OpenC. WriteD. All of the above答案：D二、填空题（每题2分，共20分）16. Visual Basic的编程环境被称为_______。
VB课后题
※<习题一>1．计算机硬件系统和软件系统各由哪些部分组成？分别说明其功能与作用。
2．信息在计算机内如何表示，存储容量如何计算？3．Windows系统中有哪些常见的操作对象？4．操作系统的功能、作用与地位如何？5．Windows系统中文件是如何进行管理的？6．如何获取和运行应用程序？5※<习题二>1．叙述建立一个完整的VB应用程序的过程。
2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到多少文件要保存？3．解释什么是类、对象、对象属性、事件与事件过程、方法。
4．VB开发环境中有哪些窗体，各有哪些用途？5．使用VB开发环境牵涉到哪几种模式，并描述各自的作用？6．VB中的错误种类有哪些？如何调试程序？如何使用帮助系统？5※<习题三>习题（一）判断题：1、VB的Byte类型数据的数值范围，在-255到255之间。
(F)2、VB的Double类型数据，可以精确表示其数值范围内的所有实数。
(F)3、Variant是一种特殊的数据类型，该类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。
Variant类型变量还具有Empty、Error和Null等特殊值。
（T）4、函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。
（F）5、在自定义函数过程中，函数名必须被赋值。
（F）6、在Open语句中用Append方式所打开的文件若不存在，则创建该文件。
（T）7、在Open语句中用Input方式所打开的文件必须已经存在，否则会运行错误。
（T）8、“A=B=C”是一个合法的Visual Basic语句。
（T）9、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。
（T）10、静态变量是局部变量，当过程再次被执行时，静态变量的初值是上一次过程调用后的值。
（T）11、在VB中，用Dim定义数组时数组元素也自动赋初值0。
国家二级VB机试对象及其操作模拟试卷7_真题-无答案
国家二级VB机试（对象及其操作）模拟试卷7(总分106,考试时间90分钟)1. 选择题1. 以下合法的Visual Basic标识符是A. ForLoopB. ConstC. 9abcD. a#x2. 当一个复选框被选中时，它的Value属性的值是A. 3B. 2C. 1D. 03. 以下叙述中错误的是A. 在keyPress事件过程中不能识别键盘的按下与释放B. 在keyPress事件过程中不能识别回车键C. 在keyDown和keyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母D. 在keyDown和keytJp事件过程中，从键盘上输入的“1”和从右侧小键盘上输入的“1”4. 在Visual Basic工程中，可以作为“启动对象”的程序是A. 任何窗体或标准模块B. 任何窗体或过程C. Sub Main过程或其他任何模块D. Sub Main过程或任何窗体5. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件6. 目录列表框的Path属性的作用是A. 显示当前驱动器或指定驱动器上的某个目录下的文件名B. 显示当前驱动器或指定驱动器上的目录结构C. 显示根目录下的文件名D. 显示指定路径下的文件7. 为了使列表框中的项目呈多列表显示，需要设置的属性为A. ColumnsB. StyleC. ListD. MultiSelect8. 为了使标签具有“透明”的显示效果，需要设置的属性是A. CaptionB. AlignmentC. BackStyleD. AutoSize9. 目录列表框Path属性所表示的含义是A. 当前驱动器或指定驱动器上的路径B. 当前驱动器或指定驱动器上的某目录下的文件列表C. 跟目录下的文件列表D. 指定路径下的文件列表10. 下面有关标准模块的叙述中，错误的是A. 标准模块不完全由代码组成，还可以有窗体B. 标准模块中的Private过程不能被工程中的其他模块调用C. 标准模块的文件扩展名为．basD. 标准模块中的全局变量可以被工程中的任何模块引用11. 下面关于标准模块的叙述中错误的是A. 标准模块中可以声明全局变量B. 标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C. 标准模块中可以包含一些Public过程D. 一个工程中可以含有多个标准模块12. 以下叙述中正确的是A. 在属性窗口只能设置窗体的属性B. 在属性窗口只能设置控件的属性C. 在属性窗口可以设置窗体和控件的属性D. 在属性窗口可以设置任何对象的属性13. 以下说法中正确的是A. 事件过程也是过程，只能由其他过程调用B. 事件过程的过程名是由程序设计者命名的C. 事件过程通常放在标准模块中D. 事件过程是用来处理由用户操作或系统激发的事件的代码14. VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是A. ．vbpB. ．basC. ．vbwD. ．frm15. 以下关于VB文件的叙述中，错误的是A. 标准模块文件不属于任何一个窗体B. 工程文件的扩展名为．frmC. 一个工程只有一个工程文件D. 一个工程可以有多个窗体文件16. 在面向对象的程序设计中，可被对象识别的动作称为A. 方法B. 事件C. 过程D. 函数17. 以下关于VB文件的叙述中，正确的是A. 标准模块文件的扩展名是．frmB. 一个．vbg文件中可以包括多个．vbp文件C. 一个．vbp文件只能含有一个标准模块文件D. 类模块文件的扩展名为．bas18. 以下关于VB对象属性的叙述中，错误的是A. 属性是对象的特征B. 对象的所有属性值都可以在属性窗口中设置C. 不同对象可以具有同名的属性D. 对象的某些属性可以在程序中设置19. 能够用于标识对象名称的属性是A. NameB. CaptionC. ValueD. Text20. 以下关于事件、事件驱动的叙述中，错误的是A. 事件是可以由窗体或控件识别的操作B. 事件可以由用户的动作触发C. 一个操作动作只能触发一个事件D. 事件可以由系统的某个状态的变化而触发21. 设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是A. Text1．MaxLength=0B. Text1．Enabled=FalseC. Text1．Visible=FalseD. Text1．Width=022. 以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是A. Form1．Name=“VisualBasic窗体”B. Form1．Titie=“VisualBasic窗体”C. Form1．Caption=“VisualBasic窗体”D. Form1．Text=“VisualBasic窗体”23. 把窗体的KeyPreview属性设置为True。
VB试题库及答案
VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。
程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。
A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。
A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。
VB上机操作题自动判分程序评分标准的自动生成
第 ４期
长
春
大
学
学
报
Ｖｏ． Ｏ Ｎｏ ４ １２ ．
２１ ０ ０年 ４月
Ｊ ＯＵＲ ＮＡＬ ＯＦ Ｃ ＨＡＮＧ ＣＨＵＮ ＵＮ ＶＥ Ｉ Ｙ Ｉ ＲＳ Ｔ
Ａｐ ．２ ０ ｒ ０１
Ｖ Ｂ上机操作题 自动判分程序评分标准的 自动生成
董迎红 ，刘 刚，宋雅娟
（ 长春大学 计 算机科学技术学 院，吉林 长春 １０ ２ ） ３ ０ ２
一
＝ Ｃｂ Ｔ ｘｔ Ｃ ２ ２． ｅ 。 ｂ
一
一
Ｃ ｃ（ １ 签Ｌ ｌ ｋ＇ Ｉ 一 １ ｉ ｌ… 标 宇 。
’ ’ 。
ｌ Ｉ ． “：ｚ 号属性设置Ｉ ？ ｅ－Ｃ１Ｔｘ。 ｌＣＬｋ） Ｌ．ｏｔｉｅ－Ｃ１Ｔｘ。ｂ—ｌｃ（Ｉｌ １ 岱强Ｊ ｔｔ ｂ．ｅｔＣ —ｌｃ（１ １Ｆｎ￥ｚ ｂ ￣ １ ｂ． ｔＣｌＣｉｋ）１标签Ｌ字 ｅ
组合框 的 ｌｔ ，代码” ｉ值 “ ｓ 类型主要针对窗体或控件的事件代码 ， 输出” “ 类型主要是针对程序的运行结果而
设定。
在属性及值信息部分主要是设定考察的有关控件的相关属性及属性值设定信息。针对不同的类型 ， 这 部 分信息 不尽 相 同。
材， 就可 自动生成 评 分标准 。
１ Ｖ Ｂ上机操作题评分标 准格式
要 想 实现对 于 Ｖ Ｂ上 机操作 题 的 自动判 分 ， 须对每 种题 目有 一定 的评分 标准 ， 得判 分 程序 可按 评分 必 使 标准 自动判 分 ， １即为 某个 Ｖ 图 Ｂ上机 操作题 的评 分标准 格式 ［ ］ ２ 。评 分标 准一般 设定 为文本 格式 。
主要语种 。
Ｖｓａ Ｂｓ 程 序设计 主要 注重对 学生 实践 动 手能 力 的 培养 ， 了 能够 提供 一 个很 好 的学 习平 台 ， 开 ｉ ｌ ａｉ ｕ ｃ作题 目的 自动判 分 。判分标 准可 以手工 生成 ， 可 但会 额外增 加题库 维 护 人员 的工作量 ， 容易 出现错误 。 为此设 计 了评 分 标 准 自动生 成 程 序 ， 并 用户 只需 给 出原 始 素 材 和结 果 素
VB题
一、选择题1.在Visual Basic设计界面中不能隐藏的窗口是 A 。
A)工程窗口B)属性窗口C)立即窗口D)窗体窗口2.以下可以构成语句的一项是 B 。
A)对象名.属性B)对象名.方法名C)对象名.事件名D)对象名.函数名3.以下不是 Visual Basic 的特点的选项是 B 。
P6A)可视编程B)算法设计C)事件驱动D)面向对象4.在Visual Basic中通过属性来设置字体的颜色 A 。
A)FontColorB)ClipControlC)BackColorD)ShowColor5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用属性D 。
A)ControlBoxB)ClipControlC)BordeStyleD)AutoRedraw6.Move方法的一般形式是［对象名.］Move A［,B［,C［,D］］］,其中B指的是 B 。
A)LeftB)TopC)WidthD)Height7. C 是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A)文件B)属性C)方法D)窗体8.以下不属于同类的是 A 。
A)Click 单击(事件)B)Name 名称（属性）C)Caption 标题（属性）D)Top （属性）9.当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是 B 。
P21A)AutoSize属性B)Resize事件C)AutoRedraw属性D)Stretch方法10.对象可以识别和响应的某些行为称为 D 。
P22-23A)属性B)方法C)继承D)事件11.与传统的程序设计语言相比，Visual Basic最突出的特点是 C 。
P5A)结构化程序设计B)程序开发环境C)事件驱动编程机制D)程序调试技术12.在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1（1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别
为"学分等级"和"帮助"，名称分别为vbMenu和vbHelp，其中"学分等 级"菜单包括"等级A"、"等级B"、"等级C"三个子菜单，名称分别为 vbMenu1、vbMenu2、vbMenu3。要求程序运行后，如果在"学分等级"的下 拉菜单中选择"等级A"，则在文本框内显示："85分以上"；如果选择 "等级B"，则在文本框内显示："75分至85分"；如果选择"等级C"， 则在文本框内显示："60分至75分"（要求：不能使用任何变量，直接显 示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。
*********************************************************************** （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但 不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2， 标题分别为"英语班"和"计算机班"；一个名称为C1、标题为"确定" 命令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则 在文本框中显示："报名参加英语班"；如果只选中Ch2，单击"确定"命 令按钮，则在文本框中显示："报名参加计算机班"；如果同时选中 Ch1 和Ch2，然后单击"确定"命令按钮，则在文本框中显示："报名参加英语 班和计算机班"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则 在文本框中什么都不显示。 2（1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分
别为"商品类别"、"帮助"，名称分别为vbMenu和vbHelp，其中"商 品类别"菜单包括"百货"、"食品"、"家电"三个子菜单，名称分别 为vbMenu1、vbMenu2、vbMenu3。程序运行后，如果在"商品类别"的下拉 菜单中选择"百货"，则在文本框内显示："大类核算"；如果选择"食 品"，则在文本框内显示："中类核算"；如果选择"家电"，则在文本 框内显示："小类核算"（要求：不能使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。
*********************************************************************** （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但 不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2， 标题分别为"爱心社"和"学通社"。要求程序运行后，如果只选中Ch1， 单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后 单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中 Ch1 和 Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果 Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。 3（1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在 List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect 属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题 为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将 List1 中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消 息框提示"请选择至少两项"。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名 为wy1.vbp。
********************************************************************** （2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用 户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名 为wy2.vbp。 4 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2， 标题分别为"羽毛球"和"乒乓球"；一个名称为C1、标题为"确定"的命 令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则在 文本框中显示："报名参加羽毛球比赛"；如果只选中Ch2，然后单击"确 定"命令按钮，则在文本框中显示："报名参加乒乓球比赛"；如果同时选 中Ch1和Ch2，单击"确定"命令按钮，则在文本框中显示："报名参加羽毛 球和乓乓球比赛"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮，则 在文本框中什么都不显示。
Option Explicit Private Sub C1_Click() Text1.Text = "" If Ch1.Value And Not Ch2.Value Then Text1.Text = "报名参加羽毛球比赛" If Ch1.Value = False And Ch2.Value Then Text1.Text = "报名参加乒乓球比赛" If Ch1.Value And Ch2.Value = Then Text1.Text = "报名参加羽毛球和乒乓球比赛"
End Sub 5（1）在窗体上建立一个名称为Text1的文本框。然后建立两个主菜单，其标题
分别为"颜色"、"帮助"，名称分别为vbColor和vbHelp。其中"颜色" 菜单包括"红色"、"蓝色"、"黄色"三个子菜单项，名称分别为 red、 blue、yellow。程序运行后，如果单击"红色"菜单项，则文本框内显示 小写字母串"red"；如果单击"蓝色"菜单项，则在文本框内显示小写字 母串"blue"；如果单击"黄色"菜单项，则在文本框内显示小写字母串 "yellow"（要求：不能使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名 为wy5.vbp。
*********************************************************************** （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的， 请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但 不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名称为Text1的文本框，还有两个名称分别为Ch1和Ch2，标 题分别为"程序设计"和"数据库原理"的复选框，一个名称为C1，标题 为"确定"的命令按钮，编写适当的事件过程。要求程序运行后，如果只 选中Ch1，然后单击"确定"命令按钮，则在文本框中显示"学习程序设计" 如果只选中Ch2，然后单击"确定"命令按钮，则在文本框中显示"学习数 据库原理"；如果同时选中Ch1和Ch2，然后单击"确定"命令按钮，则在 文本框中显示："学习程序设计和数据库原理"；如果Ch1和Ch2都不选， 然后单击"确定"命令按钮，则在文本框中什么都不显示。
答案：第一题：
新建一个工程，双击控件面板上的"TextBox"控件，在窗体Form1上自动添加一个"名称"为"Text1"的文本框，在属性页上把"Text"属性设为""，单击标准工具栏上的"菜单编辑器"按钮，通过单击"下一个"按钮切换，分别在"标题框"和"名称框"中输入题面中要求的菜单名称及标题。再选中要设置成子菜单的项目，并单击向右的箭头，设置成主菜单的二级菜单。单击"查看代码"按钮，输入以下代码： Private Sub blue.Click() Text1.Text = "blue" '或 Text1.Text = blue.Caption End Sub Private Sub red.Click() Text1.Text = "red" '或 Text1.Text = red.Caption End Sub Private Sub yellow.Click() Text1.Text = "yellow" '或 Text1.Text = yellow.Caption End Sub 单击标准工具栏中的"保存工程"按钮，选择考生文件夹，以文件名wy5.frm，wy5.vbp分别保存。 第二题： 选择"打开工程"命令，选择考生文件夹下的wy6.vbp文件，打开，右键单击Form1窗体，选择"查看代码"选项，在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），修改后正确的程序代码如下： Private Sub C1_Click() Text1.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "程序设计" End If If Ch2.Value Then If Text1.Text <> "" Then Text1.Text = Text1.Text + "和" Text1.Text = Text1.Text + "数据库原理" End If If Text1.Text <> "" Then Text1.Text = "学习" + Text1.Text End If End Sub