VB三種程序結構

3.2VB三種程序結構VisualBasic語言作為結構化程序設計語言，提供了三種控制流來控制程序的流程：順序，條件分支和循環(huán)語句。3.2.1順序結構順序結構程序中的語句依照其在程序中的位置依次順序地執(zhí)行。1、賦值語句格式：變量名/對象.屬性名=表達式功能：將賦值號右邊表達式的值賦給賦值號左邊的變量或?qū)ο髮傩?。舉例：Form1.width=300 Temp=20說明：1、當表達式為數(shù)值型且與變量的精度不相同時，強制轉(zhuǎn)換成左邊變量的精度。例如：DimAasinteger A=4.7ˊA是整型變量，A中的結果是5。

2、當表達式是數(shù)字字符串，左邊變量是數(shù)值類型時，自動轉(zhuǎn)換成數(shù)值類型再賦值；但當表達式有非數(shù)字字符或空串時，則出錯。例如；

n=“123”‘n中的結果是123’n為整形

n=“1a23”‘出現(xiàn)“類型不匹配”的錯誤3、當邏輯型賦值給數(shù)值型時，True轉(zhuǎn)換為-1，F(xiàn)alse轉(zhuǎn)換為0；反之，當數(shù)值型賦給邏輯型時，非0轉(zhuǎn)換為True，0轉(zhuǎn)換為False.2、MsgBox函數(shù)：向用戶顯示信息（輸出）MsgBox語句:MsgBox

（提示內(nèi)容[,答復按鈕+圖標][,標題]）MsgBox函數(shù)：DimxAsIntegerX=MsgBox(提示內(nèi)容[,答復按鈕+圖標][,標題])功能：打開一個消息框，等待用戶選擇一個按鈕。MsgBox函數(shù)返回所選按鈕對應的整數(shù)值，其數(shù)值的意義見后表。若不需要返回值，則作為MsgBox語句。參數(shù)說明提示內(nèi)容：顯示給用戶的信息。最長1024字符。如果

內(nèi)容超過一行，則可以在每一行之間用回車符

Chr(13))、換行符

(Chr(10))或是回車與換行符的組合

(Chr(13)&Chr(10))將各行分隔開來。

答復按鈕+圖標：確定在消息框中按鈕的數(shù)目和類型，以及圖標的類型。標題：顯示在消息框標題欄上的文本。分組內(nèi)部常數(shù)按鈕值描述按鈕數(shù)目VbOkOnlyVbOkCancelVbAboutRetryIgnoreVbYesNoCancelVbYesNoVbRetryCancel012345只顯示確定按鈕顯示"確定"、"取消"按鈕顯示"終止"、"重試"、"忽略"按鈕顯示"是"、"否"、"取消"按鈕顯示"是"、"否"顯示"重試"、"取消"按鈕圖標類型VbCriticalVbQuestionVbExclamationVbInformation16324864關鍵信息圖標，紅色STOP標志詢問信息圖標？警告信息圖標！信息圖標I默認按鈕VbDefaultButton1VbDefaultButton2VbDefaultButton30256512第1個按鈕為默認第2個按鈕為默認第3個按鈕為默認模式VbApplicationModaleVbSystemModal04096應用模式系統(tǒng)模式"按鈕"設置值及意義內(nèi)部常數(shù)返回值被單擊的按鈕vbOkvbCancelvbAboutvbRetryvbIgnorevbYesvbNo1234567確定取消終止重試忽略是否MsgBox函數(shù)返回所選按鈕整數(shù)值的意義3、InputBox函數(shù)：從用戶處獲取信息（輸入）功能：打開一個對話框，等待用戶鍵入內(nèi)容。當用戶單擊"確定"按鈕或按回車鍵時，函數(shù)返回輸入的值，其值的類型為字符串。（1）句法

變量名=InputBox(提示[,標題][,默認值][橫坐標，縱坐標])

（2）參數(shù)說明提示：提示信息，類型是字符串。標題：是對話框窗口中的標題文本，類型是字符串。默認值：在用戶輸入信息之前，輸入框中顯示的內(nèi)容，類型是字符串。

例：bb=MsgBox("錯誤，重輸嗎？",vbYesNo+vbDefaultButton2+vbCritical,"確認重輸對話框")Ifbb=vbNoThenEnd4、print語句格式1：對象.Print[表達式][{，|；}]功能：顯示數(shù)據(jù)。對象可以是窗體（Form）、圖形框(PictureBox)或打印機（Printer）。如果省略了對象，則在窗體上輸出。說明：①表達式：可選項。可以是一個或多個表達式。當有多個表達式時，要用分隔符（逗號、分號）隔開。當表達式缺省時，則屏幕顯示一個空行。

②輸出格式分為標準輸出格式和緊湊輸出格式。標準輸出格式：以14個字符寬度劃分為一個區(qū)段，每個數(shù)據(jù)項占一個區(qū)段的位置。（數(shù)據(jù)項之間用逗號隔開）緊湊輸出格式：對于數(shù)值型數(shù)據(jù)，前面有一個符號位，后面有一個空格；對于每個字符串，各個數(shù)據(jù)項之間沒有間隔。（各數(shù)據(jù)項之間用分號或空格作為分隔符）格式2：[對象.]Print[Spc(n)/Tab(n)][表達式表]Spc(n)函數(shù)：用于在輸出時插入n個空格。Tab（n）函數(shù)：表示在第n列顯示。3.2.2常用內(nèi)部函數(shù)內(nèi)部函數(shù)數(shù)學函數(shù)轉(zhuǎn)換函數(shù)字符串函數(shù)日期函數(shù)函數(shù)名含義示例結果Abs(N)Exp(N)Log(N)Rnd[(N)]Sgn(N)Sqr(N)Sin(N)Cos(N)Tan(N)Round(x,n)取絕對值e為底的指數(shù)函數(shù)，即ex以e為底的自然對數(shù)產(chǎn)生隨機數(shù)符號函數(shù)(1,0,-1)平方根正弦函數(shù)余弦函數(shù)正切函數(shù)四舍五入函數(shù)Abs(-3.5)Exp(3)Log(10)RndSgn(-3.5)Sqr(9)Sin(0)Cos(0)Tan(0)3.520.0862.30-1之間的數(shù)-13010一數(shù)學函數(shù)?Round(3.89456,3)結果:3.895說明：☆在三角函數(shù)中，以弧度表示；sqr的自變量不能是負數(shù)

☆Rnd函數(shù)返回小于1，大于等于0的單精度隨機數(shù)。VB用于產(chǎn)生隨機數(shù)的公式取決于稱為種子（seed）的初始值。默認情況下，每次運行一個應用程序，VB提供一相同的種子，即Rnd產(chǎn)生相同序列的隨機數(shù)。為了每次運行時，產(chǎn)生不同序列的隨機數(shù)，可執(zhí)行Randomize語句，格式如下：

Randomize[number]如果省略number，則用系統(tǒng)計時器返回的值作為新的種子Rnd(x):x<=0:得到的相同的隨機數(shù)結果。大于0:序列中的下一個。省略:序列中的下一個隨機數(shù)。例子：int((b-a+1)*rnd)+a

要產(chǎn)生30～50之間的隨機數(shù)

int(Rnd*21)+30二、字符串函數(shù)☆Len()函數(shù) 格式：Len(String)

功能：計算字符串的長度。 例子：Len("Visual")函數(shù)返回值為6Mid()函數(shù) 格式：Mid(String,n,m)

功能：從String字符串中從第n個字符開始連續(xù)取m個字符。 例子：Mid("VisualBasic6.0",7,5)函數(shù)返回值是"Basic"☆☆InStr()函數(shù) 格式：InStr([n,]string1,string2)

功能；在string1中從n開始查找string2，如果存在，函數(shù)值為string2在string1中的位置值；找不到時函數(shù)的值為0。n是可選參數(shù)。為數(shù)值表達式，設置每次搜索的起點。如果省略，將從第一個字符的位置開始。 例子：PrintInStr(2,"efabcdefg","ef")函數(shù)返回值為7刪除前后空格函數(shù)格式：TRIM(<字符表達式>):去掉前后空格

LTRIM(<字符表達式>)：去掉前空格

RTRIM(<字符表達式>)：去掉后空格例：trim(“ab“)=“ab”ltrim(“ab“)=“ab”Rtrim(“ab“)=“ab”取子串函數(shù)格式：LEFT(<字符表達式>,<長度>)功能：從表達式值的左端取一個指定長度的子串格式：RIGHT(<字符表達式>,<長度>)功能：從表達式的右端取一個指定長度的子串。例子：LEFT("VisualBasic6.0",5)函數(shù)返回值是"Visua“RIGHT("VisualBasic6.0",5)函數(shù)返回值是“ic6.0“4．Str()

格式：Str(Number)

功能：將數(shù)值型量轉(zhuǎn)換成字符型量。 說明：Number為一個數(shù)值型量，返回一個字符型量。 示例：PrintStr(12345)值為字符“12345"。說明： ※Str函數(shù)將非負數(shù)值轉(zhuǎn)換成字符類型后，會在轉(zhuǎn)換后的字符串左邊增加空格，即數(shù)值的符號位。如Str(123)的結果為“123"，而不是"123"。PrintStr(123)

三、日期函數(shù)1．Date

格式：Date

功能：提取計算機系統(tǒng)的當前日期。 說明：該函數(shù)是無參函數(shù)，返回日期的格式為"月-日-年"

示例：如果今天是2000年3月10日，則a=Date的值為“03-10-2000”PrintDate2．Now

格式：Now

功能：提取計算機系統(tǒng)的當前的時間和日期。

示例：a=Nowa的值為00-3-610:08:34,表示當前系統(tǒng)日期為2000年3月6日，系統(tǒng)時間為10點8分34秒。PrintNow3．Time

格式：Time

功能：提取計算機系統(tǒng)的當前的時間。 說明：該函數(shù)是無參函數(shù)，返回由當前系統(tǒng)時間組成的一個字符串。 示例：a=Timea的值為"10:08:34"。4、格式：YEAR(日期表達式)MONTH(日期表達式)DAY(日期表達式)功能：返回年月日例：PrintDatePrintDay(#3/12/2006#)5、格式：HOUR(日期時間表達式)MINUTE(日期時間表達式)Second(日期時間表達式

)功能：返回時、分、秒。例：PrintTimePrintHour(#1:34:24PM#)PrintMinute(Time)四、其他函數(shù)1．Asc（）

格式：Asc(String)

功能：將字符串轉(zhuǎn)換成ASCII值。 示例：PrintAsc("C")值為67。2．Chr（）

格式：Chr(x)

功能：將ASCII碼值轉(zhuǎn)換成字符串。 示例：PrintChr(66)值為字符"B"?！鵆hr和Asc函數(shù)是一對互為反函數(shù)3.小寫轉(zhuǎn)換函數(shù)格式：Lcase(<字符表達式>)功能：將指定表達式值中的大寫字母轉(zhuǎn)換成小寫字母，其他字符不變。例：?Lcase('BOOK')book4.大寫轉(zhuǎn)換函數(shù)格式：Ucase(<字符表達式>)功能：將指定表達式值中的小寫字母轉(zhuǎn)換成大寫字母，其他字符不變。例：?Ucase(“work”)WORK5．Val（）

格式：Val(String)

功能：將字符串量轉(zhuǎn)換成數(shù)值量。 示例：a=Val("-13.456")值為-13.456b=Val("13-456")值為13Val將數(shù)字字符串轉(zhuǎn)換為數(shù)值，當字符串中出現(xiàn)非數(shù)值字符時，停止轉(zhuǎn)換，函數(shù)返回的是停止轉(zhuǎn)換前的結果。如Val(“–123.45ty”)結果為-123.45。6.str()功能：將數(shù)值轉(zhuǎn)換成字符串。

VisualBasic選擇結構的實現(xiàn)：

If…Then語句（單分支結構）

If...Then…Else語句（雙分支結構）

SelectCase語句（多分支結構）3、2、2分支結構1.If…Then語句（單分支結構）格式1：If〈表達式〉Then語句

格式2：If〈表達式〉Then

語句塊

EndIfTF語句（塊）表達式單分支結構功能：當條件表達式的值為“真”時，則執(zhí)行Then后面的語句或語句塊；否則不執(zhí)行任何操作。說明：

語句塊可以是一條或多條語句。如果使用格式1的簡單形式表示，則只能是一條語句；或用冒號隔開的多條語句，但這些語句必須書寫在一行上。

If...Then的單行格式不用EndIf語句。DimxAsIntegerPrivateSubCommand1_Click()x=90Ifx>0ThenMsgBox"正數(shù)":Print"x=90"EndSubPrivateSubCommand2_Click()x=90Ifx>0ThenMsgBox"正數(shù)"Print"x=90"EndIfEndSub【例3-3】任意輸入3個數(shù)，找出其中的最大值。編寫的窗體單擊事件過程代碼如下：PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,maxAsSinglea=InputBox("請輸入第一個數(shù)","輸入框")b=InputBox("請輸入第二個數(shù)","輸入框")c=InputBox("請輸入第三個數(shù)","輸入框")max=aIfb>maxThenmax=bIfc>maxThenmax=cPrint"三個數(shù)中最大的為："&maxEndSub2.If…Then…Else語句結構（雙分支結構）

格式1：

If<表達式>Then<語句塊1>Else<語句塊2>EndIf格式2：

If<表達式>Then<語句1>Else<語句2>功能：當表達式的值為非0（True）時,執(zhí)行Then后面的語句塊1，否則執(zhí)行Else后面的語句塊2。FT語句(塊)1語句(塊)2表達式雙分支結構說明：塊結構的條件語句可以嵌套，即把一個If…Then…Else塊放在另一個If…Then…Else塊內(nèi)。嵌套必須完全嵌套，也就是內(nèi)層條件語句必須完全包含在外層條件語句之中?！纠?-4】火車站行李費的收費標準是40kg以內(nèi)（包括40kg）0.20元/kg，超過部分為0.50元/kg。編寫程序，根據(jù)輸入的任意重量，計算出應付的行李費。根據(jù)題意計算公式如下：Pay=Weight×0.20Weight≤40(Weight-40)×0.50+40×0.20Weight>40編寫的窗體單擊事件過程代碼如下：PrivateSubForm_Click()DimweightAsSingle,payAsSingleweight=InputBox("請輸入行李重量","輸入框")Ifweight>40Thenpay=(weight-40)*0.5+40*0.2Elsepay=weight*0.2EndIfPrint"行李重量="&weightPrint"所付費用="&payEndSub3.If…Then…ElseIf語句（多分支結構）結構語句格式：

If〈表達式1〉Then 〈語句塊1〉

ElseIf〈表達式2〉Then 〈語句塊2〉 …… [Else 〈語句塊n+1] EndIf

FTTT……表達式1表達式2表達式nn語句塊1語句塊2語句塊nn語句塊n+11F…圖3.10多分支結構說明：①不管有幾個分支，程序執(zhí)行了一個分支后，其余分支不再執(zhí)行。②ElseIf子句的數(shù)量沒有限制，可以根據(jù)需要使用任意多個ElseIf子句。例：【例3-6】輸入一個學生的成績score，根據(jù)其所在分數(shù)段給出他的考試等級。分數(shù)段劃分規(guī)則是：90<score<=100為“優(yōu)秀”，80<score<=90為“良好”，70<score<=80為“中等”，60<=score<=70為“及格”，score<60為“不及格”，score>100為“輸入錯誤”。PrivateSubForm_Click()DimscoreAsSinglescore=InputBox("請輸入學生的成績score;")Ifscore<60ThenPrint"不及格"ElseIfscore<70ThenPrint"及格"ElseIfscore<80ThenPrint"中等"ElseIfscore<90ThenPrint"良好"ElseIfscore<=100ThenPrint"優(yōu)秀"ElsePrint"輸入錯誤"EndIfEndSub4.If語句的嵌套If語句的嵌套是指if或else語句后面的語句塊中又包含if語句。語句形式為：If<表達式1>thenif<表達式11>then ……

endif……endif【例3-5】輸入系數(shù)a，b和c，求二次方程ax2+bx+c=0的實根。PrivateSubForm_Click()Dima!,b!,c!,d!,x1!,x2!,xa=InputBox("請輸入系數(shù)a:")b=InputBox("請輸入系數(shù)b:")c=InputBox("請輸入系數(shù)c:")d=b*b-4*a*cIfd>0Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)Print"x1=";x1,"x2=";x2ElseIfd=0Thenx=-b/(2*a):Print"x=";xElsePrint"此方程無實根"EndIfEndIfEndSubPrivateSubForm_Click()DimscoreAsSinglescore=InputBox("請輸入學生的成績score:")Ifscore<60ThenPrint"不及格"ElseIfscore<=70ThenPrint"及格"ElseIfscore<=80ThenPrint"中等"ElseIfscore<=90ThenPrint"良好"ElseIfscore<=100ThenPrint"優(yōu)秀"ElsePrint"輸入錯誤"EndIfEndSub

5．SelectCase語句（多分支結構）

┆┆FTFF表達式表n語句塊n+1┆語句塊nT表達式表2語句塊2T表達式表1語句塊1圖3.11SelectCase結構格式：SelectCase測試變量或表達式

[Case表達式表1[語句塊1]][Case表達式表2[語句塊2]]……[Case表達式表n[語句塊n]][CaseElse[語句塊n+1]]EndSelect功能：根據(jù)SelectCase<變量或表達式>中的結果與各Case子句中的值比較，決定執(zhí)行哪一組語句塊。如果有多個Case短語中的值與測試值匹配，則根據(jù)自上而下判斷原則，只執(zhí)行第一個與之匹配的語句塊。說明：如果在一個列表中有多個值，就用逗號把值隔開。例：一個表達式。如：Case6一組用逗號隔開的枚舉值。如：

Case1，3，5，7表達式1TO表達式2。如：Case1To10Is關系運算表達式。如caseis<5PrivateSubForm_Click()DimscoreAsSinglescore=InputBox("請輸入學生的成績score;")SelectCasescoreCaseIs<60Print"不及格"CaseIs<70Print"及格"CaseIs<80Print"中等"CaseIs<90Print"良好"CaseIs<=100Print"優(yōu)秀"CaseElsePrint"輸入錯誤"EndSelectEndSub

循環(huán)是在指定的條件下多次重復執(zhí)行一組語句，這可通過循環(huán)結構來實現(xiàn)。VB中提供了兩種類型的循環(huán)語句：一種是計數(shù)循環(huán)語句；另一種是條件循環(huán)語句。VisualBasic支持的循環(huán)結構有：

☆For...Next

☆Do…Loop☆While…Wend3.2.3循環(huán)結構

1.For…Next循環(huán)循環(huán)體ExitFor循環(huán)體循環(huán)變量增加步長循環(huán)變量獲得初值FT循環(huán)變量在終值內(nèi)For循環(huán)的執(zhí)行過程格式：For循環(huán)變量=初值

To終值[Step步長]<循環(huán)體>[ExitFor]<循環(huán)體>Next[循環(huán)變量]說明：①格式中的參數(shù)說明：☆循環(huán)變量必須為數(shù)值型?！钛h(huán)的初值、終值和步長都是數(shù)值表達式，其中，增量參數(shù)可正可負。如果增量為正，則初值必須小于等于終值；如果增量為負，則初值必須大于等于終值。如果沒有設置step，則增量默認為1?！頔xitFor為強行退出循環(huán)語句。當遇到該語句時，退出循環(huán)，執(zhí)行Next的下一個語句。☆當循環(huán)是單層循環(huán)時，Next后面的循環(huán)變量可以不寫。例：3-8求階乘。PrivateSubForm_Click()Dimi%,f&,n%n=InputBox("輸入正整數(shù)：","輸入提示","10")f=1Fori=1Tonf=f*iNextPrintn;"!=";fEndSub

2.Do...Loop循環(huán)

Do…Loop循環(huán)用于事先不知道循環(huán)次數(shù)的循環(huán)結構。此種語句四種語法格式：

⑴.DoWhile…Loop語句

⑵.Do…LoopWhile語句

⑶.DoUntil…Loop語句⑷.Do…LoopUntil語句格式：DoWhile〈條件表達式〉〈循環(huán)體〉[ExitDo]〈循環(huán)體〉Loop

⑴.DoWhile…Loop語句TF條件循環(huán)體DoWhile…Loop語句流程圖說明：1、循環(huán)體中要有控制循環(huán)的語句，以避免出現(xiàn)死循環(huán)。2、由于該循環(huán)的特點是先判斷條件，然后再決定是否要執(zhí)行循環(huán)體里的語句。3、ExitDo表示當遇到該語句時，強制退出循環(huán)，執(zhí)行Loop后的下一條語句。PrivateSubcmdDoWhileLoop_Click()DimiAsIntegerDimTotalAsLongDountili>100Total=Total+i*ii=i+1LoopPrintTotalEndSub例求1到100之間所有自然數(shù)的平方和。即【例3-10】給出兩個正整數(shù)M和N，求他們的最大公約數(shù)和最小公倍數(shù)。求最大公約數(shù)的算法如下：（1）以M作被除數(shù)，N作除數(shù)，求余數(shù)R。（2）如果R不為零，則將除數(shù)N做為新的被除數(shù)M，將余數(shù)R做為新的除數(shù)N，再進行相除，得到新的余數(shù)R。（3）如果R仍不等于0，則重復步驟（2）。如果R為零，則這時的被除數(shù)N就是最大公約數(shù)。最小公倍數(shù)為這兩個數(shù)的乘積除以他們的最大公約數(shù)。編寫窗體單擊事件過程代碼如下：PrivateSubForm_Click()DimAAsInteger,BAsInteger,NAsInteger,MAsInteger,RAsInteger,TAsIntegerM=InputBox("請輸入第一個正整數(shù)M","求M、N最大公約數(shù)和最小公倍數(shù)")N=InputBox("請輸入第二個正整數(shù)N","求M、N最大公約數(shù)和最小公倍數(shù)")A=M:B=NIfM<NThen'使M中存放較大的數(shù)，N中存放較小的數(shù)

T=MM=NN=TEndIfR=MModNDoWhileR<>0M=NN=RR=MModNLoopPrint"最大公約數(shù)為：",NPrint"最小公倍數(shù)為：",A*B/NEndSubTF條件循環(huán)體Do…LoopWhile語句流程圖格式：

Do〈循環(huán)體〉[ExitDo]〈循環(huán)體〉LoopWhile〈條件表達式〉

⑵.Do…LoopWhile語句說明：①至少要執(zhí)行循環(huán)體一次。②與DoWhile循環(huán)的區(qū)別：

DoWhile循環(huán)先測試條件是否成立，只有成立才執(zhí)行循環(huán)；而該循環(huán)先執(zhí)行循環(huán)體，后測試條件是否成立。例求1到100之間所有自然數(shù)的平方和。即PrivateSubcmdDoLoopWhile_Click()DimiAsIntegerDimTotalAsLongDoTotal=Total+i*ii=i+1LoopWhilei<=100Label1.Caption="Do…LoopWhile方法結果："Label2.Caption=Format(Total)EndSub格式：

DoUntil〈條件表達式〉〈循環(huán)體〉[ExitDo]〈循環(huán)體〉Loop

⑶.DoUntil…Loop語句DoUntil…Loop語句流程圖FT條件循環(huán)體⑷.Do…LoopUntil語句格式：Do〈循環(huán)體〉[ExitDo]〈循環(huán)體〉LoopUntil〈條件表達式〉TF條件循環(huán)體Do…LoopUntil語句流程圖PrivateSubc