的設計順序結(jié)構(gòu)程序課件

第3章設計順序結(jié)構(gòu)程序VisualBasic程序設計教程第3章設計順序結(jié)構(gòu)程序VisualBasic程序設計本章主要介紹:VB的語法、注釋、書寫風格VB常用的函數(shù)和語句等介紹VB程序的順序結(jié)構(gòu)、常用控件：——命令按鈕、標簽、文本框、滾動條、定時器。如何調(diào)試程序，即如何發(fā)現(xiàn)程序中的問題并解決這些問題。VisualBasic程序設計教程2本章主要介紹:VisualBasic程序設計教程2VB程序設計有兩個部分的工作：一是進行界面的設計二是根據(jù)程序所需要解決的問題，編寫完成解決問題的程序代碼一個程序應該具有良好的結(jié)構(gòu)，以便于閱讀和理解。為了增加程序的易讀性，荷蘭學者ijkctra提出了結(jié)構(gòu)化程序設計的理論，VB是融合了面向?qū)ο蠛徒Y(jié)構(gòu)化編程兩種思想的一個編程工具。VisualBasic程序設計教程33.1概述VB程序設計有兩個部分的工作：VisualBasic程序設結(jié)構(gòu)化程序設計：用三種基本結(jié)構(gòu)作為構(gòu)成程序的基本單元順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)每個基本結(jié)構(gòu)具有單入口單出口的特點。一般一個程序由這三種結(jié)構(gòu)結(jié)合而成。VisualBasic程序設計教程4結(jié)構(gòu)化程序設計：用三種基本結(jié)構(gòu)作為構(gòu)成程序的基本單元Visu順序結(jié)構(gòu)的主要特點是：按自然順序（即編寫的順序）執(zhí)行程序的流程，即先執(zhí)行第一句，再執(zhí)行第二句，一句一句執(zhí)行下去，直到執(zhí)行最后一句。流程如圖所示:

VisualBasic程序設計教程5順序結(jié)構(gòu)的主要特點是：VisualBasic程序設計教程5通過例子，了解順序結(jié)構(gòu)的程序的一般形況【例3-1】求攝氏溫度對應的華氏溫度。如圖。計算公式：F=9C/5+32，其中C表示攝氏溫度，F(xiàn)表示華氏溫度。VisualBasic程序設計教程6通過例子，了解順序結(jié)構(gòu)的程序的一般形況VisualBasi對象：2個標簽：作提示2個文本框：作輸入和顯示3個命令按鈕控件單擊“計算”按鈕，右文本框內(nèi)顯示出該攝氏溫度對應的華氏溫度。單擊“清除”按鈕使得文本框的內(nèi)容被清除單擊“退出”按鈕結(jié)束程序運行。

VisualBasic程序設計教程7對象：VisualBasic程序設計教程7本例使用四個事件過程：一個Form_Load()和三個是命令按鈕的Click事件。主要屬性設置命令按鈕1：（名稱）：CmdCalcCaption：計算命令按鈕2：（名稱）：CmdClearCaption：清除命令按鈕3：（名稱）：CmdExitCaption：退出標簽1（Label1）：Caption：攝氏溫度標簽2（Label2）：Caption：華氏溫度窗體：Caption：溫度轉(zhuǎn)換VisualBasic程序設計教程8本例使用四個事件過程：VisualBasic程序設計教程8OptionExplicit'要求強制聲明變量PrivateSubCmdCalc_Click()'計算

DimCAsSingle,FAsSingle

C=Val(Text1.Text)

F=9*C/5+32

Text2.Text=FEndSubPrivateSubCmdClear_Click()'清除

Text1.Text=""

Text2.Text="“EndSubPrivateSubCmdExit_Click()'終止程序運行

EndEndSubPrivateSubForm_Load()'啟動時，清除文本框內(nèi)容

Text1.Text=""

Text2.Text="“EndSubVisualBasic程序設計教程9本例每個事件代碼都依順序執(zhí)行。OptionExplicit'要求強制聲明變量Vis

編寫程序有一定的規(guī)則，這就是語法。如數(shù)學中x乘y可以寫成xy，但在程序中不能。程序中除了“”所有的內(nèi)的字符串外，其它一律使用西文符號。如：>、<、=、+、-等都必須是西文符號。VisualBasic程序設計教程103.3VB語法和注釋編寫程序有一定的規(guī)則，這就是語法。如數(shù)學中x3.3.1語法符號在程序設計語言中，每一條語句都有語法規(guī)則。本書在語法描述中，常常使用以下符號：

1．[]:表示可選項。

2．<>:語句中的基本單位?？梢灾苯咏o出，也可以用<>表示。

VisualBasic程序設計教程113.3.1語法符號VisualBasic程序設計教程13．{}及其內(nèi)的|：表示多個項目，一般只能選擇其中一個。4．…：表示重復前面的內(nèi)容。

如Print方法格式為：

Print[輸出項][{；|，}[輸出項]…][{；|，}]

Print[<輸出項>][{；|，}[<輸出項>]…][{；|，}]

注意：這些只是書寫格式，并不是VB的語言元素。VisualBasic程序設計教程123．{}及其內(nèi)的|：表示多個項目，一般只能選擇其中一個3.3.2注釋使用注釋記錄編程思路或明確這段程序的目的。使用注釋提高程序的可讀性。注釋部分不是程序代碼，它不會被執(zhí)行。注釋不是用得越多越好。一般針對主要程序段、主要變量、關(guān)鍵語句等。VisualBasic程序設計教程133.3.2注釋VisualBasic程序設計教程13注釋使用有兩種方法：使用西文單引號“'”

C=Text1.Text'將文本框數(shù)據(jù)送入變量C使用關(guān)鍵字Rem

格式：Rem注釋文字

Rem計算攝氏溫度對應的華氏溫度值。注釋不是用得越多越好一般針對主要程序段、主要變量、關(guān)鍵語句等VisualBasic程序設計教程14注釋使用有兩種方法：VisualBasic程序設計教程143.3.3程序代碼書寫規(guī)則1．續(xù)行一行中字符數(shù)太多，可以分多行書寫方法：前一行的末尾要使用續(xù)行符：“_”。如：

Score=Val(InputBox("請輸入“計算機”課程成績(0-100)：",_

"輸入成績",60))續(xù)行符后面不能加注釋不要在一個字符串或關(guān)鍵字的中間截斷行當句子不長時，最好不要用續(xù)行。VisualBasic程序設計教程153.3.3程序代碼書寫規(guī)則VisualBasic程序設2．多條語句寫在一行內(nèi)使用的方法：在各句之間用冒號“:”分隔。如要交換變量A和B中的值，可以使用：

T=A:A=B:B=TVisualBasic程序設計教程162．多條語句寫在一行內(nèi)VisualBasic程序設計教程13．使用縮進格式為了增加程序的可讀性，代碼應采用縮進格式。它可以反映出代碼的邏輯結(jié)構(gòu)和嵌套關(guān)系。如：

……

……

……

……

……

……

……VisualBasic程序設計教程173．使用縮進格式VisualBasic程序設計教程17利用這些語句和函數(shù)可以編寫許多程序。語句是VB程序代碼的組成部分，函數(shù)是VB語言組成部分的另一種形式它把一些常用的功能預先編制好程序以固定的格式提供給用戶使用，可以大大減少了編程者的代碼設計工作。VisualBasic程序設計教程183.4語句和函數(shù)利用這些語句和函數(shù)可以編寫許多程序。VisualBasic3.4.1VB的語句語句獨立于對象。語句一般分兩類：執(zhí)行語句使計算機產(chǎn)生一種特定的操作，如賦值、循環(huán)等。 非執(zhí)行語句非執(zhí)行語句用來將某些信息通知翻譯系統(tǒng)，讓VB翻譯系統(tǒng)按它的要求作出處理。如Dim、Const、Rem等。VisualBasic程序設計教程193.4.1VB的語句VisualBasic程序設計教程一個語句一般包含兩部分：語句定義符部分規(guī)定了要讓計算機干什么。如：Dim語句體部分指要干的具體內(nèi)容。如：AAsIntegerVisualBasic程序設計教程20一個語句一般包含兩部分：VisualBasic程序設計教程3.4.2

Stop語句和End語句1．Stop

作用：暫停程序的運行。使用格式為：Stop一般用于程序調(diào)試中。如暫停以查看一下前面運行的結(jié)果是否正確若要繼續(xù)執(zhí)行，可用工具欄的“繼續(xù)”按鈕。2．End

作用：終止程序的運行。使用格式為：End終止程序的運行將卸載所有窗體模塊VisualBasic程序設計教程213.4.2Stop語句和End語句VisualBasi3.4.3什么是函數(shù)函數(shù)是一些量依賴于另一些量的概括例如數(shù)學表達式y(tǒng)=Sin(x)y為函數(shù)值x為自變量計算機中，函數(shù)表示類似于數(shù)學中的這種關(guān)系計算機中，函數(shù)由相對獨立的程序代碼實現(xiàn)的。VB系統(tǒng)提供了一部分函數(shù)，稱為VB內(nèi)部函數(shù)用戶可以直接調(diào)用VB函數(shù)VisualBasic程序設計教程223.4.3什么是函數(shù)VisualBasic程序設計教程3.4.4使用函數(shù)VB的內(nèi)部函數(shù)一般分為：數(shù)學函數(shù)、字符串函數(shù)、日期/時間函數(shù)、轉(zhuǎn)換函數(shù)等VB內(nèi)部函數(shù)調(diào)用的基本格式是：函數(shù)名(參數(shù)1,參數(shù)2,……,參數(shù)n)參數(shù)是函數(shù)的輸入。n>=0一般函數(shù)有一個返回值，類型可以是數(shù)值型或字符型等。VisualBasic程序設計教程233.4.4使用函數(shù)VisualBasic程序設計教程2函數(shù)可以被用于表達式中，如X=-B+Sqr(D)函數(shù)調(diào)用時，函數(shù)名、參數(shù)個數(shù)、排列次序和數(shù)據(jù)類型應與規(guī)定的一致函數(shù)的運算優(yōu)先級高于其它運算符，低于括號()。VisualBasic程序設計教程24函數(shù)可以被用于表達式中，如X=-B+Sqr(D)Vi3.4.5常用函數(shù)舉例（1）求平方根函數(shù)Sqr。格式：Sqr(x)對x開平方根。X>=0（2）取整函數(shù)Int。格式：Int(x)求不大于x的最大整數(shù)。Int不進行四舍五入。如：PrintInt(-3.4),Int(3.8),顯示：-43（3）取整函數(shù)Fix。格式：Fix(x)求x的整數(shù)部分。Fix也不進行四舍五入。如：

PrintFix(-3.4),Fix(3.8),顯示：-33VisualBasic程序設計教程253.4.5常用函數(shù)舉例VisualBasic程序設計教（4）四舍五入函數(shù)Round。格式：Round(x1[,x2])省略x2(>=0)時表示四舍五入取整。它將x1四舍五入保留小數(shù)x2位。如：

PrintRound(12.455,2),Round(-12.57),Round(12.34,1)

顯示：12.46-1312.3VisualBasic程序設計教程26（4）四舍五入函數(shù)Round。VisualBasic程序設（5）絕對值函數(shù)Abs。格式：Abs(x)該函數(shù)求出x的絕對值。如：Abs(-25)的值為：25。（6）正弦函數(shù)Sin。格式：Sin(x)該函數(shù)用于求x的正弦值。參數(shù)一律采用弧度。如sin90°的VB函數(shù)表達式應為Sin(3.1415926/2)。VisualBasic程序設計教程27（5）絕對值函數(shù)Abs。格式：Abs(x)VisualBa（7）隨機函數(shù)Rnd。使用格式為：Rnd[(x)]返回一個隨機Single型數(shù)，范圍在(0,1)之間。參數(shù)x決定了產(chǎn)生隨機數(shù)的方法。如果x<0時，相同x將得到相同的值。當x=0時將得到最近出現(xiàn)過的隨機數(shù)。VisualBasic程序設計教程28（7）隨機函數(shù)Rnd。使用格式為：Rnd[(x)]Visuax默認或x>0，將產(chǎn)生下一個隨機數(shù)。例如：

PrintRnd(-1),Rnd(-2),Rnd(0),Rnd(-1),Rnd(0),Rnd

.224007.7133257.7133257.224007.224007 .7055475例如隨機給出兩位數(shù)A和B，可用:A=Int(Rnd*90+10):B=Int(Rnd*90)+10產(chǎn)生隨機數(shù)種的語句格式為：RandomizeVisualBasic程序設計教程29x默認或x>0，將產(chǎn)生下一個隨機數(shù)。例如：

PrintRn（8）轉(zhuǎn)換函數(shù)Val()。格式：Val(x$)將參數(shù)對應的字符串值中的最前部的數(shù)字字符轉(zhuǎn)換為數(shù)值。如：

PrintVal(“12.3abc”),Val(“-12.367.8abc”),Val(“abc123”)

顯示：12.3-12.3670（9）顏色函數(shù)QBColor。格式：QBColor(x)根據(jù)x的值產(chǎn)生一種顏色，其中0≤x≤15QBColor(0)為黑色，QBColor(15)為白色。例如：Form1.BackColor=QBColor(12)VisualBasic程序設計教程30（8）轉(zhuǎn)換函數(shù)Val()。格式：Val(x$)Visual（10）顏色函數(shù)RGB。格式：RGB(x1,x2,x3)該函數(shù)將根據(jù)x1、x2和x3的值產(chǎn)生一種顏色。各參數(shù)范圍一般應為0~255?？杀硎?24種顏色。x1表示紅色成分x2表示綠色成分x3表示藍色成分。部分顏色可用顏色常量或顏色值(3個字節(jié))，如：vbBlack&H0黑

Form1.BackColor=RGB(255,0,0)

Form1.ForeColor=RGB(255,255,0)VisualBasic程序設計教程31（10）顏色函數(shù)RGB。格式：RGB(x1,x2,x3)Vi3.4.5常用函數(shù)舉例——與Print相關(guān)的定位函數(shù)這類函數(shù)后面往往采用分號“;”間隔符。（1）輸出絕對定位函數(shù)Tab。格式：Tab(x)該函數(shù)表示將輸出位置定位到第x列。如果位置已超過x列，則定位下一行的第x列。（2）輸出相對定位函數(shù)Spc。格式：Spc(x)輸出位置從當前位置開始，空出x列。

VisualBasic程序設計教程323.4.5常用函數(shù)舉例——與Print相關(guān)的定位函數(shù)Vi3.4.5常用函數(shù)舉例【例3-2】在Form_Click內(nèi)完成求平行四邊形的面積。面積公式：S=absint。a、b為邊長，t為夾角，使用角度。要求結(jié)果保留小數(shù)兩位本題使用多個函數(shù)：用InputBox函數(shù)輸入a、b和t，用Val函數(shù)把它們轉(zhuǎn)換成數(shù)值類型用Sin函數(shù)計算面積用Round函數(shù)對面積值進行四舍五入。本例程序按順序依次執(zhí)行VisualBasic程序設計教程333.4.5常用函數(shù)舉例VisualBasic程序設計教3.4.5常用函數(shù)舉例-求梯形面積PrivateSubForm_Click()

ConstPI=3.1415926'用于設置符號常量

DimAAsSingle,BAsSingle,TAsSingle,SAsSingle

A=Val(InputBox("請輸入邊長a"))

B=Val(InputBox("請輸入邊長b"))

T=Val(InputBox("請輸入角度t"))

S=Round(A*B*Sin(T*PI/180),2)

Print"a=";A,"b=";B,"t=";T,"S=";SEndSub

運行結(jié)果：當啟動窗體后，單擊窗體，然后分別輸入15、40、35，窗體上顯示為：VisualBasic程序設計教程343.4.5常用函數(shù)舉例-求梯形面積VisualBasiVB的有兩類控件：工具箱中的常用控件通過“部件”的控件?！癆ctiveX控件”本節(jié)介紹最常用的控件：命令按鈕標簽文本框滾動條定時器VB控件有(名稱)屬性，大多部分有Caption、Top、Left、Height、Width、Font、Visible、Enabled等屬性，含義基本相同VisualBasic程序設計教程353.5使用基本控件VB的有兩類控件：VisualBasic程序設計教程3533.5.1命令按鈕CommandButton是用戶與應用程序交互的最簡便方法往往使用單擊命令按鈕來執(zhí)行指定的操作。1．創(chuàng)建命令按鈕方法一：工具箱內(nèi)選取命令按鈕，然后在窗體上拖曳鼠標就可以畫出一個命令按鈕方法二：雙擊工具箱內(nèi)的命令按鈕2．命令按鈕的事件

命令按鈕的主要事件是Click。VisualBasic程序設計教程363.5.1命令按鈕CommandButtonVisual3．命令按鈕的屬性Caption：標題，字符型。默認值為Command1(名稱)：Name名稱，字符型。默認值為Command1Enabled：是否有效，布爾型。Visible：是否可見，布爾型。Style：按鈕顯示方式，0表示文字，1表示圖形。Picture：按鈕顯示的圖形。它要求屬性Style值應為1。VisualBasic程序設計教程373．命令按鈕的屬性VisualBasic程序設計教程37說明：注意（名稱）和Caption的區(qū)別。（名稱）是程序使用的標識符。Caption是界面顯示的文字（名稱）設置后，程序中所有用到該對象的地方，對象名都要用設置的名稱，原默認名稱無效。設置快捷鍵：可在Caption屬性中加上“&”。例如：Caption設置為“E&xit”或“Exit[&x]”VisualBasic程序設計教程38說明：VisualBasic程序設計教程38【例3-3】窗體上設計2個圖形命令按鈕，它們分別用于顯示信息和結(jié)束程序，如圖。若用戶在命令按鈕外單擊，用消息框提示“不要點錯位置”。主要屬性設置兩個命令按鈕：Caption：空；Style：1；Picture：選擇圖形文件窗體Form1Caption：顯示VisualBasic程序設計教程39【例3-3】窗體上設計2個圖形命令按鈕，它們分別用于顯示信息3.5.1

命令按鈕—圖案按鈕舉例程序代碼如下:

PrivateSubCommand1_Click()

Print"Hello!"

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Click()'按鈕外單擊提示

MsgBox"不要點錯位置",vbCritical,"警告"

EndSubVisualBasic程序設計教程403.5.1命令按鈕—圖案按鈕舉例VisualBasic3.5.2標簽Label用來顯示用戶不能直接改變的文本：用作標注其他控件用作程序代碼執(zhí)行時顯示程序結(jié)果等信息1．創(chuàng)建標簽創(chuàng)建標簽使用工具箱中的標簽。VisualBasic程序設計教程413.5.2標簽LabelVisualBasic程序設計2．標簽的常用屬性Caption：標題，即顯示的文本。默認值為Label1。（名稱）Name。設置標簽名稱。默認值為Label1AutoSize：設置標簽是否根據(jù)顯示內(nèi)容自動改變大小Backstyle：設置標簽透明背景Borderstyle：設置標簽邊框WordWrap：設置標簽內(nèi)的文字自動換行，布爾型。Alignment：設置標簽顯示的對齊方式VisualBasic程序設計教程422．標簽的常用屬性VisualBasic程序設計教程42說明：Label1中，第5個是小寫字母l，最后一個是數(shù)字1設置WordWrap為True時，此時應把AutoSize設為True，否則除非標簽有足夠的高度。標簽也有一些事件，但不常用。VisualBasic程序設計教程43說明：VisualBasic程序設計教程433.5.3文本框TextBox處理字符類型數(shù)據(jù)文本框控件的功能非常強大，在控件中可以：輸入文本、編輯文本和輸出文本被程序用來讀取和顯示信息1．創(chuàng)建文本框

在工具箱內(nèi)選取文本框工具VisualBasic程序設計教程443.5.3文本框TextBoxVisualBasic程2．文本框的主要屬性（名稱）：Name。字符型。默認值為Text1Text：文本框顯示的內(nèi)容，字符型。默認值Text1。它是文本框最重要的屬性Locked：選擇文本框是否允許編輯，布爾型。SelStart：選中文本的起始位置，或插入點位置如：Text1.SelStart=0VisualBasic程序設計教程452．文本框的主要屬性VisualBasic程序設計教程45SelLength：文本框內(nèi)被選中文本的長度，數(shù)值類型。SelText：文本框內(nèi)被選中的文本，字符型MaxLength：設置文本框中能輸入的最大字符數(shù)MultiLine：是否能多行顯示Scrollbars：設置文本框加滾動條。與MultiLine有關(guān)PasswordChar：設置輸入文本的特殊顯示字符。如*VisualBasic程序設計教程46SelLength：文本框內(nèi)被選中文本的長度，數(shù)值類型。Vi說明：文本框沒有Caption屬性。SelStart、SelLength、SelText屬于文本編輯屬性，只能在程序中設置。3．文本框的方法主要方法是設置焦點的SetFocus方法。格式：文本框名稱.SetFocusVisualBasic程序設計教程47說明：VisualBasic程序設計教程474．文本框的事件有Click、DblClick等鼠標事件還常用：Change事件：在文本框內(nèi)容發(fā)生改變時觸發(fā)。KeyPress事件：它在用戶按任意鍵時觸發(fā)VisualBasic程序設計教程484．文本框的事件VisualBasic程序設計教程48【例3-4】改寫例3-1，啟動窗體后，用戶在Text1內(nèi)輸入攝氏溫度的同時，Text2立即自動顯示對應的華氏溫度。要求Text2不能輸入數(shù)據(jù)。說明：

Text2不能輸入數(shù)據(jù)，可設置Enabled或Locked屬性。邊輸入邊計算顯示，應編寫Text1的Change事件過程Form_Load同例3-1，其它程序代碼如下：

PrivateSubText1_Change()

DimCAsSingle,FAsSingle

C=Val(Text1.Text)

F=9*C/5+32

Text2.Text=F

EndSubVisualBasic程序設計教程49【例3-4】改寫例3-1，啟動窗體后，用戶在Text1內(nèi)輸入剪貼板對象的使用剪貼板不是VB的控件，它是Windows部件它能夠和文本框合用，制作簡單的文本編輯器。剪貼板對象的名稱是Clipboard，常用方法有：

（1）Clear：清除剪貼板中的內(nèi)容。

（2）GetText：返回剪貼板上的所有字符。

（3）SetText：將字符串送入剪貼板VisualBasic程序設計教程50剪貼板對象的使用VisualBasic程序設計教程50Clipboard.Clear清除剪貼板原有的內(nèi)容；Clipboard.SetTextText1.SelText將文本框Text1中選擇的內(nèi)容送入剪貼板；Text1.SelText=Clipboard.GetText將剪貼板的內(nèi)容放入文本框Text1中插入點所在位置，或替換文本框中當前已選中的文字。VisualBasic程序設計教程51Clipboard.ClearVisualBasic程序設3.5.4滾動條

(VscrollBar和HscrollBar)滾動條可用于滾動顯示窗口內(nèi)容。滾動條還可作為模糊輸入數(shù)值的輸入裝置。VB工具箱內(nèi)提供了垂直和水平兩種滾動條。VisualBasic程序設計教程523.5.4滾動條

(VscrollBar和Hscroll1．創(chuàng)建滾動條在工具箱內(nèi)選取滾動條工具按鈕。2．滾動條控件的常用屬性（名稱）：Name名稱。垂直VScroll1，水平HScroll1Value：滾動條當前值。位于屬性Min和Max的值之間Min：滾動條最小值。應大于等于-32768Max：滾動條最大值。應小于等于32767SmallChange：單擊滾動箭頭時的改變量LargeChange：單擊滾動塊與滾動箭頭間的任意位置，滾動條值的改變量VisualBasic程序設計教程531．創(chuàng)建滾動條VisualBasic程序設計教程533．滾動條控件的事件

主要是Change事件和Scroll事件。

（1）Change事件。當滾動塊在滾動條上移動時，其Value值發(fā)生變化，出現(xiàn)Change事件。（2）Scroll事件。當鼠標拖動滾動塊時發(fā)生。VisualBasic程序設計教程543．滾動條控件的事件

主要是Change事件和Scroll事【例3-5】編寫一個利用滾動條來顯示顏色的程序，如圖。說明：顏色使用RGB函數(shù)用3個滾動條分別表示RGB紅、綠、藍顏色成份（3個參數(shù)）的變化。滾動條的Change事件：將滾動塊變化時的相應的顏色將反映在文本框中6個標簽：表示各滾動條的顏色和值VisualBasic程序設計教程55【例3-5】編寫一個利用滾動條來顯示顏色的程序，如圖。說明：屬性設置：滾動條的Max：255，SmallChange：10；LargeChange：20其它對象的Caption屬性值如圖。VisualBasic程序設計教程56屬性設置：VisualBasic程序設計教程56程序代碼如下：

PrivateSubHScroll1_Change()'紅

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label4.Caption=HScroll1.Value

EndSub

PrivateSubHScroll2_Change()'綠

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label5.Caption=HScroll2.Value

EndSub

PrivateSubHScroll3_Change()'藍

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label6.Caption=HScroll3.Value

EndSubVisualBasic程序設計教程57程序代碼如下：VisualBasic程序設計教程57專門用于時間控制的控件，又稱計時器控件。可以有規(guī)律地間隔一段時間觸發(fā)一次定時事件，從而執(zhí)行一次代碼以實現(xiàn)某種有時間規(guī)律的操作。時間間隔由Interval屬性決定例如可以顯示時間，可以控制打字速度，可以制作有動態(tài)效果的程序等。每個定時器必須依附在窗體上用戶可以在窗體上建立多個定時器。定時器控件在程序運行時是不可見的定時器沒有大小。VisualBasic程序設計教程583.6使用定時器控件Timer專門用于時間控制的控件，又稱計時器控件。VisualBas1．創(chuàng)建定時器

在工具箱內(nèi)選取定時器控件2．定時器的常用屬性（名稱）：Name。定時器的名稱。默認值為Timer1Interval：設定定時器的時間間隔，單位毫秒，即1/1000秒，最大65536。它是定時器控件最主要的屬性。默認為0，定時器不工作Enabled：是否讓定時器工作。默認值為True。VisualBasic程序設計教程591．創(chuàng)建定時器

在工具箱內(nèi)選取定時器控件VisualBas3．定時器的事件定時器事件只有一個，即Timer事件：Timer事件有規(guī)律地隔一段時間（由Interval決定）觸發(fā)一次1VisualBasic程序設計教程603．定時器的事件VisualBasic程序設計教程60【例3-6】設計一個顯示當前時鐘的程序，如圖。因文本框只顯示信息，Enabled屬性可為False；時鐘1秒鐘變化一次，定時器Interval值為1000。程序非常簡單，代碼如下。

PrivateSubTimer1_Timer()'每隔1秒鐘運行1次

Text1.Text=Time'Time是VB內(nèi)部函數(shù)，EndSub賦值時，VB自動將日期型數(shù)據(jù)轉(zhuǎn)換成與賦值左邊變量或?qū)傩灶愋鸵恢碌臄?shù)據(jù)VisualBasic程序設計教程61【例3-6】設計一個顯示當前時鐘的程序，如圖。Visual3.7.1程序錯誤的種類和產(chǎn)生的原因調(diào)試過程就是一個發(fā)現(xiàn)錯誤并糾正錯誤的過程。VB程序錯誤分三類編譯錯誤代碼不符合語法格式要求，如語句不完整，參數(shù)個數(shù)不符等可根據(jù)錯誤信息糾正編譯錯誤VisualBasic程序設計教程623.7調(diào)試VB程序3.7.1程序錯誤的種類和產(chǎn)生的原因VisualBas邏輯錯誤一般是指程序能運行，但運行結(jié)果不正確。這類錯誤只有通過分析程序，才能發(fā)現(xiàn)問題所在，如公式錯。運行錯誤一般是執(zhí)行了不能執(zhí)行的操作而引起的。如分母為零可根據(jù)提示錯誤信息，進入調(diào)試，找出錯誤所在處。為減少錯誤，編程時可采用一定的措施，如使用OptionExplicit語句VisualBasic程序設計教程63邏輯錯誤VisualBasic程序設計教程633.7.2調(diào)試程序VB中常用的調(diào)試方法有：設置斷點、單步執(zhí)行、查看中間運行結(jié)果等。1．設置斷點設置斷點方式：在代碼窗口左側(cè)的“邊界標識條”中該行對應的位置處單擊；程序運行設置了斷點(BreakPoint)的代碼行時，在執(zhí)行該代碼之前停止運行，進入中斷模式。進入中斷模式后，當前行指示器指示程序暫停在該行。這時可以在代碼窗口或“立即窗口”檢查程序狀態(tài)。VisualBasic程序設計教程643.7.2調(diào)試程序VisualBasic程序設計教程62．單步執(zhí)行單步(Step)執(zhí)行可以功能鍵F8。每按一次F8，程序就執(zhí)行一行，執(zhí)行指示器就指向下一行。單步執(zhí)行，可以監(jiān)視變量，還可以跟蹤程序流程。特別是分支和循環(huán)程序。VisualBasic程序設計教程652．單步執(zhí)行VisualBasic程序設計教程653．查看中間運行結(jié)果中斷和單步方式都可以在程序暫停狀態(tài)下查看中間運行結(jié)果：使用立即窗口程序中添加Print語句使用VB的Tip顯示當前變量的值。VisualBasic程序設計教程663．查看中間運行結(jié)果VisualBasic程序設計教程66另一種查看程序中間結(jié)果的方法是使用監(jiān)視窗口在程序運行過程中，監(jiān)視窗口中的表達式值隨之變化。添加監(jiān)視的方法：在代碼編輯器中使用快捷菜單“添加監(jiān)視”命令選擇調(diào)試代碼所在的模塊和過程輸入要監(jiān)視值的表達式。VisualBasic程序設計教程67另一種查看程序中間結(jié)果的方法是使用監(jiān)視窗口VisualBa【例3-7】已知三角形的三條邊長a、b、c，求面積。公式為：

其中：s=(a+b+c)/2要求a、b、c來自文本框用Msgbox顯示面積(保留小數(shù)兩位)。label4在運行中臨時顯示a+b-c、b+c-a、a+c-b的值Command1用于計算，Command2用于退出定時器用于在窗體標題上顯示當前的時間。VisualBasic程序設計教程683.8程序舉例【例3-7】已知三角形的三條邊長VisualBasic程序分析：能構(gòu)成三角形時才有意義，可在顯示a+b-c、b+c-a、a+c-b值后，加上Stop語句，或使用斷點，進行觀察。VisualBasic程序設計教程69分析：VisualBasic程序設計教程69求三角形面積PrivateSubForm_Load()'設置屬性

Text1.Text="":Text2.Text="":Text3.Text="“

Label1.Caption=”a=“:Label2.Caption=“b=”:Label3.Caption=“c=”

Label4.Caption=“”:Timer1.Interval=1000

Command1.Caption=“計算”:Command2.Caption=“退出”

Form1.Caption=“三角形面積計算”&Time

EndSub

VisualBasic程序設計教程70PrivateSubTi