第二章(2)程序結(jié)構(gòu)

1、第二章第二章 Visual Basic.NET語法基礎(chǔ)語法基礎(chǔ) 本章主要介紹以下內(nèi)容：本章主要介紹以下內(nèi)容：l l Visual Basic.NET數(shù)據(jù)類型數(shù)據(jù)類型 l l 變量與常量變量與常量 l l運(yùn)算符與表達(dá)式運(yùn)算符與表達(dá)式 l l三種基本語法結(jié)構(gòu)三種基本語法結(jié)構(gòu) l l數(shù)組數(shù)組 l l 過程與函數(shù)過程與函數(shù)l l 程序調(diào)試程序調(diào)試 l l 作業(yè)作業(yè) InputBox函數(shù)函數(shù)在一對(duì)話框中顯示提示，等待用戶輸入文字或單在一對(duì)話框中顯示提示，等待用戶輸入文字或單擊按鈕，然后返回包含文本框內(nèi)容的字符串。擊按鈕，然后返回包含文本框內(nèi)容的字符串。PublicFunctionInputBox(ByV

2、alPromptAsString,)AsString參數(shù)參數(shù)Prompt必選項(xiàng)。以消息形式顯示在對(duì)話框中的必選項(xiàng)。以消息形式顯示在對(duì)話框中的String表達(dá)式。表達(dá)式。例：例：Dim N01 As Integer Dim N02 As Integer輸入數(shù)據(jù)N01 = InputBox(請(qǐng)輸入第一個(gè)數(shù)：)N02 = InputBox(請(qǐng)輸入第二個(gè)數(shù)：) MsgBox函數(shù)函數(shù)在對(duì)話框中顯示消息，等待用戶單擊按鈕，然后在對(duì)話框中顯示消息，等待用戶單擊按鈕，然后返回一個(gè)整數(shù)，指示用戶單擊了哪個(gè)按鈕。返回一個(gè)整數(shù)，指示用戶單擊了哪個(gè)按鈕。PublicFunctionMsgBox(ByValPrompt

3、AsObject)AsMsgBoxResult參數(shù)參數(shù)Prompt必選項(xiàng)。以消息形式顯示在對(duì)話框中的必選項(xiàng)。以消息形式顯示在對(duì)話框中的String表達(dá)式。表達(dá)式。Prompt的最大長(zhǎng)度大約為的最大長(zhǎng)度大約為1024個(gè)字符，具體取決于所用字符個(gè)字符，具體取決于所用字符的寬度。如果的寬度。如果Prompt中包含多個(gè)行，則可在各行之間用回車中包含多個(gè)行，則可在各行之間用回車符符(Chr(13)、換行符換行符(Chr(10)或回車換行符的組合或回車換行符的組合(Chr(13)&Chr(10)分隔各行分隔各行例：例：MsgBox(“你好！”)2.4 三種基本語法結(jié)構(gòu)三種基本語法結(jié)構(gòu) VB.NET

4、 VB.NET 應(yīng)用程序的執(zhí)行是由應(yīng)用程序的執(zhí)行是由事件驅(qū)事件驅(qū)動(dòng)動(dòng)的，當(dāng)用戶觸發(fā)某一事件時(shí)，執(zhí)行相的，當(dāng)用戶觸發(fā)某一事件時(shí)，執(zhí)行相應(yīng)的事件過程。應(yīng)的事件過程。 這些事件過程之間并沒有特定的執(zhí)這些事件過程之間并沒有特定的執(zhí)行次序。但在每一個(gè)事件過程內(nèi)部，是行次序。但在每一個(gè)事件過程內(nèi)部，是有一定的執(zhí)行控制流程的，這就是通常有一定的執(zhí)行控制流程的，這就是通常所說的三種基本結(jié)構(gòu)：所說的三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、分支順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)結(jié)構(gòu)、循環(huán)結(jié)構(gòu) 一、一、順序結(jié)構(gòu)順序結(jié)構(gòu)順序結(jié)構(gòu)是最簡(jiǎn)單的一種結(jié)構(gòu)，該結(jié)構(gòu)按語句排列的先后順序，順序結(jié)構(gòu)是最簡(jiǎn)單的一種結(jié)構(gòu)，該結(jié)構(gòu)按語句排列的先后順序，執(zhí)行完一

5、條語句后依次執(zhí)行下一條語句。執(zhí)行完一條語句后依次執(zhí)行下一條語句。【案例【案例2-3】 順序結(jié)構(gòu)編程舉例。從鍵盤輸入順序結(jié)構(gòu)編程舉例。從鍵盤輸入2個(gè)數(shù)，使用信息個(gè)數(shù)，使用信息框顯示其平均值?？蝻@示其平均值。Private Sub Form1_Click(Private Sub Form1_Click(ByValByVal sender As Object, sender As Object, ByValByVal e e As _ System.As _ System.EventArgsEventArgs) Handles ) Handles MyBaseMyBase.Click.Click 聲

6、明變量聲明變量 Dim N01 As IntegerDim N01 As Integer Dim N02 As Integer Dim N02 As Integer Dim AVER As Integer Dim AVER As Integer 輸入數(shù)據(jù)輸入數(shù)據(jù) N01 = N01 = InputBoxInputBox(請(qǐng)輸入第一個(gè)數(shù)：請(qǐng)輸入第一個(gè)數(shù)：) N02 = N02 = InputBoxInputBox(請(qǐng)輸入第二個(gè)數(shù)：請(qǐng)輸入第二個(gè)數(shù)：) 處理數(shù)據(jù)處理數(shù)據(jù) AVER = (N01 + N02) / 2AVER = (N01 + N02) / 2 輸出數(shù)據(jù)輸出數(shù)據(jù) MsgBoxMsgBo

7、x(2(2個(gè)數(shù)的平均值為個(gè)數(shù)的平均值為: & : & AVER)AVER)End SubEnd Sub VBNET編程代碼的書寫規(guī)則編程代碼的書寫規(guī)則 每種編程語言都有自己的書寫規(guī)則，每種編程語言都有自己的書寫規(guī)則， VB.NET編程代碼的書編程代碼的書寫規(guī)則如下：寫規(guī)則如下：l lVisual Basic.NET代碼不區(qū)分字母的大小寫，系統(tǒng)可對(duì)代碼不區(qū)分字母的大小寫，系統(tǒng)可對(duì)用戶程序代碼進(jìn)行用戶程序代碼進(jìn)行自動(dòng)自動(dòng)轉(zhuǎn)換；轉(zhuǎn)換；l l在同一行上可以書寫多個(gè)語句，語句間用在同一行上可以書寫多個(gè)語句，語句間用冒號(hào)冒號(hào) “：”分隔；分隔；l l單行語句可分若干行書寫，在本行后加入單行

8、語句可分若干行書寫，在本行后加入續(xù)行符（空格和續(xù)行符（空格和下劃線下劃線“_”），但需要注意的是在續(xù)行符后不能加注釋語句；，但需要注意的是在續(xù)行符后不能加注釋語句；l l一行最多允許書寫不超過一行最多允許書寫不超過255個(gè)字符；個(gè)字符；l lVisual Basic.NET 程序中有兩種注釋方法：一種是以程序中有兩種注釋方法：一種是以 Rem 關(guān)鍵字關(guān)鍵字開頭，并且開頭，并且Rem關(guān)鍵字與注釋內(nèi)容之間要加一個(gè)空關(guān)鍵字與注釋內(nèi)容之間要加一個(gè)空格符；另一種是在注釋內(nèi)容前添加格符；另一種是在注釋內(nèi)容前添加“ ”符號(hào)。注釋可以是單獨(dú)符號(hào)。注釋可以是單獨(dú)一行，也可以添加在被注釋語句的后面；一行，也可以添

9、加在被注釋語句的后面； 二、分支結(jié)構(gòu)二、分支結(jié)構(gòu) 使用分支結(jié)構(gòu)可以控制程序的流程，也使用分支結(jié)構(gòu)可以控制程序的流程，也可以編寫進(jìn)行判斷和重復(fù)操作的可以編寫進(jìn)行判斷和重復(fù)操作的VisualBasic.NET 代碼。在代碼。在 VisualBasic.NET 中，中，分支結(jié)構(gòu)有以下兩種語句：分支結(jié)構(gòu)有以下兩種語句：l lIFThenEndif 語句語句l lSelectCase語句語句If語句語句1、IfThen語句語句(單分支結(jié)構(gòu)單分支結(jié)構(gòu))IfThen語句塊語句塊EndIf表達(dá)式 語句塊TF圖1-3-7 單分支結(jié)構(gòu)2 2、IfIfThenThenElseElse語句語句( (雙分支結(jié)構(gòu)雙分支結(jié)

10、構(gòu)) ) If If ThenThen 1 ElseElse 2 End IfEnd If表達(dá)式F圖1-3-9 雙分支結(jié)構(gòu) 語句塊1T 語句塊23. 3. IfIfThenThenElseIfElseIf語句語句( (多分支結(jié)構(gòu)多分支結(jié)構(gòu)) ) If If 1 ThenThen 1 ElseIfElseIf 2ThenThen 2 Else Else 語句塊語句塊 n+1 n+1 End If End If 不管有幾個(gè)分支不管有幾個(gè)分支, ,依次判斷，當(dāng)某條件滿足，執(zhí)行相依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句塊，其余分支不再執(zhí)行；若條件都不滿足，且應(yīng)的語句塊，其余分支不再執(zhí)行；若條件都不滿足，

11、且有有ElseElse子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。 ElseIfElseIf不能寫成不能寫成 Else IfElse If。表達(dá)式1表達(dá)式2表 達(dá) 式nTFTF圖 1-3-10 多分支結(jié)構(gòu) 語句塊 n語 句 塊n+1 語句塊 2 語句塊 1FT例：例： 輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：9010090100分為分為“優(yōu)秀優(yōu)秀”，80898089分為分為“良好良好”，70797079分為分為“中等中等”，60696069分為分為“及格及格”，6060分以下為分以下為“不合格不合格”Ifx=90thenMsg

12、Box(“優(yōu)秀優(yōu)秀”)ElseIfx=80ThenMsgBox(“良好良好”)ElseIfx=70ThenMsgBox(“中等中等”)ElseIfx=60ThenMsgBox(“及格及格”)ElseMsgBox(“不及格不及格”)EndIft【案例【案例2-4】IF語句舉例。輸入一個(gè)數(shù)，判斷其為偶數(shù)還是語句舉例。輸入一個(gè)數(shù)，判斷其為偶數(shù)還是奇數(shù)。奇數(shù)。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.ClickDimXAsIntegerDimYAsStringX=InputBox(請(qǐng)

13、輸入請(qǐng)輸入X X的值的值:):) IfXMod2=0ThenY= 是偶數(shù)是偶數(shù)! ! ElseY=是奇數(shù)是奇數(shù)! MsgBox( 您輸入您輸入X X的值為的值為: :&X&Space(3)&Y) )EndSub 【案例【案例2-5】 塊塊IF語句舉例。輸入一個(gè)數(shù)，判斷其為偶數(shù)還是語句舉例。輸入一個(gè)數(shù)，判斷其為偶數(shù)還是奇數(shù)；若是奇數(shù)，則進(jìn)一步判斷其能否被奇數(shù)；若是奇數(shù)，則進(jìn)一步判斷其能否被3或或5整除。整除。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAs_System.EventArgs)HandlesMyBase.C

14、lickDimXAsIntegerDimYAsStringX=InputBox(請(qǐng)輸入請(qǐng)輸入X的值的值:)IfXMod2=0ThenY=是偶數(shù)！是偶數(shù)！ElseIfXMod3=0ThenY=是奇數(shù)！，且能被是奇數(shù)！，且能被3整除！整除！IfXMod5=0ThenY=是奇數(shù)！，且能被是奇數(shù)！，且能被3和和5整除！整除！EndIfElseY=是奇數(shù)！，且不能被是奇數(shù)！，且不能被3和和5整除！整除！EndIfMsgBox(您輸入您輸入X的值為的值為:&X&Space(3)&Y)EndSub5、SelectCase語句（條件分支）語句（條件分支）多分支選擇結(jié)構(gòu)的特點(diǎn)是：從多個(gè)選

15、擇結(jié)構(gòu)中，選多分支選擇結(jié)構(gòu)的特點(diǎn)是：從多個(gè)選擇結(jié)構(gòu)中，選擇第一個(gè)條件為真的路線作為執(zhí)行的路線。語法格擇第一個(gè)條件為真的路線作為執(zhí)行的路線。語法格式為：式為： SelectCase Case 表達(dá)式列表表達(dá)式列表1 語句組語句組1 Case表達(dá)式列表表達(dá)式列表2 語句組語句組2 CaseElse 語句組語句組n+1 EndSelectSelectCaseCase情況情況1Case情況情況2Case情況情況n執(zhí)行語執(zhí)行語句組句組1執(zhí)行語執(zhí)行語句組句組2執(zhí)行語執(zhí)行語句組句組n執(zhí)行語執(zhí)行語句組句組n+1CaseElseEndSelect多分支選擇結(jié)構(gòu)流程圖多分支選擇結(jié)構(gòu)流程圖形式形式示例示例說明說明表

16、達(dá)式表達(dá)式Case50*b數(shù)值和字符串表達(dá)式數(shù)值和字符串表達(dá)式表達(dá)式表達(dá)式To表達(dá)式表達(dá)式Case1To10Case“a”To“m”用來指定用來指定1個(gè)數(shù)值范圍。個(gè)數(shù)值范圍。Is關(guān)系表達(dá)式關(guān)系表達(dá)式CaseIs200CaseIs=5,8,20可以配合比較運(yùn)算符可以配合比較運(yùn)算符來指定來指定1個(gè)數(shù)值范圍。個(gè)數(shù)值范圍。這里這里Is是關(guān)鍵字。是關(guān)鍵字。Case表達(dá)式列表的形式表達(dá)式列表的形式下列下列Case子句的寫法是正確的：子句的寫法是正確的：例：例：DimxASINTEGER=6SelectCasexCase1 Case2,3,8 Case1To5 Case1,6To9 Case1To3,6To

17、8 CaseIs20EndSelectt例：例：DIMXASINTEGER=100SelectCasexCase90to100CONSOLE.WRITELINE(優(yōu)秀優(yōu)秀)Case80to89CONSOLE.WRITELINE(良好良好)Case70to79CONSOLE.WRITELINE(中等中等)Case60to69CONSOLE.WRITELINE(及格及格)CaseElseCONSOLE.WRITELINE(不及格不及格)EndSelecttSelectCase 后不能出現(xiàn)多個(gè)變量后不能出現(xiàn)多個(gè)變量Case子句后不能出現(xiàn)變量子句后不能出現(xiàn)變量【案例【案例2-6】SelectCase語

18、句舉例。編程，使程序完成以下功能：根據(jù)輸入的語句舉例。編程，使程序完成以下功能：根據(jù)輸入的X X整數(shù)的整數(shù)的值，在窗體上給出相應(yīng)提示。值，在窗體上給出相應(yīng)提示。當(dāng)當(dāng) x50時(shí)時(shí) 顯示顯示X50當(dāng)當(dāng) 50=x=100時(shí)時(shí) 顯示顯示50X102時(shí)時(shí) 顯示顯示“x102” PrivateSubForm1_Click(ByValsenderAsObject,ByValeAs_System.EventArgs)HandlesMyBase.ClickDimxAsIntegerDimYAsString x=InputBox(“請(qǐng)輸入請(qǐng)輸入x x的值的值:”) SelectCasexCaseIs50Y=“X1

19、02EndSelectMsgBox(Y)EndSub三、三、循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)對(duì)某一段程序進(jìn)行重復(fù)執(zhí)行的程序結(jié)構(gòu)，這種被重對(duì)某一段程序進(jìn)行重復(fù)執(zhí)行的程序結(jié)構(gòu)，這種被重復(fù)執(zhí)行的程序結(jié)構(gòu)叫循環(huán)程序結(jié)構(gòu)；被重復(fù)執(zhí)行的程序復(fù)執(zhí)行的程序結(jié)構(gòu)叫循環(huán)程序結(jié)構(gòu)；被重復(fù)執(zhí)行的程序段叫循環(huán)體。段叫循環(huán)體。 當(dāng)然，重復(fù)是有條件的，即在滿足一定條件下才執(zhí)當(dāng)然，重復(fù)是有條件的，即在滿足一定條件下才執(zhí)行循環(huán)體，或者滿足一定條件就不再循環(huán)。行循環(huán)體，或者滿足一定條件就不再循環(huán)。 循環(huán)控制結(jié)構(gòu)的功能就是決定在什么條件下進(jìn)入或循環(huán)控制結(jié)構(gòu)的功能就是決定在什么條件下進(jìn)入或退出循環(huán)。退出循環(huán)。VisualBasic.NET中的循環(huán)結(jié)

20、構(gòu)分為三種：計(jì)數(shù)循環(huán)中的循環(huán)結(jié)構(gòu)分為三種：計(jì)數(shù)循環(huán)（For-Next循環(huán)）、當(dāng)循環(huán)（循環(huán)）、當(dāng)循環(huán)（While-End WhileWhile-End While循環(huán)）和循環(huán)）和Do循環(huán)（循環(huán)（Do-Loop循環(huán)）循環(huán)）1 1、FOR-NEXT循環(huán)控制結(jié)構(gòu)（計(jì)數(shù)循環(huán)）循環(huán)控制結(jié)構(gòu)（計(jì)數(shù)循環(huán)）For循環(huán)也稱為循環(huán)也稱為For.Next循環(huán)或計(jì)數(shù)循環(huán)。循環(huán)或計(jì)數(shù)循環(huán)。For循環(huán)適用于循環(huán)適用于已知循環(huán)次數(shù)已知循環(huán)次數(shù)時(shí)。時(shí)。格式：格式：For 循環(huán)變量循環(huán)變量= =初值初值 To 終值終值 Step步長(zhǎng)步長(zhǎng) 循環(huán)體循環(huán)體 ExitFor Next 循環(huán)變量循環(huán)變量 例：例：DimIAsInteger

21、ForI=1to10Step2TextBox1.Text=I.ToString()Next輸出結(jié)果：9例：例：vbCrLf：字符串常量，其值為包含回車符和換字符串常量，其值為包含回車符和換行符的字符串行符的字符串DimIAsIntegerForI=1to10Step2TextBox1.Text+=I.ToString()+vbCrlfNext輸出結(jié)果：13579例：編寫一個(gè)計(jì)算正整數(shù)的階乘的程序。例：編寫一個(gè)計(jì)算正整數(shù)的階乘的程序。K!=(k-1)!kDimiAsIntegerDimresultAsDouble=1Fori=1To15result=result*iNextTextBox1.Te

22、xt=i.ToString()+!=+result.ToString()15!=1301674368000【案例【案例2-7】FOR-NEXT循環(huán)控制結(jié)構(gòu)舉例。循環(huán)控制結(jié)構(gòu)舉例。運(yùn)行下列程序，并分析結(jié)果運(yùn)行下列程序，并分析結(jié)果IMPORTSSYSTEMCLASSMAINPublicSharedSubMAIN()DimIAsIntegerDimJAsIntegerForI=1To3Step1大循環(huán)大循環(huán)IFI=3THENEXITFOR退出循環(huán)退出循環(huán)ENDIFConsole.WriteLine(第第&I&次大循環(huán)次大循環(huán))ForJ=1To2Step1小循環(huán)小循環(huán)Console.W

23、riteLine(第第&J&次小循環(huán)次小循環(huán))NextJNEXTIConsole.WriteLine(退出循環(huán)時(shí)退出循環(huán)時(shí),I=&I)EndSubEndClass 2、While-EndWhile循環(huán)循環(huán)( (當(dāng)循環(huán)控制結(jié)構(gòu)當(dāng)循環(huán)控制結(jié)構(gòu)) )While-EndWhile循環(huán)適用于在給定的條件為循環(huán)適用于在給定的條件為True時(shí)，時(shí)，重復(fù)一語句序列重復(fù)一語句序列( (循環(huán)體循環(huán)體) )的執(zhí)行。的執(zhí)行。格式：格式：While條件條件語句塊語句塊EndWhile例例計(jì)算計(jì)算1-1001-100的整數(shù)和（的整數(shù)和（1+2+3+1+2+3+100+100）While i=100

24、While i= 0.0001 While MATH.Abs(t) = 0.0001 PI + = t PI + = t 在在VB.NETVB.NET中中,PI + = tPI + = t等同于等同于VB6VB6中的中的 PI=PI+ t PI=PI+ t n += 2 n += 2 第第n n項(xiàng)的分母是第項(xiàng)的分母是第n-1n-1項(xiàng)的分母加上項(xiàng)的分母加上2 2 s = -s s = -s 改變符號(hào)改變符號(hào) t = s / nt = s / n END While END While PI = PI PI = PI * * 4 4 當(dāng)用當(dāng)用+連接字符串時(shí)連接字符串時(shí), ,使用使用tostringtostring方法將方法將PIPI的類型轉(zhuǎn)為字符型的類型轉(zhuǎn)為字符型 Console.Console.WriteLineWriteLine(使用近似公式計(jì)算的使用近似公式計(jì)算的 + PI. + PI.tostringtostring)