《计算机VB简单编程题目实训七》由会员分享，可在线阅读，更多相关《计算机VB简单编程题目实训七（9页珍藏版）》请在金锄头文库上搜索。
1、第6章 常用控件与多窗体 制作：柳淑花实训七实训七 常用内部控件（一）常用内部控件（一）一、实训目的1、掌握常用内部控件的主要属性、基本方法和重要事件。2、能够熟练地运用内部控件进行应用程序设计，树立可视化的编程思想。二、实训内容1、 几种简单控件的综合应用【实训要求】n设计一个简易的计算器，格式如图：sx7_1. vbp下一页第6章 常用控件与多窗体 制作：柳淑花【实训步骤】第1步：启动VB，打开一个新的标准工程。 第2步：在窗体上添加二个文本框，三个标签（Label1 、Label2的 Caption 属性为空），四个单选框，设置 好属性后的状态如图所示：第3步：编写四个单选框的 Clic
2、k 事件过程：上一页下一页第6章 常用控件与多窗体 制作：柳淑花“+”“+”单选框的事件过程如下：单选框的事件过程如下：Dim result As Single Private Sub Option1_Click()If Option1.Value ThenLabel1.Caption = “+“result =val( )将字符串转换为数值型Label3.Caption = Str(result) str( )将数值型数据转换为字符串类型End If End Sub上一页下一页第6章 常用控件与多窗体 制作：柳淑花“ - ”“ - ”单选框的事件过程如下：单选框的事件过程如下：Private
3、 Sub Option2_Click()If ThenLabel1.Caption = “-“result = Label3.Caption = Str(result)End If End Sub上一页下一页第6章 常用控件与多窗体 制作：柳淑花“ ”“ ”单选框的事件过程如下：单选框的事件过程如下：Private Sub Option3_Click()If ThenLabel1.Caption = “ “result = Label3.Caption = Str(result)End If End Sub上一页下一页第6章 常用控件与多窗体 制作：柳淑花“ ”“ ”单选框的事件过程如下：单选
4、框的事件过程如下：Private Sub Option4_Click()If Val(Text2.Text) = 0 ThenMsgBox “被除数不能为零，请重新输入!“ElseIf ThenLabel1.Caption = “result =Label3.Caption = Str(result)End IfEnd If End Sub 第4步：运行程序，效果如图所示：上一页下一页第6章 常用控件与多窗体 制作：柳淑花2、编写复选框的Click 事件过程运行程序时，效果如图所示： sx7_2.VBP窗体装载选中未选中上一页下一页第6章 常用控件与多窗体 制作：柳淑花3、定时器 sx7_3.
5、VBP设计一个霓虹灯程序，利用定时器控件模拟霓虹设计一个霓虹灯程序，利用定时器控件模拟霓虹 灯的效果。灯的效果。 界面如图：界面如图： 要求：要求： （1 1）窗体上添加一个窗体上添加一个定时器定时器、二个标签、一个图片框、二个标签、一个图片框 ，设置完属性后的界面如左图所示：，设置完属性后的界面如左图所示： （2 2）程序运行时，图片框中的文字颜色随机变化，并程序运行时，图片框中的文字颜色随机变化，并 要求在要求在 Label2 Label2 中显示当前时间。中显示当前时间。上一页下一页第6章 常用控件与多窗体 制作：柳淑花4、定时器 、图像框 sx7_4.VBPn n编写一个交通灯控制程序。编写一个交通灯控制程序。n n要求：要求：用时钟控件控制红、绿、黄三灯显示的延迟时用时钟控件控制红、绿、黄三灯显示的延迟时 间（假定为三秒钟），并且规定在晚上间（假定为三秒钟），并且规定在晚上2121点到凌晨点到凌晨2 2点点 红、绿、黄三灯全部亮。红、绿、黄三灯全部亮。n n说明：说明：利用四个图像框，分别装入四个图标文件，交利用四个图像框，分别装入四个图标文件，交 通灯图标文件的路径是：通灯图标文件的路径是：“ “vb98Graphicsicontraffic”vb98Graphicsicontraffic”上一页下一页
