VB書(shū)本實(shí)驗(yàn)4答案

1、實(shí)驗(yàn)4 常用控件一、實(shí)驗(yàn)?zāi)康暮鸵?了解常用控件時(shí)鐘、滾動(dòng)條的常用屬性、方法及事件；2掌握時(shí)鐘、滾動(dòng)條的使用方法；二、實(shí)驗(yàn)內(nèi)容（題目來(lái)自教材第五章 第五大題 6，第六大題 6）1. 第五大題 程序6.(p150) 參考vb5-5-6 .exe本題是利用計(jì)時(shí)器控件來(lái)實(shí)現(xiàn)文字的水平移動(dòng)，要求：（1）運(yùn)行時(shí)標(biāo)簽框內(nèi)的文字從窗體左邊向右邊移動(dòng)，當(dāng)標(biāo)簽框的左邊界超出窗體的右邊界時(shí)，從窗體的左邊進(jìn)入窗體（尾部先進(jìn)入）。（2）文字移動(dòng)時(shí)顏色不斷產(chǎn)生隨機(jī)變化。 Private Sub Form_Load() Form1.WindowState = 2 窗體最大化 Timer1.Interval = 100En

2、d 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過(guò)程設(shè)計(jì)： Privat

3、e 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 SubPriva

4、te 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.補(bǔ)充題1參考Design14.exe文件的運(yùn)行結(jié)果，新建一個(gè)Design14.Vbp工程，完成“電子鐘”程序的設(shè)計(jì)（其中窗體文件請(qǐng)命名為Design

5、14.frm）。1) 設(shè)計(jì)兩個(gè)定時(shí)器，一個(gè)用于控制時(shí)間顯示，時(shí)間間隔為1秒；一個(gè)用于判斷鬧鐘時(shí)間，時(shí)間間隔為0.5秒，并且在未輸入鬧鐘時(shí)間前不可使用。2) 標(biāo)簽Label1用于顯示時(shí)間，宋體、粗體、二號(hào)，背景白色，文字居中對(duì)齊，固定邊框。3) 在文本框中輸入鬧鐘時(shí)間并按回車后，啟動(dòng)判斷鬧鐘時(shí)間的定時(shí)器，如果時(shí)間超過(guò)鬧鐘時(shí)間，則標(biāo)簽的背景色用紅白兩色交替變換。提示： 需要編程的事件 Form_Load ，Text1_KeyPress , Timer1_Timer , Timer2_TimerPrivate Sub Form_Load()Label1.Caption = TimeEnd SubPr

6、ivate 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 =

7、 RGB(255, 0, 0) a = 1 Else Label1.BackColor = RGB(255, 255, 255) a = 0 End ifEnd ifEnd Sub4.補(bǔ)充題2 參考Design15.exe文件的運(yùn)行結(jié)果，新建一個(gè)Design15.Vbp工程，完成“倒計(jì)時(shí)”程序的設(shè)計(jì)（其中窗體文件請(qǐng)命名為Design15.frm）。1）單擊“開(kāi)始計(jì)時(shí)”按鈕后，程序根據(jù)選擇的時(shí)間開(kāi)始倒計(jì)時(shí)，命令按鈕變?yōu)椴豢墒褂谩?）倒計(jì)時(shí)過(guò)程是將剩余的時(shí)間顯示在標(biāo)簽Label1中，直到0分0秒為止，改為顯示“時(shí)間到！”；標(biāo)簽Label1設(shè)置為：宋體、粗體、三號(hào)，文字居中對(duì)齊，固定邊框。3）框架“

8、選擇時(shí)間”內(nèi)有一組單選鈕控件數(shù)組，分別選擇不同的時(shí)間值。只有選擇時(shí)間后，命令按鈕才可以使用。提示：需要編程的事件 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

9、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 = 時(shí)間到! Command1.

10、Enabled = TrueEnd IfEnd Sub5.補(bǔ)充題3 參考Design31.exe文件的運(yùn)行結(jié)果，新建一個(gè)Design31.Vbp工程，完成應(yīng)用程序的設(shè)計(jì)（其中窗體文件請(qǐng)命名為Design31.frm）。具體要求如下：1）在窗體上放置一個(gè)水平滾動(dòng)條、一個(gè)標(biāo)簽框和一個(gè)命令按鈕。2）單擊滾動(dòng)條左右箭頭時(shí)，標(biāo)簽上的字可以左右移動(dòng)，標(biāo)簽移動(dòng)范圍等于滾動(dòng)條的范圍。提示：需要編程的事件 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