VB书本实验4答案.doc

实验4 常用控件一、实验目的和要求1了解常用控件时钟、滚动条的常用属性、方法及事件；2掌握时钟、滚动条的使用方法；二、实验内容（题目来自教材第五章 第五大题 6，第六大题 6）1. 第五大题 程序6.(p150) 参考vb5-5-6 .exe本题是利用计时器控件来实现文字的水平移动，要求：（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。（2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 窗体最大化 Timer1.Interval = 100End SubPrivate 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.WidthEnd Sub2. 第六大题 程序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 = 500End SubPrivate Sub HScroll1_Change() Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer() Label1.FontSize = Label1.FontSize + 2 Label1.Left = Form1.Width / 2 - Label1.Width / 2 If Label1.FontSize = 72 Then Timer1.Enabled = FalseEnd Sub3.补充题1参考Design14.exe文件的运行结果，新建一个Design14.Vbp工程，完成“电子钟”程序的设计（其中窗体文件请命名为Design14.frm）。1) 设计两个定时器，一个用于控制时间显示，时间间隔为1秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。2) 标签Label1用于显示时间，宋体、粗体、二号，背景白色，文字居中对齐，固定边框。3) 在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。提示： 需要编程的事件 Form_Load ，Text1_KeyPress , Timer1_Timer , Timer2_TimerPrivate Sub Form_Load()Label1.Caption = TimeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Timer2.Enabled = True Text1.Enabled = FalseEnd IfEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Timer2_Timer()Static a as integerIf 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 ifEnd ifEnd Sub4.补充题2 参考Design15.exe文件的运行结果，新建一个Design15.Vbp工程，完成“倒计时”程序的设计（其中窗体文件请命名为Design15.frm）。1）单击“开始计时”按钮后，程序根据选择的时间开始倒计时，命令按钮变为不可使用。2）倒计时过程是将剩余的时间显示在标签Label1中，直到0分0秒为止，改为显示“时间到！”；标签Label1设置为：宋体、粗体、三号，文字居中对齐，固定边框。3）框架“选择时间”内有一组单选钮控件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。提示：需要编程的事件 Form_Load , Command1_Click ，Timer1_TimerDim a As IntegerPrivate Sub Form_Load()Option1.Value = TrueCommand1.Enabled = TrueTimer1.Interval = 1000Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()If Option1.Value = True Then a = 60ElseIf Option2.Value = True Then a = 5 * 60Else a = 10 * 60End IfFrame1.Enabled = FalseTimer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If a 0 Then a = a - 1 Label1.Caption = a60 & 分 & a mod 60 & 秒Else Frame1.Enabled = True Timer1.Enabled = False Label1.Caption = 时间到! Command1.Enabled = TrueEnd IfEnd Sub5.补充题3 参考Design31.exe文件的运行结果，新建一个Design31.Vbp工程，完成应用程序的设计（其中窗体文件请命名为Design31.frm）。具体要求如下：1）在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。提示：需要编程的事件 Command1_Click , HScroll1_Change ，HScroll1_ScrollPrivate Sub Command1_Click()EndEnd SubPrivate Sub HScroll1_Change()Label1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Label1.Left = HScro