算法及其實(shí)現(xiàn)——學(xué)考指導(dǎo)意見算法的含義、表示、特征對(duì)象、屬性、類、方法、事件和事件處理VB窗口的組成、VB應(yīng)用程序的界面設(shè)計(jì)控件的應(yīng)用，編寫事件處理過程的代碼應(yīng)用程序的運(yùn)行和保存基本數(shù)據(jù)類型、常量和變量一維數(shù)組、常用標(biāo)準(zhǔn)函數(shù)（abs int sqr rnd val str asc chr len mid）算術(shù)、關(guān)系、邏輯三類基本運(yùn)算及表達(dá)式賦值語句、選擇語句、循環(huán)語句、注釋語句順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)算法的綜合運(yùn)用與程序?qū)崿F(xiàn)（枚舉算法和解析算法的實(shí)現(xiàn)）算法的含義：就是解決問題的方法算法的特征：有窮性、確定性、輸入、輸出、可行性（有效性）有窮性：一個(gè)算法必須保證執(zhí)行有限步之后結(jié)束；確定性：算法的每一步驟必須有確切的定義；輸入：一個(gè)算法有0個(gè)或多個(gè)輸入，所謂0個(gè)輸入是指算法 本身定出了初始條件；輸出：一個(gè)算法有一個(gè)或多個(gè)輸出，反應(yīng)算法須有結(jié)果，沒有輸出的算法是毫無意義的；可行性：每步都可以在有限時(shí)間內(nèi)完成；（也稱之為有效性）算法的表示（描述）：自然語言、流程圖和計(jì)算機(jī)語言。自然語言：指用使用的語言（本國(guó)語言），用自然語言描述符合我們的習(xí)慣，且容易理解。例1：求圓的周長(zhǎng)和面積算法如下：（自然語言描述法）（1）輸入半徑r；(2)計(jì)算周長(zhǎng)c=2*π*r；(3)計(jì)算面積s=π*r*r；(4)輸出周長(zhǎng)c，輸出面積s；(5)結(jié)束例2：工人每天工作8小時(shí),每小時(shí)9元,超過8小時(shí)的每小時(shí)增加15%的加班費(fèi),計(jì)算工人每天的應(yīng)發(fā)的日工資。輸入工作小時(shí)X判斷X值，分別計(jì)算X小于8，工資=X*9X大于8，工資=X*9＋(X-8)*9*0.15輸出工資結(jié)束練習(xí)：求三個(gè)數(shù)中的最大數(shù)。（用自然語言描述）流程圖：也稱程序框圖，它是算法的一種圖形化表示方法。程序框名稱功能

開始/結(jié)束框表示算法的開始或結(jié)束

輸入/輸出框表示算法中變量的輸入或輸出

處理框表示算法中變量的賦值與計(jì)算

判斷框表示算法中的條件判斷

流程線表示算法中的流向

連接點(diǎn)表示算法中的連接例1：求圓的周長(zhǎng)和面積cc←2*π*rs←π*r*r輸出c,s輸入r結(jié)束開始輸出c,s輸入r結(jié)束開始練習(xí)：求三個(gè)數(shù)中的最大數(shù)。（用流程圖描述）計(jì)算機(jī)語言：如VB語言SHAPE表示算法例1：求圓的周長(zhǎng)和面積dimr,c,saslongc=2*π*rs=π*r*rprintc,s練習(xí)：求三個(gè)數(shù)中的最大數(shù)。（用偽代碼描述）練習(xí)題:1下面對(duì)算法描述正確的一項(xiàng)是（）A、算法只能用自然語言來描述B、算法只能用圖形方式來表示C、同一問題可以有不同的算法D、同一問題的算法不同，結(jié)果必然不同2．下面關(guān)于算法描述正確的是（

）(A)算法不可以用自然語言表示(B)算法只能用框圖來表示(C)一個(gè)算法必須保證它的執(zhí)行步驟是有限的(D)算法的框圖表示法有0個(gè)或多個(gè)輸入，但只能有一個(gè)輸出3、圖形符號(hào)""在算法流程圖描述中表示().A處理或運(yùn)算的功能 B輸入輸出操作C用來判斷條件是否滿足需求D算法的開始或結(jié)束4、以下哪個(gè)是算法的描述方法?()A流程圖B枚舉法C順序法D列表法5、下面的語句是一個(gè)計(jì)算機(jī)程序的操作說明：（1）初始值為x=1，y=1，z=0，n=0；（2）n=n+1（將當(dāng)前n+1的值賦予新的n）；（3）x=x+2（將當(dāng)前x+2的值賦予新的x）；（4）y=2y（將當(dāng)前2y的值賦予新的y）；（5）z=z+xy（將當(dāng)前z+xy的值賦予新的z）；（6）如果z＞7，則執(zhí)行語句（7），否則返回語句（2）繼續(xù)進(jìn)行；（7）打印n，z；（8）程序終止．由語句（7）打印出的數(shù)值為______,_______.變量和常量變量命名：1、必須以字母開頭,不能以數(shù)字或其他字符開頭。2、只能由字母、數(shù)字學(xué)或下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符。3、不能以VB保留字作變量名，如語句定義符、函數(shù)名、if、do、then等。常用數(shù)據(jù)類型整型Integer從-32768到32767長(zhǎng)整型Long從-2147483648到2147483647單精度實(shí)型Single負(fù)數(shù)-3.402823E+38到-1.401298E-45正數(shù)1.40129E-45到3.402823E38但它只有7位有效數(shù)字雙精度實(shí)型Double絕對(duì)值小于10308的數(shù)，它有15位有效數(shù)字日期型Date(Time)如：#2008-01-31##01/31/2008#字符型String如：“中國(guó)”，“zhongguo”布爾型BooleanTrue或False常量和變量的定義符號(hào)常量的聲明：Const常量名[As常量類型]=常量值如：ConstpiAsSingle=3.14159常量名為pi變量的聲明：Dim<變量名>As<變量類型>如：DimaAsInteger定義一個(gè)整型變量，變量名為a變量的賦值:變量=表達(dá)式 a=5(賦值語句)四、運(yùn)算符算術(shù)運(yùn)算：+-*^/\mod加減乘乘方除整除取余^指數(shù)例：2^2=4/（浮點(diǎn)）除例：5/2=2.5\整除例：5\2=2Mod求余數(shù)例：5Mod2=12、關(guān)系運(yùn)算=><>=<=<>等于大于小于大于等于小于等于不等于注意：關(guān)系表達(dá)式的運(yùn)算結(jié)果為布爾值True或False例：3>2結(jié)果為True(真或是)3、邏輯運(yùn)算Not（取反）And（與）Or（或）運(yùn)算結(jié)果為布爾型（Boolean）True或False邏輯運(yùn)算符的優(yōu)先級(jí)為：No>And>Or4、日期運(yùn)算符與日期表達(dá)式日期表達(dá)式是用日期運(yùn)算符“+”或“-”將算式表達(dá)式、日期型常量、日期型變量、日期函數(shù)等連接起來的式子，如表達(dá)式“#2003/09/01#+30”的運(yùn)算結(jié)果是“2003-10-1”；表達(dá)式“#2003/10/20#-#2003/10/10#”的運(yùn)算結(jié)果為整數(shù)105、字符運(yùn)算字符串連接符為“+”和“&”“123”+“45”=“12345”“123”&“45”=“12345”123+“45”=168“123”+45=168運(yùn)算符的執(zhí)行順序：在VB中，當(dāng)一個(gè)表達(dá)式中同時(shí)出現(xiàn)多種運(yùn)算符時(shí)，運(yùn)算次序由運(yùn)算符的優(yōu)先級(jí)決定，優(yōu)先級(jí)高的運(yùn)算符先運(yùn)算，優(yōu)先級(jí)相同的從左向右進(jìn)行運(yùn)算。不同性質(zhì)的運(yùn)算符優(yōu)先級(jí)如下。算術(shù)運(yùn)算符>字符串運(yùn)算符>

關(guān)系運(yùn)算符>

邏輯運(yùn)算符6、常用函數(shù)函數(shù)名說明示例結(jié)果Sin（X）X弧度的正弦Sin（0）0Cos(X)X弧度的余弦Cos(0)1Tan（X）X弧度的正切Tan（0）0Atn（X）X用弧度表示的反正切值A(chǔ)tn（0）0Abs（X）X的絕對(duì)值A(chǔ)bs（-3.5）3.5Exp（X）e的指定次冪，即exExp（3）20.086Log（X）一個(gè)數(shù)值X的自然對(duì)數(shù)Log（10）2.3Sqr（X）X的平方根Sqr（9）3Sgn（X）符號(hào)函數(shù)：X>0,得到1，X<0,得到-1，X=0得到0Sgn（-3.5）-1Int（X）不大于給定數(shù)X的最大整數(shù)Int（-1.6）-2Fix（X）X的整數(shù)部分Fix（-1.6）-1Cint（X）類型為：Integer-322768～32767小數(shù)部分四舍五入CLng（X）類型為：Long-2147483648～2147483647小數(shù)部分四舍五入Mid（C,N1,N2）從C中N1位開始取出長(zhǎng)度為N2的子串Mid(“ABCDEFG”，3，2)“CD”Right(C,N)返回字符串右邊N個(gè)字符Right(“ABCDEFG”,3)“EFG”Left(C,N)返回字符串左邊N個(gè)字符Left(“ABCDEFG”,3)“ABC”Len(C,N)測(cè)量字符串的長(zhǎng)度Len(“VB學(xué)習(xí)的開始”)7Space(N)產(chǎn)生N個(gè)空格組成的字符串“ABC”&“Space(N)”&“113”“ABC123”Date()返回當(dāng)前系統(tǒng)日期（yy-mm-dd）Date()或Date04-12-18Time()返回系統(tǒng)時(shí)間Time()或Time10:36:08練習(xí)題：1、下列變量名寫法錯(cuò)誤的是()A、abc_123B、123abcC、abc123D、abc2、下列語句中定義了一個(gè)實(shí)型變量的是()A、DimendasIntegerB、DimsumAsSingleC、DimNameAsStringD、其它三項(xiàng)都不對(duì)3、在VB中，以下關(guān)于符號(hào)常量的聲明，聲明正確的是:()A、DimTAGasStringB、ConstTAGasString"Visual"+"Basic"C、ConstTAGasString="VisualBasic"D、ConstTAGasString4、下面()不是字符串常量A、"True"B、#False#C、""D、"你好"5、分析s=11\3+11Mod3，s的值是().A、5B、6C、4D、36、下面表達(dá)式的值是false的有().A、"969"<"n97"B、Int(4.99)<>len("basic")C、str(2000)<"1997"D、3>27、設(shè)a=2,b=3,在VB中，表達(dá)式a>bOrb>3值是:()A、FalseB、TrueC、-1D、18、VisualBasic中，下列()函數(shù)是求絕對(duì)值的。A、ABS（X）B、SQR(X）C、INT（X）D、GN（X)9、表達(dá)式Abs(-3.6)*sqr(100)的值是()。A、-36B、360C、36D、-36010、下列()數(shù)據(jù)類型不是數(shù)值型。A、DateB、SingleC、DoubleD、Integer11、下列函數(shù)中，返回值是字符串的是().A、MidB、InstrC、ValD、Len12、代數(shù)表達(dá)式表達(dá)式后錯(cuò)誤的是()A、g*t*t/2B、1/2*g*t^2C、g*t^2/2D、gt^2/213、數(shù)學(xué)式子在VB中的正確寫法是：（）A、(2*a+b)/4*aB、(2*a+b)/(4ab)C、(2a+b)(4ab)D、(2*a+b)/(4*a*b)程序設(shè)計(jì)一、賦值語句1.格式：變量名=表達(dá)式例1：A=123；A=B；B=2*3；A=A+10；C$=“CHINA”賦值語句的功能：計(jì)算功能和賦值功能二、輸入數(shù)據(jù)的函數(shù)InputBox（）是提供從鍵盤輸入數(shù)據(jù)的函數(shù)。利用它可產(chǎn)生一個(gè)對(duì)話框，提示用戶輸入數(shù)據(jù)并單擊命令按鈕。該函數(shù)返回值是字符串類型（string）。InputBox（）的語法格式為：InputBox（提示信息，標(biāo)題，默認(rèn)值，位置）提示信息：指對(duì)輸入數(shù)據(jù)的提示，顯示在對(duì)話框中，不能省略標(biāo)題：指運(yùn)行此函數(shù)后彈出的對(duì)話框的標(biāo)題。默認(rèn)值：指默認(rèn)的輸入數(shù)據(jù)值位置：指運(yùn)行此函數(shù)后彈出的對(duì)話框的左上角在屏幕上的位置注意：提示信息和標(biāo)題是用引號(hào)引起來的字符串三、輸出數(shù)據(jù)的方法1、基本格式：Print輸出內(nèi)容注意：1、輸出內(nèi)容可以是數(shù)、變量、表達(dá)式，也可以是用引號(hào)括起來的字符串；2、如果輸出內(nèi)容是數(shù)，變量，表達(dá)式，則輸出的是數(shù)，變量，表達(dá)式，如果是用引號(hào)引起來的字符串，則原樣輸出；3、多個(gè)輸出內(nèi)容，可以用逗號(hào)或分號(hào)分隔；如果用分號(hào)，則后面一個(gè)輸出緊跟前一個(gè)輸出；如果是逗號(hào)，則分區(qū)格式輸出；4、如果輸出內(nèi)容后面沒有符號(hào)，則表示下一個(gè)Print換行輸出，如果print中沒有輸出內(nèi)容，則表示輸出一個(gè)空行。程序設(shè)計(jì)的順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、沒有重復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。例1：交換兩個(gè)變量中的數(shù)據(jù)。PrivateSubcmdSwap_Click()DimxAsSingle,yAsSingleDimmAsSinglex=inputbox(“請(qǐng)輸入X的值”)y=inputbox(“請(qǐng)輸入Y的值”)m=xx=yy=m//交換數(shù)據(jù)printx，yEndSub例2：從鍵盤上輸入一個(gè)三位數(shù)，然后將它反向輸出，如：輸入456，輸出654。分析問題設(shè)X為輸入的三位整數(shù),Y為X的方向輸出。因?yàn)閄的百位、十位、個(gè)位分別為：X1=X\100X2=(X-X1*100)\10X3=X-X1*100-X2*10所以Y=X3*100+X2*10+X1(2)設(shè)計(jì)算法①輸入X的值②計(jì)算：X1=X\100③計(jì)算：X2=(X-X1*100)\10④計(jì)算：X3=X-X1*100-X2*10⑤計(jì)算：Y=X3*100+X2*10+X1⑥輸出Y的值（3）編寫程序Privatesubcommand_click()Dimxasinteger,x1asinteger,x2asinteger,x3asinteger,yasintegerX=inputbox(“x=”,”輸入”)X1=X\100X2=(X-X1*100)\10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print“y=”;yEndsub（4）調(diào)試程序練習(xí)題：1、以下是一段VB程序：a=1b=a+1c=a+b它的基本結(jié)構(gòu)屬于（）A、順序結(jié)構(gòu)B、選擇結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、樹型結(jié)構(gòu)2、下列VB程序運(yùn)行后，變量x的值為().x=2Printx+lPrintx+23、執(zhí)行以下程序，在彈出的第1個(gè)輸入框輸入“10”，第2個(gè)輸入框輸入“15”,則輸出的結(jié)果為（

）。

DimaAsInteger,bAsInteger

a=InputBox("輸入","a=")

b=InputBox("輸入","b=")

Printa;"+";b;"=",a+b

A.b+a=25B.10+15=25C.a+b=25D.15+10=254、已知A，B，C，D是整型變量，且都已有互不相同的值，執(zhí)行語句“B=8：A=C：D=A:D=B”后，其值相等的變量是（

）。

A.A，DB.A，CC.C，BD.B，A5、要交換變量A和B之值，應(yīng)使用的語句組是（

）。

A.A=B：B=C：C=AB.C=A：A=B：B=C

C.A=B：B=AD.C=A：B=A：B=C6、有如下VisualBasic程序段：

m="VB"

n="is"

t="easy"

t=m+n+t

該程序段運(yùn)行后，變量t的值為。7、試編寫一個(gè)程序，實(shí)現(xiàn)輸入一個(gè)四位數(shù)的數(shù)，然后將它倒序輸出。行If是指在一行中寫完的If語句。其一般格式為：格式一：If條件Then語句功能：執(zhí)行這種形式的If語句時(shí)，首先對(duì)條件進(jìn)行判斷。若條件成立，則執(zhí)行Then后面的語句；若條件不成立，則執(zhí)行If語句后繼程序行的語句格式二：If條件Then語句1Else語句2功能：執(zhí)行這種形式的語句時(shí)，先進(jìn)行判斷。若條件成立，則執(zhí)行語句1；否則執(zhí)行語句2。例1：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingleDimMinAsSinglea=InputBox("輸入a","輸入框")b=InputBox("輸入b","輸入框")c=InputBox("輸入c","輸入框")Ifa<bThenMin=aElseMin=bIfc<MinThenMin=cPrint"最小數(shù)＝";MinEndSub二、塊If語句行If-then語句只能根據(jù)條件的真假是否執(zhí)行一條語句，當(dāng)Then部分和Else部分包含的內(nèi)容較多時(shí)，則可選用“塊If語句”結(jié)構(gòu)。格式一：If條件Then語句塊EndIf例2：當(dāng)從輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于60時(shí)顯示"及格"，該數(shù)小于60時(shí)顯示"不及格"。PrivateSubCommand1_Click()DimaAsSinglea=InputBox("輸入a")Ifa>=60ThenPrint"及格"EndIfIfa<60ThenPrint"不及格"EndIfEndSub格式二：If條件Then語句塊1Else語句塊2EndIf例3：編寫一程序，求一個(gè)一元二次方程ax2+bx+c=0的兩個(gè)根。PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputBox("輸入a","輸入框")b=InputBox("輸入b","輸入框")c=InputBox("輸入c","輸入框")d=b2-4*a*cIFd>=0thenx1=(-b+sqr(d))/2elsex1=(-b-sqr(d))/2endifprint“x1=”;x1,”x2=”;x2EndSub練習(xí)題:1、以下是一段VisualBasic程序:IfI=1ThenX=X+1ElseX=X*2EndIf它的基本結(jié)構(gòu)屬于().A、選擇結(jié)構(gòu)B、循環(huán)結(jié)構(gòu)C、順序結(jié)構(gòu)D、樹型結(jié)構(gòu)2、下列程序段運(yùn)行后，變量Value的值是（）x=20Ifx>=10ThenValue=5*xElseValue=4*xEndIfA、100B、80C、90D、703、如要完成:從鍵盤輸入一個(gè)正整數(shù)，判斷是否是奇數(shù)，如是就在屏幕上顯示。比較好的算法是()選項(xiàng):A、①輸人的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為True就顯示n中值B、①輸人的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為False就顯示n中值C、①輸人的數(shù)存人n變量②如果n/2=Int(n/2)成立，就顯示n中值D、①輸人的數(shù)存人n變量②如果n/2=Int(n/2)不成立，就顯示n中值4、下面是判斷變量x是不是能被5整除的偶數(shù)的程序，橫線上的邏輯表達(dá)式應(yīng)為()PrivateSubcommandl_Click()DimxAsIntegerx=Val(Text1.Text)If____=0ThenPrint“這個(gè)數(shù)是能被5整除的偶數(shù)”ElsePrint“這個(gè)數(shù)不是能被5整除的偶數(shù)”EndIf選項(xiàng)：A、(xMod5)=0And(xMod2)=0B、xMod10=0C、xMod5=0D、xMod2=05、如要完成:從鍵盤輸入一個(gè)正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好的算法是()。選項(xiàng):A、①輸入的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為True就顯示n中值B、①輸入的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為False就顯示n中值C、①輸入的數(shù)存人n變量②如果n/2=Int(n/2)成立，就顯示n中值D、①輸入的數(shù)存人n變量②如果n/2=Int(n/2)不成立，就顯示n中值6、下列程序段運(yùn)行后,m的值為()A=2:b=1:c=5IfA<bThenm=AElsem=bIfc<mThenm=c選項(xiàng)：A、1 B、2 C、5 D、提示錯(cuò)誤，無答案For循環(huán)變量一般形式是：For循環(huán)變量=初值To終值Step循環(huán)變量增量循環(huán)體Nxt循環(huán)變量例1：求s＝1+2+3+4.....+100PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100step1sum=sum+i'循環(huán)體NextiPrint"sum=";sumEndSub循環(huán)變量的初值、終值、循環(huán)變量增量都是數(shù)值型。其中要重復(fù)執(zhí)行的操作稱為循環(huán)體，增量可正可負(fù)，如果沒有設(shè)置Step，則增量的缺省值為1循環(huán)變量取初值；循環(huán)變量與終值比較，沒有超過終值轉(zhuǎn)3，否則循結(jié)束，接著執(zhí)行循環(huán)語句的后繼語句；執(zhí)行一次循環(huán)體循環(huán)變量增加一個(gè)增量重復(fù)步驟2~4。以上可以看出，F(xiàn)or-Next循環(huán)變量是一種當(dāng)型循環(huán)。說明For語句與Next語句必須成對(duì)出現(xiàn)，而且它們當(dāng)中的“循環(huán)變量”必須是同一個(gè)變量，如上例中均為I。當(dāng)循環(huán)變量為正時(shí)，循環(huán)變量超過終值，是指循環(huán)變量的值大于終值時(shí)；若為負(fù)，則是指循環(huán)變量的值小于終值。AAP入口出口例2：編寫程序，使能打印下面所示的圖案。@@@@@@@@@@@@@@@@@@@@@程序：PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerFori=1To6Forj=1ToiPrint“@”;NextjPrintNextiEndSub一個(gè)FOR循環(huán)里包含了另一個(gè)FOR，我們稱它為嵌套循環(huán)。練習(xí)題:1、閱讀如下程序，跟蹤程序的執(zhí)行過程，觀察變量A的值的變化，寫出循環(huán)結(jié)束時(shí)變量A的值、循環(huán)次數(shù)和程序的運(yùn)行結(jié)果。privaatesubcommand1_click()forA=1TO10printANextAEndSubprivaatesubcommand1_click()ForA=1To100S=S+ANextAPint“S=”;SEndSubprivaatesubcommand1_click()ForA=100To1step-1S=S+ANextAPrint“s=”;sEndSubprivaatesubcommand1_click()ForA=1To10A=A+1PrintANextAEndSub2、閱讀下面程序，輸出結(jié)果是()PrivateSubForm_Click()DimiAsInteger:DimsAsIntegers=0Fori=1To5s=s+iNextiPrints,iEndSub選項(xiàng):A、15 6B、s=15i=6C、65D、s=6i=53、試編寫一個(gè)程序，求出100以內(nèi)能被3整除的所有正整數(shù)。4、試編寫一個(gè)程序，求出1*2*3……*100積。二、Do－Loop循環(huán)For-Next循環(huán)的次數(shù)是確定的，但是有的問題只知道循環(huán)結(jié)束的條件，重復(fù)執(zhí)行的次數(shù)事先并不知道，這是需要Do-Loop循環(huán)格式一：DoWhile條件循環(huán)體Loop例3：求最大公約數(shù)PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimrAsIntegera=InputBox("輸入a")b=InputBox("輸入b")r=aModbDoWhiler<>0a=bb=rr=aModbLoopPrintbEndSub當(dāng)VB執(zhí)行DoWhile-Loop循環(huán)時(shí)，先判斷指定的條件是否為真，若條件為真，執(zhí)行循環(huán)體，條件為假時(shí)退出循環(huán)。格式二：Do循環(huán)體LoopUntil條件這種循環(huán)的執(zhí)行過程如圖所示。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件P是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體A，直到條件P成立退出循環(huán)體。AAPN例4：如果我國(guó)人口每年以平均1.5%的速度增長(zhǎng)，問多少年后我國(guó)人口達(dá)到或超過15億？設(shè)現(xiàn)在人口為12.3億。PrivateSubForm_Click()DimpAsSingleDimrAsSingleDimnAsIntegerp=1230000000r=0.015n=0Dop=p*(1+r)n=n+1LoopUntilp>=1500000000Printn;"年后","人口=";pEndSub練習(xí)題:1、在VB中，以下程序段:x=0DoWhilex<50x=(x+2)*(x+3)Loop執(zhí)行后，x的值為:().A、168B、50C、72D、04、要求計(jì)算機(jī)打印出100至200之問所有偶數(shù)的平方根值。正確的算法是()。選項(xiàng):A、①i=100②DoWhilei<200:Printi，Sqr(i):LoopB、①i=100②DoWhilei<200:Printi，Sqr(i):i=i+1:LoopC、Fori=100To200Step2:Printi，Sqr(i):Next