《浙江省计算机二级VB上机考试设计题及答案.doc》由会员分享，可在线阅读，更多相关《浙江省计算机二级VB上机考试设计题及答案.doc（35页珍藏版）》请在课桌文档上搜索。
1、-B程序设计题程序设计011、在窗体上放置一个命令按钮，命名为CmdMa*Size.2、取消窗体Form的最大化和最小化按钮3、当单击CmdMa*Size按钮时，实现窗口放大功能，放大后再单击该按钮则复原窗口。4、同时可能使用热键Alt+L和Alt+B实现窗口放大或复原。5、当窗体大小改变后，总是让CmdMa*Size按钮位于窗口的中央。6、界面及功能设计请参考c*01.e*e文件。程序设计021、窗体上有三个文体框，上面两个分别用于输入商品单价和商品数量，单击“计算，将应付款显示在下面一个文本框中。2、最下面一个文本框不能直接输入。3、单击“清空按钮，三个文本框容被清空，同时第一个文本框获得
2、焦点。4、界面及功能设计请参考c*02.e*e文件。程序设计031、按照C*.e*e所示在窗体上放置按钮和控件。2、当单击“确定按钮后，首先比拟“用户名和“原始密码是否一致，假设一致且都为“admin，则继续执行步骤4；否则弹出消息框，提示用户出错，并让用户重新输入。3、比拟“新密码N和“新密码S，假设两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。4、所有消息框按C*.e*e所示设计。5、当单击“取消按钮时，程序终止执行。6、当按“Tab键时，保证按照“用户名、“原密码、“新密码N、“新密码S、“确定按钮和“取消按钮顺序访问各控件。7、界面及功能设计请参考
3、c*03.e*e文件。程序设计041、在窗体上放置4个单项选择按钮，分别用于显示星期、年份、月份和日期。2、在窗台上放置一个文本框，选中单项选择按钮时，显示相应的信息。3、在窗体上放置一个命令按钮，单击按钮时退出应用程序。4、界面及功能设计请参考c*04.e*e 文件。程序设计051、单击“坐标系按钮，将图片框的坐标系统设置为原点在中央，*轴-10,10，y 轴-10,10，并画出该坐标系统；2、单击“扇形按钮,在图片框中画一个圆心在原点，半径为5,圆周为红色，线宽为2，部为绿色，起始角为/6，终止角为5/6的扇形；3、界面及功能设计请参考c*05.e*e文件。程序设计061、按照c*06.e
4、*e所示在窗体上放置按钮和控件。2、在输入或修改单科成绩的同时计算平均分，即在“高数、“英语和“计算机文本框容发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。3、“平均成绩文本框不允许编辑，即不能手工修改。4、各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。5、界面及功能设计请参考c*06.e*e文件。程序设计071、窗体上三个文本框，上面两个用输入加数，单击“=按钮，将两个数的和显示在下面一个文本框中。2、三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进展编辑操作。3、设置相关属性使得上面两个文本框均不承受非数字键。
5、4、单击“清空按钮，三个文本框容被清空，同时第一个文本框得焦点。5、界面及功能设计请参考c*07.e*e文件。程序设计081、左边一个简单组合框，对文本框的字体进展设置；2、右边一个简单组合框，对文本框的文字大小进展设置；3、文本框中文字为“心想事成4、界面及功能设计请参考c*08.e*e文件。程序设计091、单击“添加按钮，将本文框中的容加到列表框中的第一项，如果文本框有容,则给出提示“没有容，不予贴加2、单击“删除按钮，将选红表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的工程。3、界面及功能设计请参考c*09.e*e文件程序设计101、在窗体上放置两个列表框控件，在它的Iis
6、t中输入一些容。2、当单击“ 按钮时，把Iist2中的一项放到list1中，并且在list2中删除该项。3、当单击“ 按钮时，把list2中选中的一项放到list2中，并且在list1中，并且在list1中删除该项。5、当单击“按钮时，把list1中所有的项放到list2中，并且清空list1。6、当单击“结素“按钮时，退出应用程序。7、界 面及功能设计请参考c*10.e*e文件。程序设计111、窗体上有二个CheckBo*，当这两个选项未被选定时，它们所在框架的其它控件不能使用。2、如果单击“确定按钮，则在按钮下面的标签中显示用户所选择的信息。3、界面及功能设计请参考c*11.e*e文件。程
7、序设计121、按照c*12.e*e所示在窗体上放置按钮和控件。2、在“请输入文本框中输入一个数字后，单击判断，可在“结果为显示判断结果。3、假设输入的不是数字，则弹出消息框，提示信息是“输入的不是数字，无法计算。4、界面及功能设计请参考c*12.e*e文件。程序设计131、可以在查找文本框中输入查找文字；2、可以在替换为文本框中输入替换文字；3、单击“替换按钮，对文本框Te*t1中与查找容匹配的文字进展替换操作；4、文本框Te*t1可以多行显示文字；5、界面及功能设计请参考c*13.e*e文件。程序设计141、在窗体上创立一个label1控件用于显示程序名“简单动画2、在窗体上创立一个labe
8、l2的控件数组，数组长度为6，用于显示动画图象“-3、在窗体上放置timer控件，用它来控制label2上的图象位置的变化。4、单击“开场按钮时label2上的图象开场移动，单击“完毕按钮图象停顿移动，设置每一秒移动一个箭头。5、界面及功能设置请参考c*14.e*e文件。程序设计151、单击“开场按扭,标签“祝您考试成功文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开场按扭变为“停顿按扭。2、单击“停顿按扭，标签“祝您考试成功文字停顿滚动。同时“停顿按扭变为“开场按扭。3、要求程序开场运行时，标签文字的字体为“宋体、字
9、形为“粗体、大小为“二号。4、定时器的时间间隔为.秒。5、界面及功能设计请参考c*15.e*e文件。程序设计161、单击“开场按钮，标签“欢送光临文字在定时器控制下字号自动增加2。同时“开场按钮变为“停顿按钮。2、单击“停顿按钮，标签“欢送光临文字停顿放大。同时“停顿按钮变为“开场按钮。3、要求标签文字在放大时保持水平居中。4、定时器的时间间隔为0.2秒。5、界面及功能设计请参考c*16.e*e文件。程序设计171、水平滚动条的取值围12，72。改变滚动条可以控制标签文字的大小，并同时在文本框中显示标签的字号；2、标签文字为“心想事成，要求在改变字号时标签保持在窗体中水平居中；3、文本框最多承
10、受两个字符，当输入一个12，72的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置；4、界面及功能设计请参考c*17.e*e文件。程序设计181、在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。2、单击滚动条左右箭头时，标签上的字可以左右移动，标签移动围等于滚动条的围。3、界面及功能设计请参考c*18.e*e文件。程序设计191、窗体上引入一个红色的圆形形状控体，圆的直径为3400Twips。2、水平滚动条的最大值与圆的直径一样，初始值为最大值，SmallChange和LargeChange均为100Twips.3、改变条的值可以控制圆形的直径，同时在标签Labe1
11、2中动态显示圆形的直径。4、要求圆形的直径在变化时要保持圆形的位置不变。5、界面及功能设计请参考c*19.e*e文件。程序设计201、窗体上放置两个文本框，分别用于输入身高和体重。2、设置相关属性使得两个文本框文字对起方式均为右对起，最多承受3个字符，不承受数字键。3、单击“安康状况按纽，根据计算公式分别将提示信息显示在Labe15中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养；其他为正常，提示“正常，继续保持。4、界面及功能设计请参考c*20.e*e文件。程序设计211、设计2个定时器，一个用
12、于控制时间显示，时间间隔为一秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。2、标签Labell用于显示时间，宋体，粗体，斜体，二号，背景白色，字体居中对齐，固定边框。3、在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背风光用红白两色交替变换。4、界面及功能设计请参考c*21.e*e文件。程序设计221、当在文本框中输入密码“1234567，并按回车后，显示标签labe12为“欢送光临！。如果输入的密码与“1234567不吻合，显示标签Labe12为“密码不符，请再输入一遍！，同时清空文本框的容，允许再输入一遍；如果第二
13、次输入的密码仍然与“1234567不吻合，显示标签Labe12为“非法用户，请退出程序！，文本框就不能使用了。2、文本框中输入的字符显示为*，并且最多可以承受7个字符。3、标签控件Labe12的文字对齐方式为居中对齐，文字颜色红色，宋体、常规、三号；标签的大小随字体自动调整，一开场不可见。4、界面及功能设计请参考c*22.e*e程序设计231、窗体上放置驱动器列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联动。2、设置文件列表框只显示*.bap 和*.jpg类型的图片文件。3、编写相关代码使得单击文件列表框上的图片文件名时，图片显示在图片框中4、界面及功能设计请参考c*23.
14、e*e文件。程序设计24 1、文件列表框能过滤文本文件。2、当单击*文本文件名后，在Te*tl显示文件名包括路径，在Te*t2显示该文件容。3、当单击*文件文件名后，调用记事本程序对文件文件进展编辑。4、界面及功能设计请参考c*24.e*e文件。程序设计251、窗体上引入一个通用对话框控件。2、单击菜单“字体，通用对话框，并对文本框字体进展修饰。3、单击菜单“文字颜色，通用对话框控件显示为颜色对话框，并对文体框文字颜色进展修饰。4、单击菜单“背景颜色，通用对话框控件显示为颜色对话框，并对文本框背景颜色进展修饰。5、文本框设计为带垂直滚动条。6、界面及功能设计请参考c*25.e*e文件。程序设计
15、261、设计4个命令按钮，分别实现“复制、“剪切、“粘贴和“删除功能；2、文本框Te*t1可以多行显示文字；3、界面及功能设计请参考c*26.e*e文件。程序设计271、在窗体上放置一个文本框控件数组，用于输入用户信息。2、在文本框控件数组中输入相应信息后，点击“添加后在组合框中会出现该项的。3、在组合框中选中*项，可以在文本框数组中显示该项的用户信息，点击“删除，可以删除该项的所有信息。4、界面及功能设计请参考c*27.e*e文件。程序设计28 1、“菜单框架中由复选框数组提供选择三种套餐，右边的文本框数组中可以输入数量；2、要求文本框只能承受数字键；并且只有选取了相应的套餐后才可以进展输入
16、，3、单击“确定按钮，统计点餐的金额，并用消息框显示出来；4、界面及功能设计请参考c*28.e*e文件。程序设计291、窗体的右部是图片框，可以用鼠标左键进展绘图。2、“选项框中有两个单项选择钮控件，选择“细时，绘图的线宽设置为1，选择“粗时，绘图的线宽设置为5。3、“选项框中的“颜色按钮翻开通用对话框为颜色对话框，并设置绘图的颜色。4、“选项框架中的“去除按钮用于去除图片框中的容。5、界面及功能设计请参考c*29.e*e.文件。程序设计301、框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进展修饰。2、框架Frame2中有一个单项选择钮数组，可以选择宋体或楷体对标签中的
17、文字进展修饰。3、标签Labe11的文字容为“Visual Basic程序设计。宋体，常规，三号；文字对齐方式为居中。4、界面及功能设计请参考c*30.e*e文件。程序设计311、单击“开场计时按钮后,程序根据选择的时间开场倒计时，命令按钮变为不可使用。2、倒计时过程是将剩余的时间显示在标签Labell中，直到0分0秒为止，改为显示“时间到！：3、框架“选择时间有一组单项选择钮控件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。4、界面及功能设计请参考c*31.e*e文件。程序设计321、要求命令按钮数组构成数字键，单击数字按钮，将拨号的容显示在文本框Te*t1中；2、单击“重
18、拨“按钮，再现原来的拨号过程：提示：再现过程由定时器实现3、定时器的时间间隔为0.5秒；4、文本框最多承受10个字符：宋体，粗体，三号，兰色号；5、界面及功能设计请参考c*32.e*e文件。程序设计331、在窗体上放置一个“三原色配比与预览的框架，框架有三个水平滚动条构成的控件数组，滚动条的取值围为0255；还有一个长方形形状控件。2、拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。3、单击“应用按钮，将调配好的颜色作为标签文字“坚持就是胜利！的文字颜色。4、标签文字“坚持就是胜利！字体为“楷体GB2312。大小“二号，设置相关属性使得标签在窗体中水平居
19、中并且标签的大小随显示容自动调整。5、界面及功能设计请参考c*33.e*e文件。程序设计341、程序启动后窗体正中央有一个直径为500Twips的红色圆球。2、第一次单击菜单“启动，圆球先向右上角方向运动，碰壁后改变方向。水平、垂直方向的移动速度均为100Twips/间隔。3、单击菜单“停顿，圆球停顿运动，再单击菜单“启动，圆球继续运动。4、定时器时间间隔为0.1秒。5、界面及功能设计请参考c*34.e*e文件。程序设计01题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1mand1Capti
20、on最大化(&L)二、根据题意，对命令按钮mand1的Click事件编写如下事件过程代码：Private Sub mand1_Click() If mand1.Caption = 最大化(&L) Then Form1.WindowState = 2 mand1.Caption = 复原(&B)Else Form1.WindowState = 0mand1.Caption = 最大化(&L) End Ifmand1.Left = (Form1.Width - mand1.Width) / 2mand1.Top = (Form1.Height - mand1.Height) / 2End Sub程
21、序设计02题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Te*t1te*t空Te*t2te*t空Te*t3te*t空EnabledFalseLabel1Caption商品单价：Label2Caption商品数量：Label3Caption应付款：mand1Caption去除mand2Caption计算二、根据题意，对命令按钮mand1的Click事件和mand2的Click事件编写如下事件过程代码：Private Sub mand1_Click()Te*t1.Te*t = Te*t1.SetFocusTe*t2.Te*t
22、= Te*t3.Te*t = End SubPrivate Sub mand2_Click()Dim a, b, sum As IntegerTe*t3.Enabled = Truea = Val(Te*t1.Te*t)b = Val(Te*t2.Te*t)sum = a * bTe*t3.Te*t = sumEnd Sub程序设计03题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Te*t1te*tTabInde*0Te*t2te*tPassWordChar*TabInde*1Te*t3te*tPassWordChar*T
23、abInde*2Te*t4te*tPassWordChar*TabInde*3Label1Caption用户名Label2Caption原密码Label3Caption新密码Label4Caption新密码mand1Caption确定TabInde*4mand2Caption取消TabInde*5二、根据题意，对命令按钮mand1的Click事件和mand2的Click事件编写如下事件过程代码：Private Sub mand1_Click()If Te*t1.Te*t = admin And Te*t2.Te*t = admin ThenIf Te*t3.Te*t = Te*t4.Te*t
24、Then B=MsgBo* (密码修改成功!, ,修改密码)Else B=MsgBo*(新密码有误，请重试, , “修改密码)Te*t3.Te*t = Te*t4.Te*t = End If Else B=MsgBo*( 用户名或密码无效，请重试！, , “修改密码)Te*t1.Te*t = Te*t2.Te*t = End IfEnd SubPrivate Sub mand2_Click()endEnd Sub程序设计04题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Option1Caption显示星期几Optio
25、n2Caption显示年份Option3Caption显示月份Option4Caption显示日期Te*t1te*tmand1Caption完毕二、根据题意，对命令按钮mand1的Click事件编写如下事件过程代码：Private Sub mand1_Click()EndEnd SubPrivate Sub Option1_Click()Te*t1.Te*t = 今天是星期 & Str(Weekday(Date)End SubPrivate Sub Option2_Click()Te*t1.Te*t = 今天是 & Str(Year(Date) &年 End SubPrivate Sub Op
26、tion3_Click()Te*t1.Te*t = 今天是 & Str(Month(Date) &月 End SubPrivate Sub Option4_Click()Te*t1.Te*t = 今天是 & Str(Day(Date) &号 End Sub程序设计05题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1Caption作图mand1Caption坐标系mand2Caption扇形mand3Caption完毕二、根据题意，对命令按钮的Click事件编写如下事件过程代码：注：因此题单位不明确，故对*轴、
27、y轴和圆半径乘以100后按默认单位处理Const PI = 3.1415926Private Sub mand1_Click() Picture1.Scale (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, -10)-(0, 10) Picture1.Current* = 0 Picture1.CurrentY = 0 Picture1.Print (0,0)End SubPrivate Sub mand2_Click() Picture1.FillStyle = 0 Picture1.FillColor
28、 = vbGreen Picture1.DrawWidth = 2 Picture1.Circle (0, 0), 5, vbRed, -PI / 6, -5 * PI / 6End SubPrivate Sub mand3_Click() EndEnd Sub程序设计06题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Label1Caption高数Label2Caption英语Label3Caption计算机Label4Caption平均成绩Te*t1Te*tTe*t2Te*tTe*t3Te*tTe*t4Locked
29、True二、根据题意，对文本te*t1，te*t2，te*t3的Change事件编写如下事件过程代码：Private Sub Form_Load()Te*t1.Te*t = Te*t2.Te*t = Te*t3.Te*t = Te*t4.Te*t = End SubPrivate Sub Te*t2_Change() If Val(Te*t2.Te*t) 0 Then Te*t4.Te*t = Trim(Str(Val(Te*t1.Te*t) + Val(Te*t2.Te*t) + Val(Te*t3.Te*t) / 3) End IfEnd SubPrivate Sub Te*t3_Chan
30、ge() If Val(Te*t3.Te*t) 0 Then Te*t4.Te*t = Trim(Str(Val(Te*t1.Te*t) + Val(Te*t2.Te*t) + Val(Te*t3.Te*t) / 3) End IfEnd SubPrivate Sub Te*t1_Change() If Val(Te*t1.Te*t) 0 Then Te*t4.Te*t = Trim(Str(Val(Te*t1.Te*t) + Val(Te*t2.Te*t) + Val(Te*t3.Te*t) / 3) End IfEnd SubPrivate Sub Te*t1_KeyPress(KeyAs
31、cii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(9) Or KeyAscii Asc(9) Or KeyAscii Asc(0) Then MsgBo* 不能输入非数字字符 KeyAscii = 0 End IfEnd Sub程序设计07题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1Caption加法器Label1Caption+mand1Caption=mand2Caption清空Te*t1、Te*t2、Te*t3Caption清空Alignment1
32、-Right JustifyTe*t3LockedTrue二、根据题意，对各命令按钮的Click事件和各文本框的Change事件编写如下事件过程代码：Private Sub mand1_Click() Te*t3.Te*t = Trim(Str(Val(Te*t1.Te*t) + Val(Te*t2.Te*t)End SubPrivate Sub mand2_Click() Te*t3.Te*t = Te*t2.Te*t = Te*t1.Te*t = Te*t1.SetFocusEnd SubPrivate Sub Form_Load() Te*t3.Locked = TrueEnd SubP
33、rivate Sub Te*t1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd SubPrivate Sub Te*t2_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd Sub程序设计08题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1caption字体设置窗体中各控件的位置按样例画好MinButt
34、onFalseMa*ButtonFalseTe*t1Te*t心想事称bo1Style1-simple boTe*tbo2Style1-simple boTe*t二、根题意，编写如下事件过程代码：Private Sub Form_Load()bo1.AddItem 宋体bo1.AddItem 黑体bo1.AddItem 楷体_GB2312bo2.AddItem 8bo2.AddItem 9bo2.AddItem 10bo2.AddItem 11bo2.AddItem 12bo2.AddItem 14bo2.AddItem 16End SubPrivate Sub bo1_Click()Te*t1
35、.FontName = bo1.Te*tEnd SubPrivate Sub bo1_Click()Te*t1.FontSize = Val(bo2.Te*t)End Sub程序设计09题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1caption添加和删除窗体中各控件的位置按样例画好MinButtonFalseMa*ButtonFalseTe*t1Te*tList1mand1Caption添加mand2caption删除二、根题意，编写如下事件过程代码：Private Sub mand1_Click()If
36、 Te*t1.Te*t = Then MsgBo* (没有容，不予添加)ElseList1.AddItem Te*t1.Te*t, 0End IfEnd SubPrivate Sub mand2_Click()If List1.ListInde* = -1 Then MsgBo* (请选择输出的工程)ElseList1.RemoveItem List1.ListInde*End IfEnd SubPrivate Sub Form_Load()List1.AddItem WordList1.AddItem E*celList1.AddItem PowerPointList1.AddItem Ou
37、tlookEnd Sub程序设计10题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注List1list111,222增加列表项List2list333,444增加列表项mand1captionmand2captionmand3captionmand4caption 0 List2.AddItem List1.List(0) List1.RemoveItem 0 WendEnd SubPrivate Sub mand3_Click() While List2.ListCount 0 List1.AddItem List2
38、.List(0) List2.RemoveItem 0 WendEnd SubPrivate Sub mand4_Click() If List2.ListInde* = -1 Then MsgBo* 请选择一列表项 Else List1.AddItem List2.List(List2.ListInde*) List2.RemoveItem List2.ListInde*End IfEnd SubPrivate Sub mand5_Click() EndEnd SubPrivate Sub Form_Load() List1.AddItem 111 List1.AddItem 222 Lis
39、t2.AddItem 333 List2.AddItem 444End Sub程序设计11题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1Frame1Caption计算机Label1caption品牌：bo1te*t联想list联想，戴尔，正方Label2Caption数量：Te*t1te*tFrame2Caption操作系统Option1CaptionWindows2000Option2CaptionWindows98mand1Caption 确定二、根据题意，对命令按钮mand1的
40、Click事件、复选框check的click事件和窗体的load事件编写如下事件过程代码：Private Sub Check1_Click()If Check1.Value = 1 Thenbo1.Enabled = TrueTe*t1.Enabled = TrueElsebo1.Enabled = FalseTe*t1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenOption1.Enabled = TrueOption2.Enabled = TrueElseOption1.Enabled = FalseOption2.Enabled = FalseEnd IfEnd SubPrivate Sub mand1_Click()If Check1.Value = 1 ThenLabel3.Caption = bo1.Te*t & Chr(13) & Chr(10) & Te*t1.Te*t & Chr(13) & Chr(10)End IfIf Check2.Value = 1 ThenIf Option1.Value ThenLabel3
