vb基本程序結(jié)構(gòu)

第六章基本程序結(jié)構(gòu)本章內(nèi)容及要求：1.了解算法概念及算法的表示，掌握用N—S流程序表示算法2.熟練掌握賦值語句、End語句和注釋語句等語句及輸入/輸出消息框函數(shù)的使用；3.熟練掌握行if語句、塊if結(jié)構(gòu)、SelectCase情況選擇結(jié)構(gòu)有使用，掌握選擇的嵌套結(jié)構(gòu)；4.熟練掌握實現(xiàn)循環(huán)結(jié)構(gòu)的For/Next循環(huán)結(jié)構(gòu)及ExitFor語句、Do/Loop循環(huán)結(jié)構(gòu)的使用，掌握多重循環(huán)。重點：選擇結(jié)構(gòu)及循環(huán)結(jié)構(gòu)的實現(xiàn)及其應(yīng)用難點：選擇的嵌套及多重循環(huán)結(jié)構(gòu)1精選2021版課件6.1算法及算法的表示6.1.1算法概述什么是算法：廣義地講：算法是為完成一項任務(wù)所應(yīng)當遵循的一步一步的規(guī)則的、精確的、無歧義的描述，它的總步數(shù)是有限的。狹義地講：算法是解決一個問題采取的方法和步驟的描述。下面通過兩個簡單的例子加以說明：例6.1輸入三個數(shù)，然后輸出其中最大的數(shù)。將三個數(shù)依次輸入到變量Ａ、B、C中，設(shè)變量MAX存放最大數(shù)。其算法如下：

2精選2021版課件例6.2輸入10個數(shù)，打印輸出其中最大的數(shù)。算法設(shè)計如下：（1）輸入1個數(shù),存入變量A中,將記錄數(shù)據(jù)個數(shù)的變量N賦值為1，即N=1（2）將A存入表示最大值的變量Max中，即Max=A（3）再輸入一個值給A，如果A>Max則Max=A,否則Max不變（4）讓記錄數(shù)據(jù)個數(shù)的變量增加1，即N=N+1（5）判斷N是否小于10，若成立則轉(zhuǎn)到第（3）步執(zhí)行，否則轉(zhuǎn)到第（6）步。（6）打印輸出max1)輸入A、B、C。2)A與B中大的一個放入MAX中。3)把C與MAX中大的一個放入MAX中。4)輸出MAX，MAX即為最大數(shù)。3精選2021版課件6.1.2算法的特性有窮性確定性有0個或多個輸入有一個或多個輸出有效性4精選2021版課件6.1.3算法的表示一、自然語言與偽代碼表示算法自然語言：就是指人們?nèi)粘Ｊ褂玫恼Z言，可以是漢語、英語或其它語言。偽代碼：是用介于自然語言和計算機語言之間的文字和符號（包括數(shù)學(xué)符號）來描述算法。例如：例6.1可用如下的偽代碼表示Begin（算法開始）輸入A，B，CIFA>B則A→Max否則B→MaxIFC>Max則C→MaxPrintMaxEnd(算法結(jié)束)5精選2021版課件二、用傳統(tǒng)流程圖表示算法處理框起止框I/O框判斷框流程線連接點1、傳統(tǒng)流程圖中的基本符號6精選2021版課件2、三種基本結(jié)構(gòu)的傳統(tǒng)表示（1）順序結(jié)構(gòu)條件語句1語句2YN語句1語句2（2）選擇結(jié)構(gòu)7精選2021版課件條件(a)條件語句組（3）循環(huán)結(jié)構(gòu)a)當型循環(huán)b)直到循環(huán)YNYN(b)語句組8精選2021版課件三種基本結(jié)構(gòu)的特點：（1）只有一個入口（2）只有一個出口（3）不存在死語句（4）不存在死循環(huán)例：例6.2輸入10個數(shù)，打印輸出其中的最大的數(shù)的流程圖9精選2021版課件從10個數(shù)中選出最大的數(shù)的流程圖N<10Max=AN=1A>MaxMax=A輸入A開始再輸入給AN=N+1打印Max結(jié)束YNNY10精選2021版課件6.1.4用N—S流程圖表示算法將全部算法寫在一個矩形框內(nèi)，在矩形內(nèi)還可包含其它從屬于它的框三種基本結(jié)構(gòu)的N—S圖表示：語句A語句B語句A語句B條件YN1、順序結(jié)構(gòu)2、選擇結(jié)構(gòu)11精選2021版課件語句組（3）循環(huán)結(jié)構(gòu)a)當型循環(huán)b)直到循環(huán)當條件成立語句組直到當條件成立例：畫出從10個數(shù)中選出最大的數(shù)的N—S流程圖(a)(b)12精選2021版課件傳統(tǒng)流程圖N<10Max=AN=1A>MaxMax=A輸入A開始再輸入給AN=N+1打印Max結(jié)束YNNY輸入A當N<=10Max=AN=N+1打印Max輸入AN—S流程圖A>=MaxYN13精選2021版課件PrivateSubForm_Click()Dima%,max%,i%max=aFori=1To10a=Val(InputBox("A=?"))Ifa>maxThenmax=aNextiPrint"Max=";maxEndSub最后需要說明的是：上面介紹的算法表示是給人看的，即是為幫助程序開發(fā)人員閱讀、編寫程序而設(shè)計的一種輔助工具，程序則必須符一計算機語言的語法規(guī)則。下面是例6.2的計算機程序，即為用計算機語言表示算法：14精選2021版課件6.1.5結(jié)構(gòu)化程序設(shè)計方法（補充）（一）用計算機解決問題的過程提出、分析問題確定算法模型設(shè)計算法編寫程序調(diào)試程序分析輸出結(jié)果正確合理結(jié)束不正確15精選2021版課件（二）結(jié)構(gòu)化程序設(shè)計思想自頂向下、逐步細化、模塊化自頂向下：先從全局、整體設(shè)計逐步細化：將一個問題分解成幾個較小的問題解決模塊化：將一個大任務(wù)分解成若干個較小的部分，每個部分承擔一定功能，稱為“功能模塊”例：給100個整數(shù)，打印輸出其中的素數(shù)16精選2021版課件S1N—S流程圖輸入100個數(shù)存入X1，x2,……x100打印x1…..x100中不等于0的數(shù)讓x1，x2,……x100中的非素變?yōu)?S3S2輸入xi當i<=100i=i+1i=1S1細化xi≠0當i<=100i=i+1i=1YN打印xiS3細化17精選2021版課件S1N—S流程圖輸入100個數(shù)存入X1，x2,……x100打印x1…..x100中不等于0的數(shù)讓x1，……x100中的非素變?yōu)?S3S2S2細化判斷xi是否是素數(shù)，若不是則將xi=0當i<=100i=i+1i=1S21r=0r<=將x1除j的余j=j+1j=2YNxi=0直到j(luò)>xi/2S21細化18精選2021版課件輸入100個數(shù)存入X1，x2,……x100打印x1…..x100中不等于0的數(shù)讓x1，……x100中的非素變?yōu)?細化后的流程圖輸入xi當i<=100i=i+1i=1當i<=100i=1r=0r=xi%jj=j+1j=2YNxi=0直到j(luò)>xi/2i=i+1xi≠0當i<=100i=1YN打印xii=i+119精選2021版課件6.2順序結(jié)構(gòu)6.2.1賦值語句

形式:變量名＝表達式對象.屬性＝表達式

功能：將表達式的值賦值給變量名或指定對象的屬性。一般用于給變量賦值或?qū)丶O(shè)定屬性值.例：sRate!=0.1Text1.Text＝"歡迎使用VisualBasic6.0”說明：1.執(zhí)行過程：先求表達式的值，然后將值賦值給左邊的變量。2.右邊表達式可以是變量、常量、函數(shù)調(diào)用等特殊的表達式。3.不要將“＝”理解為數(shù)學(xué)上的等號：A=A+1是表示將A單元的值加１后以放回到A單元。20精選2021版課件執(zhí)行過程如右圖4．賦值符號“=”左邊一定只能是變量名或?qū)ο蟮膶傩砸?，不能是常量、符號常量、表達式。下面的賦值語句都是錯的：5=X'左邊是常量。Abs(X)=20'左邊是函數(shù)調(diào)用，即是表達式。5.賦值符號“=”兩邊的數(shù)據(jù)類型一般要求應(yīng)一致。具體規(guī)則（P77）21精選2021版課件6.2.2注釋語句其語法格式為：Rem<注釋內(nèi)容>或'<注釋內(nèi)容>說明：1.<注釋內(nèi)容>指要包括的任何注釋文本。在Rem關(guān)鍵字和注釋內(nèi)容之間要加一個空格?？梢杂靡粋€英文單引號“'”來代替Rem關(guān)鍵字。2.如果在其他語句行后面使用Rem關(guān)鍵字，必需用冒號(：)與語句隔開。若用英文單引號“'”，則在其他語句行后面不必加冒號(：)。例如：ConstPI=3.1415925'符號常量PIS=PI*r*r :Rem計算圓的面積22精選2021版課件6.3選擇結(jié)構(gòu)

1.If…Then語句(單分支結(jié)構(gòu))

If<表達式>Then語句塊EndIf

或

If<表達式>Then<語句>

例:已知兩個數(shù)x和y，比較它們的大小，使得x大于y.

Ifx<yThent=x:x=y:y=tEndIf

或Ifx<yThent=x:x=y:y=t23精選2021版課件2.If…Then…Else語句(雙分支結(jié)構(gòu))

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

If<表達式>Then<語句1>Else<語句2>

例如：輸出x,y兩個中值較大的一個值。IFX>YThenPrintXElsePrintYEndIf也可以寫成如下的單行形式：IFX>YThenPrintXElsePrintY雙分支選擇結(jié)構(gòu)執(zhí)行過程24精選2021版課件3.If…Then…ElseIf語句(多分支結(jié)構(gòu))

形式:

If<表達式1>Then <語句塊1> ElseIf<表達式2>Then <語句塊2> … [Else 語句塊n+1] EndIf

例：輸入一學(xué)生成績，評定其等級。方法是：90~100分為“優(yōu)秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以為“不合格”執(zhí)行過程25精選2021版課件使用IF語句實現(xiàn)的程序段如下：Ifx>=90then Print"優(yōu)秀"ElseIfx>=80Then Print"良好"ElseIfx>=70Then Print"中等"ElseIfx>=60Then Print"及格"Else Print"不及格"EndIf26精選2021版課件6.3.2SelectCase語句（條件分支）形式：

SelectCase變量或表達式 Case表達式列表1 語句塊1 Case表達式列表2 語句塊2 … [CaseElse 語句塊n+1] EndSelect<表達式列表>：與<變量或表達式>同類型的下面四種形式之一：表達式

A+5

一組枚舉表達式(用逗號分隔)

2,4,6,8

表達式1To表達式2

60to100 Is關(guān)系運算符表達式

Is<60數(shù)值型或字符串表達式27精選2021版課件將例6.3使用selectcase…..語句來實現(xiàn)的程序段如下：SelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect28精選2021版課件補充例題：設(shè)計一個由計算機來當小學(xué)低年級學(xué)生算術(shù)老師的VB應(yīng)用程序，要求給出一系列的兩個1~10數(shù)的四則運算的算術(shù)題，學(xué)生輸入該題的答案，計算機根據(jù)學(xué)生的答案判斷正確與否，并給出成績，單擊結(jié)束命令按鈕，退出應(yīng)用程序。分析:產(chǎn)生1～10操作數(shù)，可通過Int(10*Rnd+1)實現(xiàn)29精選2021版課件6.3.3選擇結(jié)構(gòu)的嵌套在IF語句的Then分支和Else分支中可以完整地嵌套另一IF語句或SelectCase語句，同樣SelectCase語句每一個Case分支中都可嵌套另一IF語句或另一SelectCase語句。下面是兩種正確的嵌套形式：（1）IF<條件1>Then…..

if<條件2>Then……Else…..EndIf….Else….

IF<條件3>Then…..Else…..EndIf…..EndIF（2）IF<條件1>Then…..SelectCase…Case……

IF<條件1>Then……Else…..EndIf……Case….…..EndSelect….EndIF30精選2021版課件注意：只要在一個分支內(nèi)嵌套，不出現(xiàn)交叉，滿足結(jié)構(gòu)規(guī)則，其嵌套的形式將有很多種，嵌套層次也可以任意多。對于多層IF嵌套結(jié)構(gòu)中，要特別注意IF與Else的配對關(guān)系，一個Else必須與IF配結(jié)，配對的原則是：在寫含有多層嵌套的程序時，建議使用縮進對齊方式，這樣容易閱讀和維護。31精選2021版課件6.4循環(huán)結(jié)構(gòu)1.For循環(huán)語句(一般用于循環(huán)次數(shù)已知)形式

For循環(huán)變量＝初值to終值[Step步長] 語句塊 [ExitFor] 語句塊Next循環(huán)變量循環(huán)體>0初值<終值=1時,可省略<0初值>終值=0死循環(huán)步長32精選2021版課件循環(huán)次數(shù)例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循環(huán)執(zhí)行次數(shù)輸出I的值分別為:25811出了循環(huán)輸出為:I=1433精選2021版課件例6.5編程計算：S=1+2+3+…+100DimS%,I%S=0'累加前變量S為0ForI=1to100S=S+INextIPrint"S=",S當N<=100N=N+1打印SS=0,N=1S=S+N例4-5的算法流程圖34精選2021版課件形式1：（當型循環(huán)）

Do{While|Until}<條件>語句塊[ExitDo]語句塊Loop6.4.2Do…Loop循環(huán)語句35精選2021版課件形式2：(直到循環(huán)）

Do 語句塊 [ExitDo] 語句塊 Loop{While|Until}<條件>36精選2021版課件條件語句塊語句塊TFExitDo條件語句塊語句塊TFExitDoDoUntil…Loop執(zhí)行過程Do…LoopUntil執(zhí)行過程37精選2021版課件說明：（1）當使用While<條件>構(gòu)成循環(huán)時，當條件為“真”則反復(fù)執(zhí)行循環(huán)體，當條件為“假”，則退出循環(huán)。（2）當使用Until<條件>構(gòu)成循環(huán)時，當條件為“假”，則反復(fù)執(zhí)行循環(huán)體，直到條件成立，即為“真”時，則退出循環(huán)。（3）在循環(huán)體內(nèi)一般應(yīng)有一個專門用來改變條件表達式中變量的語句，以使隨著循環(huán)的執(zhí)行，條件趨于不成立（或成立），最后達到退出循環(huán)。（4）語句ExitDo的作用是退出它所在的循環(huán)結(jié)構(gòu)，它只能用在DO/Loop結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來實現(xiàn)當滿足某一條件時提前退出循環(huán)。38精選2021版課件6.4.3While…Wend語句使用格式如下：While<條件><循環(huán)塊>Wend

說明：該語句的功能與DoWhile<條件>….Loop實現(xiàn)的循環(huán)完全相同。例：用do…Loop語句改寫前面的例題6.539精選2021版課件例6.7求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù)Dimn%,m%,nm%,r%m=Val(InputBox("m="))n=Val(InputBox("n="))nm=n*mIfm<nThent=m:m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopPrint"最大公約數(shù)=",nPrint"最小公倍數(shù)=",nm/n算法使用轉(zhuǎn)碾除法，流程圖如右，實現(xiàn)的程序代碼如下：40精選2021版課件6.4.4循環(huán)的嵌套——多重循環(huán)結(jié)構(gòu)

如果在一個循環(huán)內(nèi)完整地包含另一個循環(huán)結(jié)構(gòu)，則稱為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，嵌套一層稱為二重循環(huán)，嵌套二層稱為三重循環(huán)。上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是幾種常見的二重嵌套形式：41精選2021版課件（1）ForI=….…..ForJ=….….NextJ…..NextI（2）ForI=….…..DoWhile/Until….….Loop…..NextI（3）DoWhile….…..ForJ=….….NextJ…..Loop（4）DoWhile/Until….…..DoWhile/Until….….Loop…..Loop42精選2021版課件例如：打印九九乘法表.

Fori=1To9

Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti43精選2021版課件對于循環(huán)的嵌套，要注意以下事項：(1)內(nèi)循環(huán)變量與外循環(huán)變量不能同名；(2)外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；(3)不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán).

正確

錯誤

Forii=1To10Forjj=1To20… Nextii NextjjForii=1To10Forii=1To20… Nextii NextiiForii=1To10Forjj=1To20… NextjjNextiiForii=1To10…NextiiForii=1To10…Nextii44精選2021版課件6.4.5幾種循環(huán)語句比較45精選2021版課件6.4.6循環(huán)結(jié)構(gòu)與選擇結(jié)構(gòu)的嵌套在循環(huán)結(jié)構(gòu)中可以完整嵌套選擇結(jié)構(gòu)即整個選擇結(jié)構(gòu)都屬于循環(huán)體。在選擇結(jié)構(gòu)中嵌套循環(huán)結(jié)構(gòu)時，則要求整個循環(huán)結(jié)構(gòu)必須完整地嵌套在一個分支內(nèi)，一個循環(huán)結(jié)構(gòu)不允許出現(xiàn)在兩個或兩個以上的分支內(nèi)。46精選2021版課件（1）ForI=…………

IF…Then……EndIF……NextI（6）IF…Then……ForI=…………EndIF……NextI（5）SelectCase……ForI=…………Case…………Case…………NextI………EndSelect（3）ForI=…………IF…Then……NextI……EndIF（2）IF…Then……

ForI=…………NextI……EndIF0（4）ForI=…………

SelectCase…Case…………Case…………EndSelect……NextI×××47精選2021版課件6.5其它控制語句

6.5.1Goto語句形式:GoTo{標號|行號}作用是無條件地轉(zhuǎn)移到標號或行號指定的那行語句.標號是一個字符序列,行號是一個數(shù)字序列。

例求100以內(nèi)的素數(shù)判別某數(shù)m是否為素數(shù)最簡單的方法是:對于m從i=2，3，…，m-1判別m能否被i整除，只要有一個能整除，m不是素數(shù)，否則m是素數(shù)。Form=2To100Fori=2Tom-1If(mModi)=0ThenGoToNotNextMNextiPrintmNotNextM:Nextm48精選2021版課件6.5.2Exit語句Exit語句用于退出Do...Loop、For...Next、Function或Sub代碼塊。對應(yīng)的使用格式為：ExitDo、ExitFor、ExitFunction、ExitSub。分別表示退出DO循環(huán)、For循環(huán)、函數(shù)過程、子過程。例如：下面的例子是使用Exit語句退出For...Next循環(huán)、Do...Loop循環(huán)及子過程。49精選2021版課件PrivateSubForm_Click()DimI%,Num%Do'建立無窮循環(huán)。ForI=1To100'循環(huán)100次。Num=Int(Rnd*100)'生成一個0~99的隨機數(shù)。SelectCaseNumCase10:ExitFor'退出For...Next循環(huán)。Case50:ExitDo'退出Do...Loop循環(huán)。Case64:ExitSub'退出子過程。EndSelectNextILoopEndSub50精選2021版課件6.5.3End語句形式：End

功能：結(jié)束一個程序的運行。在VisualBasic中還有多種形式的End語句，用于結(jié)束一個程序塊或過程。其形式有：EndIfEndSelectEndTypeEndWithEndSubEndFunction等它們與對應(yīng)的語句配對使用。

51精選2021版課件6.5.4暫停語句Stop語句用來暫停程序的執(zhí)行，相當于在事件代碼中設(shè)置斷點。語法格式為：Stop說明：1.Stop語句的主要作用是把解釋程序置為中斷(Break)模式，以便對程序進行檢查和調(diào)試?？梢栽诔绦虻娜魏蔚胤椒胖肧top語句，當執(zhí)行Stop語句時，系統(tǒng)將自動打開立即窗口。2.與End語句不同。52精選2021版課件6.5.5With...EndWith語句形式：With對象名語句塊EndWith說明：With語句可以對某個對象執(zhí)行一系列的語句，而不用重復(fù)指出對象的名稱。例如，要改變一個對象的多個屬性，可以在With控制結(jié)構(gòu)中加上屬性的賦值語句，這時候只是引用對象一次而不是在每個屬性賦值時都要引用它。下面的例子顯示了如何使用With語句來給同一個對象的幾個屬性賦值。53精選2021版課件例如，需要對同一對象設(shè)置幾個屬性。途徑之一是使用多條語句。PrivateSubForm_Load()Command1.Caption="退出(E&xit)"Command1.Top=500Command1.Left=4500Command1.Enabled=TrueEndSub使用With...EndWith語句，上面程序的代碼如下。PrivateSubForm_Load()WithCommand1.Caption="OK".Top=500.Left=4500.Enabled=TrueEndWithEndSub54精選2021版課件6.6應(yīng)用程序舉例6.6.1素數(shù)與哥德巴赫猜想判斷一個給定的整數(shù)是否為素數(shù)。

算法思路：素數(shù)指除了能被1和自身外，不能被其他整數(shù)整除的自然數(shù)。判斷整數(shù)N是不是素數(shù)的基本方法是：將N分別除以2，3，…，N-1，若都不能整除，則N為素數(shù)。因為N=Sqr(N)*Sqr(N)，所以，當N能被大于等于Sqr(N)的整數(shù)整除時，一定存在一個小于等于Sqr(N)的整數(shù)，使N能被它整除，因此只要判斷N能否被2，3，…，Sqr(N)整除即可。算法流程圖如下：55精選2021版課件DimN%,I%,K%N=Val(InputBox("N=？"))K=Int(Sqr(N))ForI=2ToKIfNModI=0ThenExitForNextIIfI>KThenPrintN;"是素數(shù)"ElsePrintN;"不是素數(shù)"EndIf

56精選2021版課件驗證哥德巴赫猜想：一個大于等于6的偶數(shù)可以表示為兩個素數(shù)之和。例如：6=3+38=3+510=3+7

算法設(shè)計：設(shè)N為大于等于6的任一偶數(shù)，將其分解為N1和N2兩個數(shù)，使用N1+N2=N，分別判斷N1和N2是否為素數(shù)，若都是，則為一組解。若N1不是素數(shù)，就不必再檢查N2是否素數(shù)。先從N1=3開始，直到N1=N/2為止。算法流程圖如圖4-29所示。將程序代碼寫到窗體的單擊事件中。實現(xiàn)上面算法的程序代碼如下：57