VB实验任务3答案Word格式文档下载.docx

1、图片框Picture1（3）程序代码。Private Sub Form_Click（） 。填写代码End Sub（4）运行程序。（5）保存工程。将窗体保存为3-1.frm，将工程保存为3-1.vbp。实验2实验书实验3-2 窗体中有2个图片框，每个图片框中各有一个图像框和复选框控件，且图像框中都加载了图片，界面如图3-2（a）所示。当选中某图片框中的复选框，则清除该图片框中图像框的加载图片，如图3-2（b）所示。 （a）初始界面 （b）复选框单击后的界面 图3-10 实验3-2运行界面在窗体Form1上添加2个图片框、2个图像框和2个复选框对象，每个图片框中有1个图像框和1个复选框。（2）属性

2、设置如表3-2所示。表3-2 控件属性设置实验3-2图片框1P1图片框2P2复选框1Chk1清空图片1复选框2图像框1Image1图像框2Image2Dim path As String 定义模块级变量,用于存放图片所在路径Private Sub Form_Load（）Private Sub Chk1_Click（） 。Private Sub Chk2_Click（）将窗体保存为3-2.frm，将工程保存为3-2.vbp。实验3实验书实验3-3 选择组合框中的礼品，单击“添加”命令按钮后将其显示在列表框中；在列表框中选择某个不需要的礼品组合，单击“删除”命令按钮将其删除；单击“清空”命令按钮，

3、列表框中所有信息被删除，程序运行界面如图3-11所示。在窗体上添加3个标签、2个组合框、3个命令按钮和1个列表框对象。（2）属性设置如表3-3所示。表3-3 控件属性设置实验3-3Label1礼品一Label2礼品二标签3Label3您选择的礼品组合：命令按钮1CmdAdd添加命令按钮2CmdDel删除命令按钮3CmdClear清空组合框1Combo1组合框2Combo2列表框List1Private Sub CmdAdd_Click（） Private Sub CmdDel_Click（）Private Sub CmdClear_Click（）将窗体保存为3-3.frm，将工程保存为3-3.

4、vbp。实验4实验书实验3-4 利用滚动条改变RGB（r，g，b）函数中的r、g、b三个参数值，从而改变窗体的背景色，程序运行界面如图3-12所示。在窗体上添加3个标签和3个滚动条对象。（2）属性设置如表3-4所示。表3-4 控件属性设置Form1实验3-4r：g：b：滚动条1HScrollR形状Max255Min滚动条2HScrollG圆角矩形滚动条3HScrollB椭圆Private Sub HScrollR_Change（） r = HScrollR.Value g = HScrollG.Value b = HScrollB.Value Form1.BackColor = RGB（r,

5、g, b）Private Sub HScrollG_Change（）Private Sub HScrollB_Change（）将窗体保存为3-4.frm，将工程保存为3-4.vbp。实验5实验书实验3-5利用框架和单选按钮改变形状控件对象的形状和填充样式，程序运行界面如图3-13所示。图3-12 实验3-4运行界面图3-13 实验3-5运行界面在窗体上添加1个形状控件对象，2个命令按钮框架和4个单选按钮。（2）属性设置如表3-5所示。表3-5 控件属性设置实验3-5框架1Frame1填充单选按钮1OptionH水平线单选按钮2OptionV垂直线框架2Frame2单选按钮3OptionR单选按

6、钮4OptionO形状控件Shape1Height1200Width1000Private Sub OptionH_Click（） If OptionH.Value = True Then Shape1.FillStyle = 2 填充水平线Private Sub OptionV_Click（）填写代码 填充垂直线Private Sub OptionR_Click（） 图3-14 实验3-6的运行界面填写代码 画圆角矩形Private Sub OptionO_Click（） 画椭圆将窗体保存为3-5.frm，将工程保存为3-5.vbp。实验6实验书实验3-6 利用时钟控件进行30秒倒计时。要求

7、：界面中使用若干标签显示一些提示语和系统时间，使用文本框显示程序运行时间和30秒剩余时间。当30秒计时一到，立即结束程序运行，程序运行界面如图3-14所示。窗体上添加3个命令按钮和2个文本框对象。（2）属性设置如表3-7所示。表3-7 对象的属性设置属 性窗体1CmdCopy实验3-7复制续表Text1CmdCut测试用例剪切Text2CmdPaste粘贴EnabledFalseDim temptext As String 定义模块级变量Private Sub CmdCopy_Click（） temptext = Text1.SelText 记录所选中的文本 If temptext Then

8、CmdPaste.Enabled = True 使粘贴按钮有效 Else: MsgBox 请先选中文本! End IfPrivate Sub CmdCut_Click（） temptext = Text1.SelText Text1.SelText = 使选中的文本清空 CmdPaste.Enabled = True Else MsgBox Private Sub CmdPaste_Click（） Text2.Text = temptext 使选中的文本在文本框2中显示将窗体保存为3-7.frm，将工程保存为3-7.vbp。2补充实验：补充实验1利用Timer计时器控件实现月亮的阴晴圆缺和变脸

9、。月亮的阴晴圆缺分析：可以利用计时器控件的Timer事件，对Image图象控件轮流加载不同的图片，实现月亮的阴晴圆缺的动画效果。在窗体上放置一个Timer计时器控件和1个Image图象控件。（2）属性设置。将计时器控件的Interval属性设置为2000（3）添加程序代码如下。Const ImagePath = C:Program FilesMicrosoft Visual StudioCommonPrivate Sub Timer1_Timer（） 计时器控件的Timer事件，每隔2秒钟自动触发一次 Static i As Integer i表示图片的编号 If i = 8 Then i =

10、 1 i = i + 1 Image1.Picture = LoadPicture（ImagePath &GraphicsIconsElementsmoon0 & i &.ico）变脸分析：可以利用计时器控件的Timer事件，轮流改变图片控件的Visible可视属性，每次只允许一个图片控件的Visible属性为True，即可见，从而实现变脸的动态效果。在窗体上放置一个Timer计时器控件和5个PictureBox图片控件。利用格式菜单，将图片控件叠放在一起。设置5个PictureBox图片控件的AutoSize属性为True，BorderStyle属性为0-None，Picture属性分别为P

11、rogram FilesMicrosoft Visual Studio CommonGraphicsIconsMiscface01.icoProgram FilesMicrosoft Visual Studio CommonGraphicsIconsMiscface02.icoProgram FilesMicrosoft Visual Studio CommonGraphicsIconsMiscface03.icoProgram FilesMicrosoft Visual Studio CommonGraphicsIconsMiscface04.icoProgram FilesMicrosof

12、t Visual Studio CommonGraphicsIconsMiscface05.ico 利用窗体的Load事件完成控件属性的初始值设置 Timer1.Interval = 1500 Picture1.Visible = True Picture2.Visible = False Picture3.Visible = False Picture4.Visible = False Picture5.Visible = FalsePrivate Sub Timer1_Timer（）通过对PictureBox图片控件的Visible可视属性判断和设置实现轮流显示和隐藏不同的图片，实现变脸的

13、效果 If Picture1.Visible Then Picture1.Visible = False Picture2.Visible = True ElseIf Picture2.Visible Then Picture3.Visible = True ElseIf Picture3.Visible Then Picture4.Visible = True ElseIf Picture4.Visible Then Picture5.Visible = True思考：上述两个实验在窗体上实现不同图片的动态显示，采用的方法有何不同？补充实验2 在名称为Form1的窗体上画一个文本框，其名称为

14、Text1，初始内容为空白；然后再画3个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮Op1，则在文本框中显示“颐和园”；如果选择单选按钮Op2，则在文本框中显示“兵马俑”；如果选择单选按钮Op3，则在文本框中显示“西湖”。程序运行情况如图2-5所示。要求程序中不得使用变量，事件过程中只能写一条语句。Private Sub op1_Click（）T1.Text = “颐和园”Private Sub op2_Click（）T1.Text = “兵马俑”Private Sub op3_Click（）T1.Text = “西

15、湖”补充实验3在窗体上画一个文本框T1和两个框架F1、F2，框架F1中画两个单选按钮Op1、Op2，框架F2中画两个单选按钮Op3、Op4。当单击窗体时，根据实际选择的单选按钮，在文本框中显示对应的文本信息，如图所示。请完善程序代码： T1.Text = If Op1.Value = True Then T1.Text = T1.Text &坐 Op1.Caption T1.Text = T1.Text = T1.Text & Op2.Caption If Op3.Value = True Then去 Op3.Caption Op4.Caption 补充实验4 Private Sub HScr

16、oll1_Change（） Text1.FontSize = HScroll1.Value补充实验5利用复选框实现统计成绩的界面设计。（1）界面设计：在窗体上添加一个框架Frame，然后在框架中添加3个复选框用于选择课程，和个文本框用于输入成绩。窗体上另有一个文本框用于输出。（2）自行设置属性。（）要求：）选中相应复选框，其对应的文本框才可以输入（提示：enabled属性），否则文本框清空并不可用。文本框只可输最多位数字（提示：maxlength属性及任务二中实验的代码）单击确定按钮，在最下面的文本框中输出所选课程的成绩和总分（提示：该文本框multiline属性设置为true，换行可以通过V

17、bCrlf或Chr（13） & Chr（10）实现，参考书本例，分别定义两个变量用来存放文字信息和分数，如dim a as String , b as Interger）Private Sub Check1_Click（）If Check1.Value = 1 Then Text1.Enabled = True Text1.SetFocusElse Text1.Enabled = False Text1.Text = End IfPrivate Sub Check2_Click（）If Check2.Value = 1 Then Text2.Enabled = True Text2.SetFo

18、cus Text2.Enabled = False Text2.Text = Private Sub Check3_Click（）If Check3.Value = 1 Then Text3.Enabled = True Text3.SetFocus Text3.Enabled = False Text3.Text = Private Sub Command1_Click（）Dim s As StringDim a As Integers = 您的成绩为：If Check1.Value = 1 Then s = s + Check1.Caption + Text1.TextIf Check2.

19、Value = 1 Then s = s + Check2.Caption + Text2.TextIf Check3.Value = 1 Then s = s + Check3.Caption + Text3.Texta = Val（Text1.Text） + Val（Text2.Text） + Val（Text3.Text）s = s + vbCrLf + 总分为： aText4.Text = sPrivate Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii 9） Then KeyAscii = 0Private Sub Text2_KeyPress（KeyAscii As Integer）Private Sub Text3_KeyPress（KeyAscii As Integer）