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

1程序編寫一般包含哪些方面內(nèi)容？

一、數(shù)據(jù)類型二、常量與變量三、運算符與表達(dá)式四、常用語句與函數(shù)如何編寫程序代碼之一：

回顧2程序編寫一般有幾種基本結(jié)構(gòu)？

一、順序結(jié)構(gòu)二、選擇結(jié)構(gòu)三、循環(huán)結(jié)構(gòu)如何編寫程序代碼之二

順序結(jié)構(gòu)4C引入一個空杯子【例1】交換兩個杯子中的液體。提問同學(xué)，如何處理？將杯子A中的液體倒給杯子C；將杯子B中的液體倒給杯子A；將杯子C中的液體倒給杯子B。AB5

輸入兩個數(shù)，然后交換這兩個數(shù)，再輸出它們交換后的結(jié)果。（1）分析問題。要交換兩個數(shù)，要利用幾個變量來保存數(shù)據(jù)？Step1：輸入a的值，輸入b的值step2：利用第三個變量c來進(jìn)行交換，交換過程如下：

c=a

a=b

b=cstep3：輸出交換后A、B的值。

自然語言描述（2）分析程序的執(zhí)行步驟，畫出流程圖。開始輸入a,bc=aa=bb=c輸出a,b結(jié)束（3）編寫程序開始c=aa=bb=c輸出a,b結(jié)束輸入a,bPrivateSubcommand1_Click（）DimaAsSingle,bAsSingle,cAsSinglea=InputBox（"輸入第一個數(shù)A："）b=InputBox（"輸入第二個數(shù)B："）c=aa=bb=cPrint"交換后a=";a,"交換后a=";bEndSub8順序結(jié)構(gòu)的特點：1.按順序從第一條語句執(zhí)行到最后一條語句。2.只有一個入口和一個出口3.任何程序都離不開的基本結(jié)構(gòu)91、寫出下列程序的運行結(jié)果.（1）圖（1）中，輸出S=_____(2)圖(2)中，若R=8，則a=_____開始結(jié)束輸入a,ba=2b=4輸出S圖（1）開始結(jié)束輸入Ra=2b輸出a圖（2）2.54課堂練習(xí)102、有如下VisualBasic程序段：

a="Good"b="Bye"c=a+b

printc該程序段運行后，變量c的值是________。

“GoodBye”3、有如下VisualBasic程序段：

k=30

h=5

s=h*k/2prints該程序段運行后，變量s的值為

。75課堂練習(xí)選擇結(jié)構(gòu)12

在處理實際問題時，只有順序結(jié)構(gòu)是不夠的，經(jīng)常會遇到一些條件的判斷，流程根據(jù)條件是否成立有不同的流向。如下圖所示，程序根據(jù)給定的條件P是否成立而選擇執(zhí)行A操作或B操作這種先根據(jù)條件做出判斷，再決定執(zhí)行哪一種操作的結(jié)構(gòu)稱為分支結(jié)構(gòu)，也稱為選擇結(jié)構(gòu)。語句2條件表達(dá)式語句1YN13

程序的選擇結(jié)構(gòu)語句2條件表達(dá)式語句1YN選擇結(jié)構(gòu)的特點：1、使用表示條件判斷的表達(dá)式2、有一個入口和多個分支出口14選擇結(jié)構(gòu)開始執(zhí)行b執(zhí)行a結(jié)束條件YN開始Y不是正數(shù)Y是正數(shù)結(jié)束Y>0YN例：判斷y是正數(shù)嗎？15一、“If語句”If條件

Then

語句或語句組EndIfIf條件

Then

語句或語句組1

Else

語句或語句組2EndIf1、單分支結(jié)構(gòu)2、雙分支結(jié)構(gòu)3、多分支結(jié)構(gòu)If條件1Then

語句或語句組1

ElseIf條件2Then

語句或語句組2……ElseIf條件nThen

語句或語句組nElse

語句或語句組2EndIf16SelectCase表達(dá)式

Case表達(dá)式列表1

語句組1

Case表達(dá)式列表2

語句組2

……Case表達(dá)式列表n

語句組nEndSelect多分支結(jié)構(gòu)二、“SelectCase語句”17完善程序

參考下面的程序，1200元為手機(jī)的優(yōu)惠價格，可以是單分支，可以是雙分支，也可以是多分支。18If條件

Then

語句或語句組EndIf1、單分支結(jié)構(gòu)Ifprice=1200ThenMsgBox"猜對了，真厲害！恭喜您幸運地?fù)碛辛艘徊扛邫n手機(jī)！"

EndIf開始結(jié)束判斷條件語句塊真假開始結(jié)束Price=1200猜對了……真假19If條件

Then

語句或語句組1

Else

語句或語句組2EndIf2、雙分支結(jié)構(gòu)Ifprice=1200ThenMsgBox"猜對了，真厲害！恭喜您幸運地?fù)碛辛艘徊扛邫n手機(jī)！"

Else

MsgBox"猜錯了，再試試!"EndIf開始結(jié)束判斷條件語句塊1真假語句塊2開始結(jié)束Price=1200猜對了，……真假猜錯了，再試試20If條件1Then

語句或語句組1

ElseIf條件2Then

語句或語句組2……ElseIf條件nThen

語句或語句組nElse

語句或語句組2EndIf3、多分支結(jié)構(gòu)（if語句）Ifprice<1200ThenMsgBox"猜低了，再試試!"ElseIfprice>1200ThenMsgBox"猜高了，再試試!"ElseIfprice=1200ThenMsgBox"猜對了，真厲害！恭喜您幸運地?fù)碛辛艘徊扛邫n手機(jī)！"

EndIf21SelectCase表達(dá)式

Case表達(dá)式列表1

語句組1

Case表達(dá)式列表2

語句組2

……Case表達(dá)式列表n

語句組nEndSelectSelectCasepriceCaseIs<1200MsgBox"猜低了，再試試!"CaseIs>1200MsgBox"猜高了，再試試!"CaseIs=1200MsgBox"猜對了，真厲害！恭喜您幸運地?fù)碛辛艘徊扛邫n手機(jī)！"EndSelect3、多分支結(jié)構(gòu)（select語句）22

1、語句Ifx=1Theny=1,下列說法正確的是（

）。

A、x=1和y=1均為賦值語句

B、x=1和y=1均為關(guān)系表達(dá)式

C、x=1為關(guān)系表達(dá)式，y=1為賦值語句

D、x=1為賦值語句，y=1為關(guān)系表達(dá)課堂練習(xí)23課堂練習(xí)2、電梯的最大容量為13人，在此范圍內(nèi)電梯能正常運行，超出了這個范圍電梯將發(fā)出警報。（）

Dimaasinteger

a=val(inputbox(“請輸入進(jìn)入電梯的人數(shù)”))

a<=13____

print“正常運行”

____

print“發(fā)出警報”

_______

A.if…….then……endif……else

B.then……if……else……endif

C.if……then……else……endif

D.if……else……then……endif24課堂練習(xí)3、有如下VisualBasic程序段：

a=2

b=5

Ifa>bThen

m=a

Else

m=bEndifPrintm該程序段運行后,變量m的值為____。

525課堂練習(xí)4、有如下VisualBasic程序段：

a=10:b=20:x=30Ifx>bThena=b+aElsea=b-aEndIfprinta該程序段運行后，變量a的值為_______

。30VB程序代碼中一行可以寫多個語句，語句間用冒號隔開。26課堂練習(xí)

5、下圖的作用是判斷輸入數(shù)x的奇偶性，則②處應(yīng)為____開始結(jié)束輸入x輸出“x是奇數(shù)”輸出“x是偶數(shù)”R=x除以2的余數(shù)②是否R=1？27課堂練習(xí)6、輸入一學(xué)生成績，評定其等級。規(guī)則是：90~100分為“優(yōu)秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以下為“不合格”。Ifx>=90thenPrint"優(yōu)秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfSelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect循環(huán)結(jié)構(gòu)在窗體上顯示10行*（每行10個*）順序結(jié)構(gòu)PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")循環(huán)結(jié)構(gòu)DimnasIntegerfor

n=1to10PrintString(10,"*")nextnDimnAsInteger'n是循環(huán)控制變量Forn=1To10'n的初值1，終值10，每循環(huán)1次增加1PrintString(10,"*")'循環(huán)體語句Nextn'循環(huán)結(jié)束程序的循環(huán)結(jié)構(gòu)條件(a)YN語句組條件語句組YN(b)循環(huán)結(jié)構(gòu)的特點：1、在給定條件下，重復(fù)執(zhí)行一個語句。2、必然出現(xiàn)不滿足條件的情況，使循環(huán)終止。循環(huán)結(jié)構(gòu)開始執(zhí)行b執(zhí)行a結(jié)束條件YN開始Y=Y+XX=X+1

Y＝0X=1X<=100YN結(jié)束Y＝0＋1Y＝y(tǒng)＋2Y＝y(tǒng)＋3……Y＝y(tǒng)＋100例：求y值？Y＝1＋2＋3＋……＋100

A、計數(shù)型循環(huán)語句（循環(huán)次數(shù)固定）For循環(huán)語句

B、條件型循環(huán)語句（循環(huán)次數(shù)不固定，由循環(huán)條件決定。）Do…Loop循環(huán)語句

在VB中循環(huán)結(jié)構(gòu)控制的形式在VB中循環(huán)結(jié)構(gòu)控制的形式一、For…Next語句For循環(huán)變量=初始值TO終值[step步長值]

[語句]Next

[循環(huán)變量]Y=0For

x=1to100y=y+xNextxY=0:x=1For

x<=100y=y+xx=x+1Nextx計數(shù)型條件型思考：Y＝1＊2＊3*……*100，求y值？在VB中循環(huán)結(jié)構(gòu)控制的形式For循環(huán)變量=初始值TO終值[step步長值]

[語句]Next

[循環(huán)變量]Y=1For

x=1to100y=y*xNextxY=1:x=1For

x<=100y=y*xx=x+1Nextx計數(shù)型條件型思考：Y＝1＊2＊3*……*100，求y值？一、For…Next語句Dowhile條件

語句loop在VB中循環(huán)結(jié)構(gòu)控制的形式Dountil

條件

語句loopDo

語句loop

while

條件Do

語句loopuntil

條件1、While<條件>2、Until<條件>相當(dāng)于Whilenot<條件>

二、Do…Loop語句在VB中循環(huán)結(jié)構(gòu)控制的形式條件(當(dāng)型循環(huán)結(jié)構(gòu))YN語句組條件語句組YN(直到型循環(huán)結(jié)構(gòu))當(dāng)型循環(huán)結(jié)構(gòu)：“先測型”，為先判斷后執(zhí)行，有可能一次也不執(zhí)行；直到型循環(huán)結(jié)構(gòu)：“后測型”

，為先執(zhí)行后判斷，至少執(zhí)行一次。Dowhile條件

語句loopY=0:x=1dowhile

x<=100

y=y+xx=x+1loop條件(當(dāng)型循環(huán)結(jié)構(gòu))YN語句組在VB中循環(huán)結(jié)構(gòu)控制的形式Do…loop語句（while）Do

語句loop

while

條件Y=0:x=1do

y=y+xx=x+1loopwhile

x<=100條件語句組YN(直到型循環(huán)結(jié)構(gòu))在VB中循環(huán)結(jié)構(gòu)控制的形式Do…loop語句（while）Do…loop語句（until）Dountil

條件

語句loopY=0:x=1dountil

x>100

y=y+xx=x+1loop條件(當(dāng)型循環(huán)結(jié)構(gòu))YN語句組在VB中循環(huán)結(jié)構(gòu)控制的形式Do

語句loopuntil

條件Y=0:x=1do

y=y+xx=x+1loopuntil

x>100條件語句組YN(直到型循環(huán)結(jié)構(gòu))在VB中循環(huán)結(jié)構(gòu)控制的形式Do…loop語句（until）1、下面是一段VisualBasic程序：

PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub該程序運行后，語句sum=sum+i*i共執(zhí)行了

次。5課堂練習(xí)以下是一段VisualBasic程序a=1b=a+1c=a+b它的基本結(jié)構(gòu)屬于（）A.循環(huán)結(jié)構(gòu) B.選擇結(jié)構(gòu) C.樹型結(jié)構(gòu)D.順序結(jié)構(gòu)練一練D下列流程圖表示的是程序的（）基本結(jié)構(gòu)的算法A.循環(huán)結(jié)構(gòu) B.其它三項都不是 C.選擇結(jié)構(gòu) D.順序結(jié)構(gòu)語句塊選擇NOYESA以下是一段VisualBasic程序：b=0ForI=1To5b=b+1NextI它的基本結(jié)構(gòu)屬于（）A.循環(huán)結(jié)構(gòu) B.樹型結(jié)構(gòu)C.選擇結(jié)構(gòu) D.順序結(jié)構(gòu)A以下是一段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)A以下是一個VisualBasic程序a=1b=2m=ax=m+bb=b+1y=x+b它的基本結(jié)構(gòu)屬于（）A.順序結(jié)構(gòu) B.選擇結(jié)構(gòu) C.循環(huán)結(jié)構(gòu) D.樹型結(jié)構(gòu)A在VB中，以下程序段：x=1DoWhilex<10x=x+xLoop運行后的X的值為（）A.4 B.8 C.2 D.16D在VB中，假定有以下程序段：ForI=1To3I=I+1NextI則執(zhí)行結(jié)束后I的值是（）A.4 B.5 C.6 D.1A下列VB程序運行后，變量m的值為（）a=2:b=1:c=5Ifa<bThenm=aElsem=bIfc<mThenm=cA.1 B.5 C.2 D.其它三項均不正確A分析程序，寫出執(zhí)行結(jié)果PrivateSubCommand1_Click()S=0Fori=1To3S=S+2*iNextiPrint"S=";SEndSub

運行的結(jié)果是下列程序運行后，變量Value的值是（）x=20Ifx>=10ThenValue=5*xElseValue=3*x+10EndIfA.80 B.90 C.100 D.70107.在VB中，假定有以下程序段：I=1DoUntilI>0Print“VB”Loop則語句Print“VB”的執(zhí)行次數(shù)是：（）A.0 B.1 C.2 D.無數(shù)次在VB中，假定有以下循環(huán)結(jié)構(gòu)：DoUntil條件循環(huán)體Loop則正確的描述是（）A.不論“條件”是否為“真”，至少執(zhí)行一次循環(huán)體B.如果“條件”是一個不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體C.如果“條件”是一個為0的常數(shù)，則執(zhí)行無窮次循環(huán)體D.如果“條件”是一個為0的常數(shù)，則一次循環(huán)體也不執(zhí)行。2、下面的程序是求7!（7!=1*2*3...*6*7