《实验七窗体和常用内部控件.docVIP

实验七 窗体和常用内部控件（二） 一、实验目的 1、掌握VB常用控件的属性、常用事件和重要方法； 2、掌握事件过程的代码编写； 3、了解VB中的键盘事件、鼠标事件等过程的编写。 二、实验内容 1、验证实验。 2、程序设计一。 3、程序设计二。 三、实验指导 1、验证实验。 （1）在窗体Forml上设置标签控件Label1，时钟控件Timer，每过1秒钟标签Label1的背景颜色由红到蓝，由蓝到绿，再由绿到红循环变化，并自动修改标签Label1的Left，Top值使其从左上角沿窗体的对角线移动到窗体的右下角，如此往复从而实现动画，窗口布局如图7.1。（窗口最大化时观察程序运行情况） 图7.1 设计界面 参考代码 Dim flag As Integer Private Sub Form_click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Label1.Left = Left Label1.Top = Top Label1.BackColor = vbRed Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left Left + Width And Label1.Top = Top + Height Then Label1.Left = Label1.Left + 100 * Width / Height Label1.Top = Label1.Top + 100 Else Label1.Left = Left Label1.Top = Top End If If flag = 0 Then Label1.BackColor = vbBlue flag = 1 ElseIf flag = 1 Then Label1.BackColor = vbGreen flag = 2 Else Label1.BackColor = vbRed ? flag = 0 End If End Sub 颜色常数： 常数 vbBlack vbRed vbBlue vbMagenta vbGreen vbYellow vbCyan vbWhite 描述 黑色 红色 兰色 洋红 绿色 黄色 青色 白色 （2）在窗体Forml上设置控件标签控件Lable1、Lable2、Lable3，命令按钮控件Command1、Command2、Command3、时间控件Timer1，程序启动后Lable1和Lable2滚动显示属于1到100间的随机整数，当单击“Lable1数大”或“Lable2数大”按钮时，滚动停止，如果猜对了，在Lable3中显示“猜对了”，否则显示“猜错了”，按“继续”按钮重新开始。试编写有关事件的程序代码。窗口布局如图7.2，运行界面分别见图7.3和图7.4。 图7.2 窗口布局 图7.3 运行界面 图7.4 运行界面 参考代码。 Private Sub Command1_Click() Timer1.Enabled = False If Val(Label1.Caption) Val(Label2.Caption) Then Label3.Caption = 猜对了 Else Label3.Caption = 猜错了 End If End Sub Private Sub command2_Click() Timer1.Enabled = False If Val(Label1.Caption) Val(Label2.Caption) Then Label3.Caption = 猜对了 Else Label3.Caption = 猜错了 End If End Sub Private Sub Command3_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 100 Command1.Caption = Label1数大 Command2.Caption = Label2数大 Command3.Caption = 继续 End Sub Private Sub Timer1_Timer() Randomize Label1.Caption = Int(Rnd() * 100 + 1) Label2.Caption = Int(Rnd() * 100 + 1) End Sub 函数Val()：返回字符串中所含的数值。 Randomi