单选按钮复选框--答案 VB等级考试复习
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
VB单选按钮和复选框练习
VB单选按钮和复选框练习练习十一（单选按钮和复选框）一、填空题：1、单选按钮的重要属性Value其数据是_________类型，当选中时其值为_______，未选中时值为_____。
2、在窗体中的单选按钮一般情况下只能一个被选中，如果要同时选中多个时要使用_______控件进行分组。
在进行“分组”时必须选放置__________控件，然后在其中拖放__________控件。
3、复选框的重要属性Value其数据是__________类型，它可以取____________值。
当未选时其值为______，选中是其值为_________。
复选框与单选按钮的最大区别是____________。
选择字体风格（粗体、斜体、下划线）应使用_________（单选钮或复选框）控件，选择字体应使用_________（单选钮或复选框）控件。
二、选择题：1、复选框的Value属性可以有（）个值。
A．1个B．2个C．3个D．没有限止2、判断某个单选按钮是否被选中是通过其（）属性。
A．Caption B．Value C．Name D．Index3、单选按钮的Click事件是在下列任种情况下才会被触发。
（）A．单击选中时B．单击取消时C．只要单击时D．单击命令按钮三、编写一个简单的个人情况表单，界面如下：界面1 界面2当填写界面1后，单击“提交”按钮，显示界面2。
当单击“返回”按钮返回界面1。
试运行程序四、编写一个绘图程序，界面如下：界面有一个图片框，和两组单选按钮，一组复选框。
单击其中一项图形发生相应的改变。
当选择绘直线和圆时，“填充”复选框应该不可见。
试运行程序。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（slider）、时钟、图形控件；2.学习在表单中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4.学习编写每个控件、鼠标和键盘的事件过程。
二、实验内容1、单选按钮、复选框、框架1）将表格F1的标题设置为“复选框、框架和单选按钮”；将表格中复选框ch1、ch2ch1和CH2的高度和宽度分别设置为360和1000；程序运行时，check2处于非零状态。
FR1帧包含单选按钮OP1和op2。
2）设计窗体，要求①标题为“设置字体”；② 带边框的标签控件Label1以表格形式设置，高度和宽度分别为450和3800，标题为“欢迎VB”，字体大小为“4”，并显示在中间；③标题为“字体”框架包含两个标题分别为“楷体_gb2312”和“华文新魏”的单选按钮op1和op2；④ 标题为“Italic”的框架包含两个标题为“是”和“否”的单选按钮。
⑤ 编写相应控件的事件进程，使程序运行时，点击“Kaiti_gb2312”，标签控件的字体为Kaiti_gb2312，点击“Chinese New Wei”，标签控件的字体为Chinese New Wei；单击Yes，label控件的字体将为斜体。
单击“否”取消标签控件字体的斜体化。
privatesuboption1_click()标签1。
fontname=option1。
说明文字endsubprivatesuboption2_uu单击（）label1.fontname=option2.captionendsubprivatesuboption3_click()label1.fontitalic=trueendsubprivatesuboption4_click()label1.fontitalic=falseendsub3）在窗体是设置设置框text1，其中文字为：黑体、四号、居中；设置单选按钮option1和option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
9月计算机二级《VB》考题与答案
9月计算机二级《VB》考题与答案2016年9月计算机二级《VB》考题与答案1[单选题] 一问宿舍可住多个学生，则实体宿舍和学生之间的联系是()。
A.一对一B.一对多C.多对一D.多对多参考答案：B2[单选题] 有如下数据定义语句：Dim X，Y As Integer以上语句表明()。
A.x、Y均是整型变量B.x是整型变量，Y是变体类型变量C.X是变体类型变量，Y是整型变量D.x是整型变量，Y是字符型变量参考答案：C参考解析：用Dim可同时定义多个变量，但变量要l分别声明其数据类型，如果不声明数据类型，默认是Variant变I体型变量。
l本题中，变量x定义时没声明数据类型，所以为Variant型I变量，变量Y是整型变量。
故c选项正确。
3[单选题] 以下关于单选按钮和复选框的叙述中，正确的是A.单选按钮和复选框都能从多个选项中选择一项B.单选按钮和复选框被选中时，选中控件的Value属性值为TrueC.是否使用框架控件将单选按钮分组，对选项没有影响D.是否使用框架控件将复选框分组，对选项没有影响参考答案：D参考解析：复选框按钮可以同时选择多个，而在一组单选按钮中，只能选择其中的一个。
单选按钮被选中时，其Val-He属性值为True，如果没有被选中其Value值为False，复选框的Value属性可以设置为0、1和2，分别代表没选中、选中和禁用。
单选按钮一般用框架进行分组，每个框架内的单选按钮的操作不影响其他组的按钮，而复选框是否分组对选项没有影响。
4[单选题] 以下不可以作为“容器”的控件是A.图片框B.图像框C.框架D.窗体参考答案：B参考解析：图片框、框架和窗体控件可以作为容器.图像框控件不可以。
选B.。
5[单选题]输入VisualBasic源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用A.冒号(：)B.分号(;)C.下划线(-)D.连字符(-)参考答案：A参考解析：输人VisualBasic源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用冒号(：)。
VB复习题(含答案)
VB复习题允许上机调试一、选择题1 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C）Else分支D) 程序出错4 以下关于MsgBox的叙述中，错误的是 D （见书P88-92）A）MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 DA）Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时，它的V alue属性的值是 CA) 3 B) 2 C) 1（复选框被选中显示1，不选中显示0）D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7，以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）VVV B) Vis C) sic D) 1113设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句，窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为 CA）13 B）14 C）27 D）1520 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）1 2 B） 1 2 3 C) 3 4 5 D）4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。
VB单选钮和复选框列表框组合框多窗体和菜单-2022年学习资料
单选按钮与复选框-功能1：运行程序时设置abe文字-类型为宋体，16号字-Private Sub Form Load-Label1.FontName="宋体"-Label1.FontSize 16-End Sub
单选按钮与复选框-功能2：实现框架frame1中字体设-置功能。-Private Sub Option1 lick-Label1.FontName Option1.Caption-End Sub-Private ub Option2 Click-Label1.FontName Option2.Caption
列表框与组合框-ListBox-■主要属性：-■tXt属性：用于存放被选中列表项的文本-内容。-Priva e Sub-Command1 Click-Labell.Caption List1.Text-End Su
列表框与组合框-■-列表框ListBox-■主要方法：-■AddItem：用于将项目添加到列表框控件-语法 式：-对象名〉.AddItem item[,index]-其中：item:为字符串表达式，-表示要加入的项 。-Index:决定新增项目的位置，缺省，-则添加在最后。
Optionl,-单选按钮与复选框-0 ption3的value-设置为true-■使用范例控件属性说明件类型-OptionButton-名称：option1-Caption:宋体-frame1-名称：opti n2 Caption:隶书-名称：option3 Caption:16-名称：option4 Captio :24-frame3-CheckBox-名称：check1 Caption:斜体-frame2-名称：ch ck.2 Caption:粗体
单选按钮与复选框-功能3：实现框架frame3中字体大-小设置功能。-Private Sub Option Click-Label1.FontSize Option3.Caption-End Sub-Privat Sub Option4 Click-Label1.FontSize Option4.Caption
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
计算机二级VB(2)
T
上机真题
【例】捷成31-5 窗体上有两个标签L1和L2，标题分别为“口令”和“允许 次数”；一个命令按钮C1，标题为“确定”；两个文本框 名称分别为Text1和 Text2。 其中 Text1用来输入口令（输 入时，显示“*”），无初始内容； Text2的初始内容为3。 程序运行时，在 Text1中输入口令后，单击“确定”，如果 输入的是“123456”则在 Text1中显示“口令正确”；如果 输入其他内容，单击“确定”后，弹出如图所示的错误提 示对话框，并且Text2中的数字减1。最多可输入3次口令， 若3次都输入错误，则禁止再次输入。
考点4 MsgBox函数和MsgBox语句
MsgBox函数 1. 格式
MsgBox(msg,[, type][, title][, helpfile,context])
2. 返回值 对话框标题显 对话框中显示的 对话框类型，确定对话框 MsgBox 函数的返回值是一个整数，这个整数 提示信息，为一示的信息，为 的图标和按钮，为一个整 与所选择的按钮有关。 一字符串
Str1
Visual Basic 6.0
Num
2
变量/属性名＝表达式/属性值
将“=”右边的值赋 值给左边的变量或 对象的属性 1.赋值号左边只能是变量，不能是常量、常数符号或表达式
赋值语句
sin(x) = x + y 5 = sqr(s) + x + y x + y = 3
2.不能在一句赋值语句中给多个变量赋值
第六章 VB控制结构
1 2 3
顺序结构
选择结构
循环结构
顺序结构
顺序结构：无控制结构，程序按语句出现先后顺序 依次执行 语句 VB中默认一行为一条语句 多条语句写一行之间用冒号“ : ”分隔。 一条语句在多行显示，使用续行符“ _”。
vb常用控件--练习题(含答案)
1．下列控件中没有Caption属性的是________。
A）框架B）列表框C）复选框D）单选按钮2．复选框的Value 属性为1 时，表示________。
A）复选框未被选中B）复选框被选中C）复选框内有灰色的勾D）复选框操作有误3．用来设置斜体字的属性是________。
A）FontItalic B）FontBold C）FontName D）FontSize4．将数据项“China”添加到列表框List1中成为第二项应使用________语句。
A）List1.AddItem “China”,1 B）List1.AddItem “China ”, 2C）List1.AddItem 1,“China”D）List1.AddItem 2,“China ”5．引用列表框List1最后一个数据项，应使用________语句。
A）List1.List(List1.ListCount）B）List1.List(ListCount)C）List1.List(List1.ListCount-1）D）List1.List(ListCount-1)6．假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使用________语句。
A）List1.AddItem 3,“China ”B）List1.AddItem “China ”, List1.ListCount-1C）List1.AddItem “China ”, 3D）List1.AddItem “China”，List1.ListCount7．执行了下面的程序后，列表框中的数据项有________。
Private Sub Form_Click()For i = 1 to 6List1.AddItem iNext iFor i = 1 to 3List1.RemoveItem iNext iEnd SubA）1，5，6 B）2，4，6 C ）4，5，6 D）1，3，58．如果列表框List1中没有选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
国家二级VB机试(常用标准控件)模拟试卷31(题后含答案及解析)
国家二级VB机试（常用标准控件）模拟试卷31(题后含答案及解析) 题型有：1. 选择题选择题1．下面控件中，没有Caption属性的是( )。
A．复选框B．单选按钮C．组合框D．框架正确答案：C解析：Caption属性是设置或返回控件的标题。
组合框没有Caption属性。
故选C)。
知识模块：常用标准控件2．窗体上有名称为List1的列表框。
以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是( )。
A．List1．Addhem“Basic”B．List1．List(Listl．ListIndex)=“Basic”C．List1．Text=“Basic”D．以上都可以正确答案：B解析：AddItem用于将列表项添加到列表框。
Text属性是被选定的选项的文本内容。
列表框的List属性用来列出表项的内容，也可以改变数组中的已有值，属性ListIndex用于返回当前选择的列表项的索引号。
选项B)正确。
知识模块：常用标准控件3．如果在列表框List1中没有选中项目，则List1．ListIndex的值为( )。
A．一1B．0C．1D．2正确答案：A解析：列表框List1中没有选中项目，则List1．ListIndex的值为一1。
知识模块：常用标准控件4．在窗体上画一个名称为Listl的列表框，然后编写如下程序：Private Sub Form_Click( ) For i=l To 10 Item=“Item”&i Listl．AddItem Item Next i End Sub程序运行时，单击窗体，所完成的功能是( )。
A．向列表框中添加10个项目B．向列表框中添加11个项目C．向列表框中添加10个数字D．向列表框中添加1～10的和正确答案：A解析：Addhem为添加项目。
循环体执行10次，添加了10个项目。
选A)。
知识模块：常用标准控件5．列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是( )。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
71-1-(2)
Private Sub Op1_Click()
Text1.Text = "颐和园"
End Sub
Private Sub Op2_Click()
Text1.Text = "兵马俑"
End Sub
Private Sub Op3_Click()
Text1.Text = "西湖"
End Sub
54-1-(2)
Private Sub Op1_Click()
Text1.Text = "1"
End Sub
Private Sub Op2_Click()
Text1.Text = "2"
End Sub
Private Sub Op3_Click()
Text1.Text = "3"
End Sub
17-2-(2)
Private Sub C1_Click()
If Ch1.Value = 0 And Ch2.Value = 0 Then Text1.T ext = "我选的课是"
If Ch1.Value = 1 And Ch2.Value = 0 Then Text1.T ext = "我选的课是程序设计"
If Ch1.Value = 0 And Ch2.Value = 1 Then Text1.T ext = "我选的课是数据库原理"
If Ch1.Value = 1 And Ch2.Value = 1 Then Text1.T ext = "我选的课是程序设计数据库原理" End Sub
18-2-(1)
Private Sub C1_Click()
If Op1.Value = True Then Text1.Text = "我是男生"
If Op2.Value = True Then Text1.Text = "我是女生"
If Ch1.Value = 1 And Ch2.Value = 0 Then Text2.T ext = "我的爱好是体育"
If Ch2.Value = 1 And Ch1.Value = 0 Then Text2.T ext = "我的爱好是音乐"
If Ch1.Value = 1 And Ch2.Value = 1 Then Text2.T ext = "我的爱好是体育音乐"
End Sub。