算法語(yǔ)法知識(shí)If條件語(yǔ)句、for/next和do/while循環(huán)語(yǔ)句一、注釋語(yǔ)句用單引號(hào)帶頭，說(shuō)明該語(yǔ)句的作用，更容易理解程序。一行上寫(xiě)一個(gè)語(yǔ)句或幾個(gè)語(yǔ)句，相鄰兩個(gè)語(yǔ)句之間用冒號(hào)分隔例如:

r=val(text1.text)‘輸入半徑rtext2.text=str(3.14*r*r)‘輸出面積

a=2:b=4:c=6‘給三條邊賦值二、賦值語(yǔ)句把等號(hào)（賦值號(hào)）右邊的表達(dá)式的計(jì)算結(jié)果存儲(chǔ)到等號(hào)左邊指定的變量中，或存放到某個(gè)對(duì)象的指定的屬性中

變量名=表達(dá)式如：s=3.14*r^2

：a=5對(duì)象名.屬性名=表達(dá)式如：text1.text=str(s)‘改變文本框的文本屬性

label.caption=“您好!”‘改變標(biāo)簽的標(biāo)題’timer1.enable=true‘改變計(jì)時(shí)器的可用性list1.additemstr(s)

‘在列表框中添加項(xiàng)

數(shù)值型=val（字符串型）如：n=val(text1.text)字符串型=str（數(shù)值型）如：text1.text=str(n)對(duì)象名.屬性名對(duì)象名.方法都是字符串型條件選擇語(yǔ)句行if語(yǔ)句格式1：If條件表達(dá)式then語(yǔ)句1else語(yǔ)句2塊if語(yǔ)句格式1：If條件表達(dá)式then

語(yǔ)句1Else

語(yǔ)句2Endif行if語(yǔ)句格式2：If條件表達(dá)式then語(yǔ)句1塊if語(yǔ)句格式2：If條件表達(dá)式then

語(yǔ)句1Endif塊if語(yǔ)句格式3：If條件表達(dá)式then

語(yǔ)句1Elseif條件表達(dá)式2then

語(yǔ)句2Elseif條件表達(dá)式3then

語(yǔ)句3Else

語(yǔ)句0Endif塊if語(yǔ)句格式4：If條件表達(dá)式then

語(yǔ)句1Elseif條件表達(dá)式2then

語(yǔ)句2Elseif條件表達(dá)式3then

語(yǔ)句3EndifIf語(yǔ)句舉例If成績(jī)>=90then

設(shè)置等級(jí)“優(yōu)秀”

Elseif成績(jī)>=70then

設(shè)置等級(jí)“良好”

Elseif成績(jī)>=60then

設(shè)置等級(jí)“及格”

Else

設(shè)置等級(jí)“不及格”

Endif某市出租車(chē)的收費(fèi)標(biāo)準(zhǔn)如下：①3公里以?xún)?nèi)（含3公里），起步價(jià)10元②10公里以?xún)?nèi)（含10公里），超過(guò)3公里部分按1.8元/公里收費(fèi)③10公里以上，超過(guò)10公里部分按2.4元/公里收費(fèi)另外，當(dāng)時(shí)速小于12公里/小時(shí)，視為等待并計(jì)時(shí)。等待時(shí)間每5分鐘折算成1公里，按3-10公里標(biāo)準(zhǔn)收費(fèi)（3公里以?xún)?nèi)不計(jì)費(fèi)）例題：小明設(shè)計(jì)了一個(gè)VB程序，實(shí)現(xiàn)功能如下：在文本框Text1中輸入一個(gè)學(xué)生成績(jī)，單擊“判定成績(jī)等級(jí)”按鈕，在label3中輸出該成績(jī)的等級(jí)。運(yùn)行界面如圖所示，程序代碼如下：（1）若將Text1的名稱(chēng)改為“Txt”，則應(yīng)修改文本框的___________屬性。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)谙聞澗€(xiàn)處填入合適的代碼。PrivateSubCommand1_Click()DimxAsIntegerx=_______①_______Ifx>=90ThenLabel3.Caption="A"

ElseIfx>=80ThenLabel3.Caption="B"

ElseIfx>=60ThenLabel3.Cation="C"

ElseIfx>=55ThenLabel3.Caption="D"______②______Label3.Caption="E"EndIfEndSub（１）在設(shè)計(jì)程序界面時(shí)，要將窗體的標(biāo)題“Ｆｏｒｍ１”修改為“變量名驗(yàn)證”，應(yīng)修改窗體Ｆｒｏｍ１的屬性。（２）實(shí)現(xiàn)上述功能的ＶＢ程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｓＡｓＳｔｒｉｎｇ，ｃｈＡｓＳｔｒｉｎｇ，ｆｌａｇＡｓＢｏｏｌｅａｎｓ＝Ｔｅｘｔ１．Ｔｅｘｔｆｌａｇ＝Ｔｒｕｅｃｈ＝Ｍｉｄ（ｓ，１，１）ＩｆＮｏｔ（ｃ＞＝＂ａ＂Ａｎｄｃ＜＝＂ｚ＂Ｏｒｃ＞＝＂Ａ＂Ａｎｄｃ＜＝＂Ｚ＂）Ｔｈｅｎｆｌａｇ＝ＦａｌｓｅＥｎｄＩｆｉ＝２ＤｏＷｈｉｌｅ

①_________

ｃｈ＝Ｍｉｄ（ｓ，ｉ，１）Ｉｆｃｈ＝＂＿＂Ｔｈｅｎｆｌａｇ＝ＴｒｕｅＥｌｓｅＩｆｃｈ＞＝＂０＂Ａｎｄｃｈ＜＝＂９＂Ｔｈｅｎｆｌａｇ＝ＴｒｕｅＥｌｓｅＩｆｃｈ＞＝＂ａ＂Ａｎｄｃｈ＜＝＂ｚ＂Ｔｈｅｎｆｌａｇ＝ＴｒｕｅＥｌｓｅＩｆｃｈ＞＝＂Ａ＂Ａｎｄｃｈ＜＝＂Ｚ＂Ｔｈｅｎｆｌａｇ＝ＴｒｕｅＥｌｓｅｆｌａｇ＝Ｆａｌｓｅ

_______②_______

ｉ＝ｉ＋１ＬｏｏｐＩｆｆｌａｇＴｈｅｎＬａｂｅｌ１．Ｃａｐｔｉｏｎ＝＂合法＂ＥｌｓｅＬａｂｅｌ１．Ｃａｐｔｉｏｎ＝＂不合法＂ＥｎｄＳｕｂ（３）程序運(yùn)行時(shí)，在文本框Ｔｅｘｔ１中輸入“Ａ＋Ｂ”，單擊“驗(yàn)證”按鈕后，則標(biāo)簽Ｌａｂｅｌ１上顯示的內(nèi)容是

。If語(yǔ)句嵌套區(qū)分行if語(yǔ)句和塊if語(yǔ)句（then后面有無(wú)內(nèi)容）For循環(huán)語(yǔ)句For循環(huán)變量=初值to終值step步長(zhǎng)語(yǔ)句塊（循環(huán)體）Next循環(huán)變量s=0Fori=1to10step1s=s+iNexti開(kāi)始結(jié)束循環(huán)變量=初值循環(huán)變量<=終值執(zhí)行循環(huán)體循環(huán)變量循環(huán)變量+步長(zhǎng)NY步長(zhǎng)為正數(shù)的邏輯流程開(kāi)始結(jié)束循環(huán)變量=初值循環(huán)變量>=終值執(zhí)行循環(huán)體循環(huán)變量循環(huán)變量+步長(zhǎng)NY步長(zhǎng)為負(fù)數(shù)的邏輯流程For循環(huán)舉例s=0Fori=1to10step2s=s+iNexti當(dāng)i=1時(shí)，i<=10成立，執(zhí)行s=0+1=1nextI，則i=3當(dāng)i=3時(shí)，i<=10成立，執(zhí)行s=1+3=4nextI，則i=5當(dāng)i=5時(shí)，i<=10成立，執(zhí)行s=4+5=9next

I，則i=7當(dāng)i=7時(shí)，i<=10成立，執(zhí)行s=9+7=16nexti，則i=9

當(dāng)i=9時(shí)，i<=10成立，執(zhí)行s=16+9=25nextI,則i=11當(dāng)i=11時(shí)，i<=10不成立，退出循環(huán)，執(zhí)行nexti后面的語(yǔ)句。循環(huán)結(jié)束后，s的值為25，i的值為11For循環(huán)舉例s=0Fori=5to-3step-2s=s+iNexti當(dāng)i=5時(shí)，i>=-3成立，執(zhí)行s=0+5=5nextI，則i=3當(dāng)i=3時(shí)，i>=-3成立，執(zhí)行s=5+3=8nextI，則i=1當(dāng)i=1時(shí)，i>=-3成立，執(zhí)行s=8+1=9next

I，則i=-1當(dāng)i=-1時(shí)，i>=-3成立，執(zhí)行s=9-1=8nexti，則i=-3

當(dāng)i=-3時(shí)，i>=-3成立，執(zhí)行s=8-3=5nextI,則i=-5當(dāng)i=-5時(shí)，i>=-3不成立，退出循環(huán)，執(zhí)行nexti后面的語(yǔ)句。循環(huán)結(jié)束后，s的值為5，i的值為-5例題：例題Dowhile循環(huán)Dowhile條件表達(dá)式

語(yǔ)句塊（循環(huán)體）loop當(dāng)條件成立時(shí)，即條件表達(dá)式值為真時(shí)，執(zhí)行語(yǔ)句塊。遇到loop返回重新判斷條件是否成立。開(kāi)始條件表達(dá)式為真執(zhí)行循環(huán)體結(jié)束S=0:i=1Dowhiles<10s=s+ii=i+2Loop1.s=0<10條件成立，s=1，i=32.s=1<10條件成立，s=4，i=53.s=4<10條件成立，s=9，i=74.s=9<10條件成立，s=16，i=95.s=16<10條件不成立，退出循環(huán)。循環(huán)結(jié)束時(shí)，s的值為16，i的值為9例題歐幾里德算法（Euclideanalgorithm）又名輾轉(zhuǎn)相除法，是求兩個(gè)正整數(shù)的最大公因子的算法。定理：兩個(gè)整數(shù)的最大公約數(shù)等于其中較小的那個(gè)數(shù)和兩數(shù)相除余數(shù)的最大公約數(shù)。方法如下：先將大數(shù)除以小數(shù)，如果整除，那么小數(shù)就是它們的最大公約數(shù)，如果不能整除，就記下余數(shù)，用前面的除數(shù)（即小數(shù)）除以這個(gè)余數(shù)，依次類(lèi)推。每次都用前一個(gè)除式的除數(shù)除以自己的余數(shù)，直到有一個(gè)除數(shù)能整除，這時(shí)，最后能整除的除式的除數(shù)就是這兩個(gè)數(shù)的最大公約數(shù)。VB程序設(shè)計(jì)界面如第14題圖所示：（1）觀察應(yīng)用程序設(shè)計(jì)界面和程序代碼，回答以下問(wèn)題：用于輸入第一個(gè)自然數(shù)的對(duì)象名稱(chēng)為：

用于輸出最大公約數(shù)的對(duì)象名稱(chēng)為：

。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€(xiàn)處填入合代碼。PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<nThent=m:m=n:n=tr=mModnDoWhile___________m=nn=rr=mModn_______________Label3.Caption="最大公約數(shù)為"&nEndSub例題.奇偶校驗(yàn)是一種校驗(yàn)數(shù)據(jù)傳輸正確性的方法。其中奇校驗(yàn)方法：統(tǒng)計(jì)二進(jìn)制數(shù)據(jù)的數(shù)位中“1”的個(gè)數(shù)，若個(gè)數(shù)為奇數(shù)，則校驗(yàn)位值為0，否則校驗(yàn)位值為1。小李編寫(xiě)了一個(gè)計(jì)算奇校驗(yàn)位值得VB程序，功能如下：在文本框Text1中輸入1～255十進(jìn)制待校驗(yàn)數(shù)，單擊“計(jì)算”按鈕Command1后，在文本框Text2中顯示該數(shù)對(duì)應(yīng)的二進(jìn)制值，并在標(biāo)簽Label3中顯示該數(shù)的校驗(yàn)位值。程序運(yùn)行界面如圖所示。（1）在設(shè)計(jì)程序界面時(shí)，要清空文本框中的顯示內(nèi)容，應(yīng)修改該文本框中的

屬性。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€(xiàn)處填入合適代碼。PrivateSubCommand1_Click()DimaAsInteger,sAsStringDimnAsInteger,tAsInteger,vAsIntegern=Val(Text1.Text)t=0s=""DoWhilen>0a=nMod2n=n\2t=①s=Str(a)+sLoopv=t