信息技術(shù)基礎(chǔ) 4.1.3 認(rèn)識(shí)程序中的基本元素“黃岡賽”一等獎(jiǎng)

4.1編制計(jì)算機(jī)程序解決問(wèn)題（第三課時(shí)）合肥一中何文才§4.1.3VB程序的基本結(jié)構(gòu)1、順序結(jié)構(gòu)2、選擇結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)1、順序結(jié)構(gòu)AB入口出口格式：語(yǔ)句塊A語(yǔ)句塊B流程圖圖例例如：把兩個(gè)數(shù)a、b進(jìn)行交換。ABC想把兩個(gè)數(shù)a、b進(jìn)行交換，要借助中間變量c。c=aa=bb=cVB程序代碼:PrivateSubcmdChang_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(InputBox("輸入a"))b=Val(InputBox("輸入b"))Print"交換前：a=";a,"b=";bc=aa=bb=cPrint"交換后：a=";a,"b=";bMsgBox"交換后：a="&a&vbTab&"b="&b,vbOKOnly,"交換結(jié)果"EndSubPABYN入口出口格式：If條件P

Then

語(yǔ)句塊AElse

語(yǔ)句塊BEndIf2、選擇結(jié)構(gòu)例如：如果某學(xué)生成績(jī)>=60分，則及格；否則，不及格。算法：If成績(jī)>=60Then

及格Else

不及格EndIfPrivateSubForm_Load()DimaAsSinglea=Val(InputBox("輸入成績(jī)"))Ifa>=60ThenMsgBox"及格"ElseMsgBox"不及格"EndIfEndSubVB程序代碼:一個(gè)數(shù)學(xué)問(wèn)題：計(jì)算1+2+3+…+100的值。用VB編程解決以下問(wèn)題：分析問(wèn)題：平常怎么算?（常見(jiàn)有兩種算法）1+2+3+…+100=?第一種方法:第二種方法:等差數(shù)列：=（1+100=101，2+99，…，50+51=101）=101*50=5050探討計(jì)算機(jī)程序的方法第三種方法:1+2=33+3=66+4=10

……該式子存在一個(gè)規(guī)律：|相鄰兩個(gè)數(shù)之差|為1程序設(shè)計(jì)分析：計(jì)算1+2+3+…+100的值。假設(shè)和為S，在未進(jìn)行計(jì)算之前，S=0+1S=1實(shí)際相當(dāng)于S=S+1+2S=3實(shí)際相當(dāng)于S=S+2+3S=6實(shí)際相當(dāng)于S=S+3+4S=10實(shí)際相當(dāng)于S=S+4……1+2=33+3=66+4=10……|相鄰兩個(gè)數(shù)之差|為1S=S+i(其中，i為1…100中任一個(gè)數(shù)，

S為前一個(gè)和值)所以可以使用循環(huán)結(jié)構(gòu)。3、循環(huán)結(jié)構(gòu)For循環(huán)變量=初值To終值Step循環(huán)變量增量循環(huán)體Next循環(huán)變量格式：NY入口出口算法流程圖：程序代碼段：Sum=0Fori=1to100Step1sum=sum+iNextMsgbox“1+2+3…100的和是：”&sum鞏固練習(xí)：打開(kāi)“鞏固練習(xí).frm”，用For循環(huán)語(yǔ)句編程求：S=1×2×3×···×11。進(jìn)一步思考：

1到100的偶數(shù)之和；

1到100的奇數(shù)之和怎么實(shí)現(xiàn)。在原程序上修改。求偶數(shù)：DimiAsInteger,sumAsIntegersum=0Fori=2To100Step2sum=sum+iNexti求奇數(shù)：DimiAsInteger,sumAsIntegersum=0Fori=1To100Step2sum=sum+iNexti求偶數(shù)：DimiAsInteger,sumAsIntegersum=0Fori=1To50Step1sum=sum+2*iNexti求奇數(shù)：DimiAsInteger,sumAsIntegersum=0Fori=1To50Step1sum=sum+2*i-1Nexti小結(jié)1、順序結(jié)構(gòu)：按照由上到下的順序一行一行地執(zhí)行的程序結(jié)構(gòu)。