浙江省计算机二级VB上机考试设计题及答案

1、B程序设计题程序设计011、在窗体上放置一个命令按钮，命名为CmdMaxSize.2、取消窗体（Form）的最大化和最小化按钮3、当单击CmdMaxSize按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。4、同时可能使用热键Alt+L和Alt+B实现窗口放大或还原。5、当窗体大小改变后，总是让CmdMaxSize按钮位于窗口的中央。6、界面及功能设计请参考cx01.exe文件。程序设计021、窗体上有三个文体框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。2、最下面一个文本框不能直接输入。3、单击“清空”按钮，三个文本框内容被清空，同时第一个文

2、本框获得焦点。4、界面及功能设计请参考cx02.exe文件。程序设计031、按照Cx.exe所示在窗体上放置按钮和控件。2、当单击“确定”按钮后，首先比较“用户名”和“原始密码”是否一致，若一致且都为“admin”，则继续执行步骤4；否则弹出消息框，提示用户出错，并让用户重新输入。3、比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。4、所有消息框按Cx.exe所示设计。5、当单击“取消”按钮时，程序终止执行。6、当按“Tab”键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取

3、消”按钮顺序访问各控件。7、界面及功能设计请参考cx03.exe文件。程序设计041、在窗体上放置4个单选按钮，分别用于显示星期、年份、月份和日期。2、在窗台上放置一个文本框，选中单选按钮时，显示相应的信息。3、在窗体上放置一个命令按钮，单击按钮时退出应用程序。4、界面及功能设计请参考cx04.exe 文件。程序设计051、单击“坐标系”按钮，将图片框的坐标系统设置为原点在中央，x轴-10,10，y 轴-10,10，并画出该坐标系统；2、单击“扇形”按钮,在图片框中画一个圆心在原点，半径为5,圆周为红色，线宽为2，内部为绿色，起始角为/6，终止角为5/6的扇形；3、界面及功能设计请参考cx05

4、.exe文件。程序设计061、按照cx06.exe所示在窗体上放置按钮和控件。2、在输入或修改单科成绩的同时计算平均分，即在“高数”、“英语”和“计算机”文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。3、“平均成绩”文本框不允许编辑，即不能手工修改。4、各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。5、界面及功能设计请参考cx06.exe文件。程序设计071、窗体上三个文本框，上面两个用输入加数，单击“=”按钮，将两个数的和显示在下面一个文本框中。2、三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进行编辑

5、操作。3、设置相关属性使得上面两个文本框均不接受非数字键。4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框得焦点。5、界面及功能设计请参考cx07.exe文件。程序设计081、左边一个简单组合框，对文本框的字体进行设置；2、右边一个简单组合框，对文本框的文字大小进行设置；3、文本框中文字为“心想事成”4、界面及功能设计请参考cx08.exe文件。程序设计091、单击“添加”按钮，将本文框中的内容加到列表框中的第一项，如果文本框有内容,则给出提示“没有内容，不予贴加”2、单击“删除”按钮，将选红表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。3、界面及功能设计请参

6、考cx09.exe文件程序设计101、在窗体上放置两个列表框控件，在它的Iist中输入一些内容。2、当单击“ ”按钮时，把Iist2中的一项放到list1中，并且在list2中删除该项。3、当单击“ ”按钮时，把list2中选中的一项放到list2中，并且在list1中，并且在list1中删除该项。5、当单击“”按钮时，把list1中所有的项放到list2中，并且清空list1。6、当单击“结素“按钮时，退出应用程序。7、界 面及功能设计请参考cx10.exe文件。程序设计111、窗体上有二个CheckBox，当这两个选项未被选定时，它们所在框架的其它控件不能使用。2、如果单击“确定”按钮，则

7、在按钮下面的标签中显示用户所选择的信息。3、界面及功能设计请参考cx11.exe文件。程序设计121、按照cx12.exe所示在窗体上放置按钮和控件。2、在“请输入”文本框中输入一个数字后，单击判断，可在“结果为显示判断结果。3、若输入的不是数字，则弹出消息框，提示信息是“输入的不是数字，无法计算”。4、界面及功能设计请参考cx12.exe文件。程序设计131、可以在查找文本框中输入查找文字；2、可以在替换为文本框中输入替换文字；3、单击“替换”按钮，对文本框Text1中与查找内容匹配的文字进行替换操作；4、文本框Text1可以多行显示文字；5、界面及功能设计请参考cx13.exe文件。程序设

8、计141、在窗体上创建一个label1控件用于显示程序名“简单动画”2、在窗体上创建一个label2的控件数组，数组长度为6，用于显示动画图象“-”3、在窗体上放置timer控件，用它来控制label2上的图象位置的变化。4、单击“开始”按钮时label2上的图象开始移动，单击“结束”按钮图象停止移动，设置每一秒移动一个箭头。5、界面及功能设置请参考cx14.exe文件。程序设计151、单击“开始”按扭,标签“祝您考试成功”文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开始”按扭变为“停止”按扭。2、单击“停止”按扭，

9、标签“祝您考试成功”文字停止滚动。同时“停止”按扭变为“开始”按扭。3、要求程序开始运行时，标签文字的字体为“宋体”、字形为“粗体”、大小为“二号”。4、定时器的时间间隔为.秒。5、界面及功能设计请参考cx15.exe文件。程序设计161、单击“开始”按钮，标签“欢迎光临”文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。2、单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮变为“开始”按钮。3、要求标签文字在放大时保持水平居中。4、定时器的时间间隔为0.2秒。5、界面及功能设计请参考cx16.exe文件。程序设计171、水平滚动条的取值范围12，72。改变滚动

10、条可以控制标签文字的大小，并同时在文本框中显示标签的字号；2、标签文字为“心想事成”，要求在改变字号时标签保持在窗体中水平居中；3、文本框最多接受两个字符，当输入一个12，72的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置；4、界面及功能设计请参考cx17.exe文件。程序设计181、在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。2、单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。3、界面及功能设计请参考cx18.exe文件。程序设计191、窗体上引入一个红色的圆形形状控体，圆的直径为3400Twips。2、水平滚动条的最大值与圆的

11、直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips.3、改变条的值可以控制圆形的直径，同时在标签Labe12中动态显示圆形的直径。4、要求圆形的直径在变化时要保持圆形的位置不变。5、界面及功能设计请参考cx19.exe文件。程序设计201、窗体上放置两个文本框，分别用于输入身高和体重。2、设置相关属性使得两个文本框文字对起方式均为右对起，最多接受3个字符，不接受数字键。3、单击“健康状况”按纽，根据计算公式分别将提示信息显示在Labe15中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0

12、.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。4、界面及功能设计请参考cx20.exe文件。程序设计211、设计2个定时器，一个用于控制时间显示，时间间隔为一秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。2、标签Labell用于显示时间，宋体，粗体，斜体，二号，背景白色，字体居中对齐，固定边框。3、在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。4、界面及功能设计请参考cx21.exe文件。程序设计221、当在文本框中输入密码“1234567”，并按回车后，显示标签la

13、be12为“欢迎光临！”。如果输入的密码与“1234567”不吻合，显示标签Labe12为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，显示标签Labe12为“非法用户，请退出程序！”，文本框就不能使用了。2、文本框中输入的字符显示为*，并且最多可以接受7个字符。3、标签控件Labe12的文字对齐方式为居中对齐，文字颜色红色，宋体、常规、三号；标签的大小随字体自动调整，一开始不可见。4、界面及功能设计请参考cx22.exe程序设计231、窗体上放置驱动器列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联动

14、。2、设置文件列表框只显示*.bap 和*.jpg类型的图片文件。3、编写相关代码使得单击文件列表框上的图片文件名时，图片显示在图片框中4、界面及功能设计请参考cx23.exe文件。程序设计24 1、文件列表框能过滤文本文件。2、当单击某文本文件名后，在Textl显示文件名（包括路径），在Text2显示该文件内容。3、当单击某文件文件名后，调用记事本程序对文件文件进行编辑。4、界面及功能设计请参考cx24.exe文件。程序设计251、窗体上引入一个通用对话框控件。2、单击菜单“字体”，通用对话框，并对文本框字体进行修饰。3、单击菜单“文字颜色”，通用对话框控件显示为颜色对话框，并对文体框文字颜

15、色进行修饰。4、单击菜单“背景颜色”，通用对话框控件显示为颜色对话框，并对文本框背景颜色进行修饰。5、文本框设计为带垂直滚动条。6、界面及功能设计请参考cx25.exe文件。程序设计261、设计4个命令按钮，分别实现“复制”、“剪切”、“粘贴”和“删除”功能；2、文本框Text1可以多行显示文字；3、界面及功能设计请参考cx26.exe文件。程序设计271、在窗体上放置一个文本框控件数组，用于输入用户信息。2、在文本框控件数组中输入相应信息后，点击“添加”后在组合框中会出现该项的姓名。3、在组合框中选中某项，可以在文本框数组中显示该项的用户信息，点击“删除”，可以删除该项的所有信息。4、界面及

16、功能设计请参考cx27.exe文件。程序设计28 1、“菜单”框架中由复选框数组提供选择三种套餐，右边的文本框数组中可以输入数量；2、要求文本框只能接受数字键；并且只有选取了相应的套餐后才可以进行输入，3、单击“确定”按钮，统计点餐的金额，并用消息框显示出来；4、界面及功能设计请参考cx28.exe文件。程序设计291、窗体的右部是图片框，可以用鼠标左键进行绘图。2、“选项”框中有两个单选钮控件，选择“细”时，绘图的线宽设置为1，选择“粗”时，绘图的线宽设置为5。3、“选项”框中的“颜色”按钮打开通用对话框为颜色对话框，并设置绘图的颜色。4、“选项”框架中的“清除”按钮用于清除图片框中的内容。

17、5、界面及功能设计请参考cx29.exe.文件。程序设计301、框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。2、框架Frame2中有一个单选钮数组，可以选择宋体或楷体对标签中的文字进行修饰。3、标签Labe11的文字内容为“Visual Basic程序设计”。宋体，常规，三号；文字对齐方式为居中。4、界面及功能设计请参考cx30.exe文件。程序设计311、单击“开始计时”按钮后,程序根据选择的时间开始倒计时，命令按钮变为不可使用。2、倒计时过程是将剩余的时间显示在标签Labell中，直到0分0秒为止，改为显示“时间到！”：3、框架“选择时间”内有一组单选钮控

18、件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。4、界面及功能设计请参考cx31.exe文件。程序设计321、要求命令按钮数组构成数字键，单击数字按钮，将拨号的内容显示在文本框Text1中；2、单击“重拨“按钮，再现原来的拨号过程：（提示：再现过程由定时器实现）3、定时器的时间间隔为0.5秒；4、文本框最多接受10个字符：宋体，粗体，三号，兰色号；5、界面及功能设计请参考cx32.exe文件。程序设计331、在窗体上放置一个“三原色配比与预览”的框架，框架内有三个水平滚动条构成的控件数组，滚动条的取值范围为0255；还有一个长方形形状控件。2、拖动滚动条的滚动框来选择红、绿、

19、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。3、单击“应用”按钮，将调配好的颜色作为标签文字“坚持就是胜利！”的文字颜色。4、标签文字“坚持就是胜利！”字体为“楷体GB2312”。大小“二号”，设置相关属性使得标签在窗体中水平居中并且标签的大小随显示内容自动调整。5、界面及功能设计请参考cx33.exe文件。程序设计341、程序启动后窗体正中央有一个直径为500Twips的红色圆球。2、第一次单击菜单“启动”，圆球先向右上角方向运动，碰壁后改变方向。水平、垂直方向的移动速度均为100Twips/间隔。3、单击菜单“停止”，圆球停止运动，再单击菜单“启动”，圆球继续运动。4、定时器时

20、间间隔为0.1秒。5、界面及功能设计请参考cx34.exe文件。程序设计01题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1Command1Caption最大化(&L)二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码：Private Sub Command1_Click() If Command1.Caption = 最大化(&L) Then Form1.WindowState = 2 Command1.Caption = 还原(&B) Else Form1.Wi

21、ndowState = 0Command1.Caption = 最大化(&L) End IfCommand1.Left = (Form1.Width - Command1.Width) / 2 Command1.Top = (Form1.Height - Command1.Height) / 2End Sub程序设计02题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Text1text空Text2text空Text3text空EnabledFalseLabel1Caption商品单价：Label2Caption商品数量：La

22、bel3Caption应付款：Command1Caption清除Command2Caption计算二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：Private Sub Command1_Click()Text1.Text = Text1.SetFocusText2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Dim a, b, sum As IntegerText3.Enabled = Truea = Val(Text1.Text)b = Val(Text2.Te

23、xt)sum = a * bText3.Text = sumEnd Sub程序设计03题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Text1textTabIndex0Text2textPassWordChar*TabIndex1Text3textPassWordChar*TabIndex2Text4textPassWordChar*TabIndex 3Label1Caption用户名Label2Caption原密码Label3Caption新密码Label4Caption新密码Command1Caption确定TabIn

24、dex4Command2Caption取消TabIndex5二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：Private Sub Command1_Click()If Text1.Text = admin And Text2.Text = admin Then If Text3.Text = Text4.Text Then B=MsgBox (密码修改成功!, ,”修改密码”) Else B=MsgBox(新密码有误，请重试, , “修改密码”) Text3.Text = Text4.Text = End If Else B=M

25、sgBox( 用户名或密码无效，请重试！, , “修改密码”) Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()endEnd Sub程序设计04题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Option1Caption显示星期几Option2Caption显示年份Option3Caption显示月份Option4Caption显示日期Text1textCommand1Caption结束二、根据题意，对命令按钮Command1的Cli

26、ck事件编写如下事件过程代码：Private Sub Command1_Click()EndEnd SubPrivate Sub Option1_Click()Text1.Text = 今天是星期 & Str(Weekday(Date)End SubPrivate Sub Option2_Click()Text1.Text = 今天是 & Str(Year(Date) &年 End SubPrivate Sub Option3_Click()Text1.Text = 今天是 & Str(Month(Date) &月 End SubPrivate Sub Option4_Click()Text1

27、.Text = 今天是 & Str(Day(Date) &号 End Sub程序设计05题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1Caption作图Command1Caption坐标系Command2Caption扇形Command3Caption结束二、根据题意，对命令按钮的Click事件编写如下事件过程代码：注：因本题单位不明确，故对x轴、y轴和圆半径乘以100后按默认单位处理Const PI = 3.1415926Private Sub Command1_Click() Picture1.Scal

28、e (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, -10)-(0, 10) Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print (0,0)End SubPrivate Sub Command2_Click() Picture1.FillStyle = 0 Picture1.FillColor = vbGreen Picture1.DrawWidth = 2 Picture1.Circle (0, 0), 5, vbRed, -PI / 6

29、, -5 * PI / 6End SubPrivate Sub Command3_Click() EndEnd Sub程序设计06题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Label1Caption高数Label2Caption英语Label3Caption计算机Label4Caption平均成绩Text1TextText2TextText3TextText4LockedTrue二、根据题意，对文本text1，text2，text3的Change事件编写如下事件过程代码：Private Sub Form_Load

30、()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Text2_Change() If Val(Text2.Text) 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text3_Change() If Val(Text3.Text) 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + V

31、al(Text2.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text1_Change() If Val(Text1.Text) 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(9) Or KeyAscii Asc(9)

32、 Or KeyAscii Asc(0) Then MsgBox 不能输入非数字字符 KeyAscii = 0 End IfEnd Sub程序设计07题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1Caption加法器Label1Caption+Command1Caption=Command2Caption清空Text1、Text2、Text3Caption清空Alignment1-Right JustifyText3LockedTrue二、根据题意，对各命令按钮的Click事件和各文本框的Change事件编写

33、如下事件过程代码：Private Sub Command1_Click() Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click() Text3.Text = Text2.Text = Text1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Text3.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii A

34、sc(9) Then KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd Sub程序设计08题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1caption字体设置窗体中各控件的位置按样例画好MinButtonFalseMaxButtonFalseText1Text心想事称Combo1Style1-simple comboT

35、extCombo2Style1-simple comboText 二、根题意，编写如下事件过程代码：Private Sub Form_Load()combo1.AddItem 宋体combo1.AddItem 黑体combo1.AddItem 楷体_GB2312combo2.AddItem 8combo2.AddItem 9combo2.AddItem 10combo2.AddItem 11combo2.AddItem 12combo2.AddItem 14combo2.AddItem 16End SubPrivate Sub combo1_Click()Text1.FontName = Co

36、mbo1.TextEnd SubPrivate Sub combo1_Click()Text1.FontSize = Val(Combo2.Text)End Sub程序设计09题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1caption添加和删除窗体中各控件的位置按样例画好MinButtonFalseMaxButtonFalseText1Text List1Command1Caption添加Command2caption删除二、根题意，编写如下事件过程代码：Private Sub Command1_Clic

37、k()If Text1.Text = Then MsgBox (没有内容，不予添加)Else List1.AddItem Text1.Text, 0End IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex = -1 Then MsgBox (请选择输出的项目)Else List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Form_Load()List1.AddItem WordList1.AddItem ExcelList1.AddItem PowerPointList1

38、.AddItem OutlookEnd Sub程序设计10题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注List1list111,222增加列表项List2list333,444增加列表项Command1captionCommand2captionCommand3captionCommand4caption 0 List2.AddItem List1.List(0) List1.RemoveItem 0 WendEnd SubPrivate Sub Command3_Click() While List2.ListC

39、ount 0 List1.AddItem List2.List(0) List2.RemoveItem 0 WendEnd SubPrivate Sub Command4_Click() If List2.ListIndex = -1 Then MsgBox 请选择一列表项 Else List1.AddItem List2.List(List2.ListIndex) List2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() List1.A

40、ddItem 111 List1.AddItem 222 List2.AddItem 333 List2.AddItem 444End Sub程序设计11题解：一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Form1CaptionForm1Frame1Caption计算机Label1caption品牌：combo1text联想list联想，戴尔，正方Label2Caption数量：Text1textFrame2Caption操作系统Option1CaptionWindows2000Option2CaptionWindows

41、98Command1Caption 确定二、根据题意，对命令按钮Command1的Click事件、复选框check的click事件和窗体的load事件编写如下事件过程代码：Private Sub Check1_Click()If Check1.Value = 1 ThenCombo1.Enabled = TrueText1.Enabled = TrueElseCombo1.Enabled = FalseText1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenOption1.Enabl

42、ed = TrueOption2.Enabled = TrueElseOption1.Enabled = FalseOption2.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value = 1 Then Label3.Caption = Combo1.Text & Chr(13) & Chr(10) & Text1.Text & Chr(13) & Chr(10)End IfIf Check2.Value = 1 ThenIf Option1.Value Then Label3.Caption = Lab

43、el3.Caption & Option1.Caption Else Label3.Caption = Label3.Caption & Option2.Caption End IfEnd IfEnd SubPrivate Sub Form_Load()Combo1.Enabled = FalseText1.Enabled = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd Sub程序设计12题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Text1textLab

44、el1Caption请输入：Label2Caption结果为：Label3CaptionCommand1Caption判断二、根据题意，对命令按钮Command1的Click事件和Text1的KeyPress事件编写如下事件过程代码：Private Sub Command1_Click() Dim n As Integer, k As Integer, L As Integer, c As String, s As String 判断文本框中的内容是否为数字 s = Trim(Text1.Text) L = Len(s) For k = 1 To L c = Mid(s, k, 1) If c

45、 9 Or c L Then 是数字 n = Val(s) For k = 2 To Int(Sqr(n) If n Mod k = 0 Then Exit For Next k If k Int(Sqr(n) Then Label2.Caption = 结果为： + Str(n) + 是质数! Else Label2.Caption = 结果为： + Str(n) + 不是质数! End If Else MsgBox 输入的不是数字，无法计算 End IfEnd Sub程序设计13题解：一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性

46、值备注Label1Caption查找：Label2Caption替换为：Command1Caption替换二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码：Private Sub Command1_Click() Dim fs As String Dim fL As Integer Dim rs As String Dim s As String Dim L As Integer Dim i As Integer fs = Text2.Text fL = Len(fs) rs = Text3.Text s = Text1.Text L = Len(s) For i

47、= L - f + 1 To 1 Step -1 If Mid(s, i, fL) = fs Then Text1.SetFocus Text1.SelStart = i - 1 Text1.SelLength = fL Text1.SelText = rs End If Next iEnd Sub程序设计14题解:一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。控件名称属性属性值备注Label1Caption简单动画Label2（0，1，2，3，4，5）Caption-Timer1intetervel1000Command1Caption演示C

48、ommand2Caption停止二、根据题意，对命令按钮的Click事件和计时器的Timer事件编写如下事件过程代码： Dim i As IntegerPrivate Sub Command1_Click()If Command1.Caption = 演示 Then Timer1.Enabled = True End IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = 结束 Then Timer1.Enabled = False End IfEnd SubPrivate Sub Form_Load()Timer1.Enabled = Falselabel2(1) .Visible= falselabel2(2) .Visible= falselabel2(3) .Visible= falselabel2(4) .Visible= falselabel2(5) .Visible= falseEnd SubPrivate Sub Timer1_Timer()If i = 5 Then i = 0 Lab