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()