VB书本实验4答案汇.docVIP

实验4 常用控件 一、实验目的和要求 1．了解.(p150) 参考vb5-5-6 .exe 本题是利用计时器控件来实现文字的水平移动，要求： （1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。 （2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 ‘窗体最大化 Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label1.Left = Label1.Left + 150 If Label1.Left = Form1.Width Then Label1.Left = -Label1.Width End Sub 2. 第六大题 程序6.(p152) 参考vb5-6-6 .exe 提示:需要编程的事件Form_Load, HScroll1_Change, HScroll1_Scroll, Timer1_Timer 过程设计： Private Sub Form_Load() Label1.Left = Width / 2 - Label1.Width / 2 Label1.AutoSize = True HScroll1.Min = 1: HScroll1.Max = 1000 HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500 End Sub Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub Private Sub Timer1_Timer() Label1.FontSize = Label1.FontSize + 2 Label1.Left = Form1.Width / 2 - Label1.Width / 2 If Label1.FontSize = 72 Then Timer1.Enabled = False End Sub 3.补充题1参考Design14.exe文件的运行结果，新建一个Design14.Vbp工程，完成“电子钟”程序的设计（其中窗体文件请命名为Design14.frm）。 1) 设计两个定时器，一个用于控制时间显示，时间间隔为1秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。 2) 标签Label1用于显示时间，宋体、粗体、二号，背景白色，文字居中对齐，固定边框。 3) 在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。 提示： 需要编程的事件 Form_Load ，Text1_KeyPress , Timer1_Timer , Timer2_Timer Private Sub Form_Load() Label1.Caption = Time End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Timer2.Enabled = True Text1.Enabled = False End If End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Timer2_Timer() Static a as integer If DateDiff(s, Time, Text1.Text) = 0 Then ‘交替显示 If a = 0 Then Label1.BackColor = RGB(255, 0, 0) a = 1 Else Label1.BackColor = RGB(255, 255, 255) a = 0 End if End if End Sub 4.补充题2 参考Design15.exe文件的运行结果，新建一个Design15.Vbp工程，完成“倒计时”程序的设计（其中窗体文件请命名