浙江省计算机二级VB上机考试设计题及答案.doc
-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、单击“清空按钮,三个文本框容被清空,同时第一个文本框获得焦点。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、界面及功能设计请参考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*e所示在窗体上放置按钮和控件。2、在输入或修改单科成绩的同时计算平均分,即在“高数、“英语和“计算机文本框容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。3、“平均成绩文本框不允许编辑,即不能手工修改。4、各单科成绩框中只能输入数字,不能输入字母或汉字,否则不显示字母并发出错误提示音。5、界面及功能设计请参考c*06.e*e文件。程序设计071、窗体上三个文本框,上面两个用输入加数,单击“=按钮,将两个数的和显示在下面一个文本框中。2、三个文本框的对齐方式均为右对齐,设置相关属性使得下面一个文本框不能进展编辑操作。3、设置相关属性使得上面两个文本框均不承受非数字键。4、单击“清空按钮,三个文本框容被清空,同时第一个文本框得焦点。5、界面及功能设计请参考c*07.e*e文件。程序设计081、左边一个简单组合框,对文本框的字体进展设置;2、右边一个简单组合框,对文本框的文字大小进展设置;3、文本框中文字为“心想事成4、界面及功能设计请参考c*08.e*e文件。程序设计091、单击“添加按钮,将本文框中的容加到列表框中的第一项,如果文本框有容,则给出提示“没有容,不予贴加2、单击“删除按钮,将选红表项删除,如果没有选择要删除的表项,则给出提示“请选择输出的工程。3、界面及功能设计请参考c*09.e*e文件程序设计101、在窗体上放置两个列表框控件,在它的Iist中输入一些容。2、当单击“ <按钮时,把Iist2中的一项放到list1中,并且在list2中删除该项。3、当单击“ <<按钮时,把list1中,并且清空list2。4、当单击“>按钮时,把list2中选中的一项放到list2中,并且在list1中,并且在list1中删除该项。5、当单击“>>按钮时,把list1中所有的项放到list2中,并且清空list1。6、当单击“结素“按钮时,退出应用程序。7、界 面及功能设计请参考c*10.e*e文件。程序设计111、窗体上有二个CheckBo*,当这两个选项未被选定时,它们所在框架的其它控件不能使用。2、如果单击“确定按钮,则在按钮下面的标签中显示用户所选择的信息。3、界面及功能设计请参考c*11.e*e文件。程序设计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、在窗体上创立一个label2的控件数组,数组长度为6,用于显示动画图象“-à3、在窗体上放置timer控件,用它来控制label2上的图象位置的变化。4、单击“开场按钮时label2上的图象开场移动,单击“完毕按钮图象停顿移动,设置每一秒移动一个箭头。5、界面及功能设置请参考c*14.e*e文件。程序设计151、单击“开场按扭,标签“祝您考试成功文字在定时器控制下自动地从左向右移动,移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开场按扭变为“停顿按扭。2、单击“停顿按扭,标签“祝您考试成功文字停顿滚动。同时“停顿按扭变为“开场按扭。3、要求程序开场运行时,标签文字的字体为“宋体、字形为“粗体、大小为“二号。4、定时器的时间间隔为.秒。5、界面及功能设计请参考c*15.e*e文件。程序设计161、单击“开场按钮,标签“欢送光临文字在定时器控制下字号自动增加2。同时“开场按钮变为“停顿按钮。2、单击“停顿按钮,标签“欢送光临文字停顿放大。同时“停顿按钮变为“开场按钮。3、要求标签文字在放大时保持水平居中。4、定时器的时间间隔为0.2秒。5、界面及功能设计请参考c*16.e*e文件。程序设计171、水平滚动条的取值围12,72。改变滚动条可以控制标签文字的大小,并同时在文本框中显示标签的字号;2、标签文字为“心想事成,要求在改变字号时标签保持在窗体中水平居中;3、文本框最多承受两个字符,当输入一个12,72的两位整数后,也可以改变标签文字的大小,并同时调整水平滚动条的滚动框位置;4、界面及功能设计请参考c*17.e*e文件。程序设计181、在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。2、单击滚动条左右箭头时,标签上的字可以左右移动,标签移动围等于滚动条的围。3、界面及功能设计请参考c*18.e*e文件。程序设计191、窗体上引入一个红色的圆形形状控体,圆的直径为3400Twips。2、水平滚动条的最大值与圆的直径一样,初始值为最大值,SmallChange和LargeChange均为100Twips.3、改变条的值可以控制圆形的直径,同时在标签Labe12中动态显示圆形的直径。4、要求圆形的直径在变化时要保持圆形的位置不变。5、界面及功能设计请参考c*19.e*e文件。程序设计201、窗体上放置两个文本框,分别用于输入身高和体重。2、设置相关属性使得两个文本框文字对起方式均为右对起,最多承受3个字符,不承受数字键。3、单击“安康状况按纽,根据计算公式分别将提示信息显示在Labe15中。计算公式为:标准体重=身高-105;体重高于标准体重*1.1为偏胖,提示“偏胖,注意节食;体重低于标准体重*0.9为偏瘦,提示“偏瘦,增加营养;其他为正常,提示“正常,继续保持。4、界面及功能设计请参考c*20.e*e文件。程序设计211、设计2个定时器,一个用于控制时间显示,时间间隔为一秒;一个用于判断闹钟时间,时间间隔为0.5秒,并且在未输入闹钟时间前不可使用。2、标签Labell用于显示时间,宋体,粗体,斜体,二号,背景白色,字体居中对齐,固定边框。3、在文本框中输入闹钟时间并按回车后,启动判断闹钟时间的定时器,如果时间超过闹钟时间,则标签的背风光用红白两色交替变换。4、界面及功能设计请参考c*21.e*e文件。程序设计221、当在文本框中输入密码“1234567,并按回车后,显示标签labe12为“欢送光临!。如果输入的密码与“1234567不吻合,显示标签Labe12为“密码不符,请再输入一遍!,同时清空文本框的容,允许再输入一遍;如果第二次输入的密码仍然与“1234567不吻合,显示标签Labe12为“非法用户,请退出程序!,文本框就不能使用了。2、文本框中输入的字符显示为*,并且最多可以承受7个字符。3、标签控件Labe12的文字对齐方式为居中对齐,文字颜色红色,宋体、常规、三号;标签的大小随字体自动调整,一开场不可见。4、界面及功能设计请参考c*22.e*e程序设计231、窗体上放置驱动器列表框、目录列表框和文件列表框三个控件,设置属性使得三个控件能够联动。2、设置文件列表框只显示*.bap 和*.jpg类型的图片文件。3、编写相关代码使得单击文件列表框上的图片文件名时,图片显示在图片框中4、界面及功能设计请参考c*23.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文件。程序设计261、设计4个命令按钮,分别实现“复制、“剪切、“粘贴和“删除功能;2、文本框Te*t1可以多行显示文字;3、界面及功能设计请参考c*26.e*e文件。程序设计271、在窗体上放置一个文本框控件数组,用于输入用户信息。2、在文本框控件数组中输入相应信息后,点击“添加后在组合框中会出现该项的。3、在组合框中选中*项,可以在文本框数组中显示该项的用户信息,点击“删除,可以删除该项的所有信息。4、界面及功能设计请参考c*27.e*e文件。程序设计28 1、“菜单框架中由复选框数组提供选择三种套餐,右边的文本框数组中可以输入数量;2、要求文本框只能承受数字键;并且只有选取了相应的套餐后才可以进展输入,3、单击“确定按钮,统计点餐的金额,并用消息框显示出来;4、界面及功能设计请参考c*28.e*e文件。程序设计291、窗体的右部是图片框,可以用鼠标左键进展绘图。2、“选项框中有两个单项选择钮控件,选择“细时,绘图的线宽设置为1,选择“粗时,绘图的线宽设置为5。3、“选项框中的“颜色按钮翻开通用对话框为颜色对话框,并设置绘图的颜色。4、“选项框架中的“去除按钮用于去除图片框中的容。5、界面及功能设计请参考c*29.e*e.文件。程序设计301、框架Frame1中有一个复选框数组,可以选择粗体,斜体对标签中的文字进展修饰。2、框架Frame2中有一个单项选择钮数组,可以选择宋体或楷体对标签中的文字进展修饰。3、标签Labe11的文字容为“Visual Basic程序设计。宋体,常规,三号;文字对齐方式为居中。4、界面及功能设计请参考c*30.e*e文件。程序设计311、单击“开场计时按钮后,程序根据选择的时间开场倒计时,命令按钮变为不可使用。2、倒计时过程是将剩余的时间显示在标签Labell中,直到0分0秒为止,改为显示“时间到!:3、框架“选择时间有一组单项选择钮控件数组,分别选择不同的时间值。只有选择时间后,命令按钮才可以使用。4、界面及功能设计请参考c*31.e*e文件。程序设计321、要求命令按钮数组构成数字键,单击数字按钮,将拨号的容显示在文本框Te*t1中;2、单击“重拨“按钮,再现原来的拨号过程:提示:再现过程由定时器实现3、定时器的时间间隔为0.5秒;4、文本框最多承受10个字符:宋体,粗体,三号,兰色号;5、界面及功能设计请参考c*32.e*e文件。程序设计331、在窗体上放置一个“三原色配比与预览的框架,框架有三个水平滚动条构成的控件数组,滚动条的取值围为0255;还有一个长方形形状控件。2、拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值,配色通过形状控件的填充效果动态显示。3、单击“应用按钮,将调配好的颜色作为标签文字“坚持就是胜利!的文字颜色。4、标签文字“坚持就是胜利!字体为“楷体GB2312。大小“二号,设置相关属性使得标签在窗体中水平居中并且标签的大小随显示容自动调整。5、界面及功能设计请参考c*33.e*e文件。程序设计341、程序启动后窗体正中央有一个直径为500Twips的红色圆球。2、第一次单击菜单“启动,圆球先向右上角方向运动,碰壁后改变方向。水平、垂直方向的移动速度均为100Twips/间隔。3、单击菜单“停顿,圆球停顿运动,再单击菜单“启动,圆球继续运动。4、定时器时间间隔为0.1秒。5、界面及功能设计请参考c*34.e*e文件。程序设计01题解:一、根据题目要求,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1mand1Caption最大化(&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程序设计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 = "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*TabInde*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 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显示星期几Option2Caption显示年份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 Option3_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事件编写如下事件过程代码:注:因此题单位不明确,故对*轴、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 = 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*t4LockedTrue二、根据题意,对文本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_Change() 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(KeyAscii As Integer) If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then MsgBo* "不能输入非数字字符" KeyAscii = 0 End IfEnd SubPrivate Sub Te*t2_KeyPress(KeyAscii As Integer) If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then MsgBo* "不能输入非数字字符" KeyAscii = 0 End IfEnd SubPrivate Sub Te*t3_KeyPress(KeyAscii As Integer) If 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-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 SubPrivate Sub Te*t1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc(9) Then KeyAscii = 0 End IfEnd SubPrivate Sub Te*t2_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc(9) Then KeyAscii = 0 End IfEnd Sub程序设计08题解:一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1caption字体设置窗体中各控件的位置按样例画好MinButtonFalseMa*ButtonFalseTe*t1Te*t心想事称bo1Style1-simple boTe*tbo2Style1-simple boTe*t二、根题意,编写如下事件过程代码:Private Sub Form_Load()bo1.AddItem "宋体"bo1.AddItem "黑体"bo1.AddItem "楷体_GB2312"bo2.AddItem 8bo2.AddItem 9bo2.AddItem 10bo2.AddItem 11bo2.AddItem 12bo2.AddItem 14bo2.AddItem 16End SubPrivate Sub bo1_Click()Te*t1.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 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 "Word"List1.AddItem "E*cel"List1.AddItem "PowerPoint"List1.AddItem "Outlook"End Sub程序设计10题解:一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注List1list111,222增加列表项List2list333,444增加列表项mand1caption>mand2caption>>mand3caption<<mand4caption<mand5caption完毕二、根据题意,编写如下事件过程代码:Private Sub mand1_Click() If List1.ListInde* = -1 Then MsgBo* "请选择一列表项" Else List2.AddItem List1.List(List1.ListInde*) List1.RemoveItem List1.ListInde* End IfEnd SubPrivate Sub mand2_Click() While List1.ListCount > 0 List2.AddItem List1.List(0) List1.RemoveItem 0 WendEnd SubPrivate Sub mand3_Click() While List2.ListCount > 0 List1.AddItem List2.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" List2.AddItem "333" List2.AddItem "444"End Sub程序设计11题解:一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1Frame1Caption计算机Label1caption品牌:bo1te*t联想list联想,戴尔,正方Label2Caption数量:Te*t1te*tFrame2Caption操作系统Option1CaptionWindows2000Option2CaptionWindows98mand1Caption 确定二、根据题意,对命令按钮mand1的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