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

1、1程序編寫一般包含哪些方面內(nèi)容？程序編寫一般包含哪些方面內(nèi)容？ 一、數(shù)據(jù)類型一、數(shù)據(jù)類型 二、常量與變量二、常量與變量 三、運(yùn)算符與表達(dá)式三、運(yùn)算符與表達(dá)式 四、常用語(yǔ)句與函數(shù)四、常用語(yǔ)句與函數(shù)2程序編寫一般有幾種基本結(jié)構(gòu)？程序編寫一般有幾種基本結(jié)構(gòu)？ 一、順序結(jié)構(gòu)一、順序結(jié)構(gòu) 二、選擇結(jié)構(gòu)二、選擇結(jié)構(gòu) 三、循環(huán)結(jié)構(gòu)三、循環(huán)結(jié)構(gòu) L/O/G/O順序結(jié)構(gòu)4C引入一個(gè)個(gè)空杯子【例例1】交換兩個(gè)杯子中的液體。交換兩個(gè)杯子中的液體。 提問(wèn)同學(xué)，如何處理？提問(wèn)同學(xué)，如何處理？將杯子將杯子A中的液體倒給杯子中的液體倒給杯子C；將杯子將杯子B中的液體倒給杯子中的液體倒給杯子A；將杯子將杯子C中的液體倒給杯子

2、中的液體倒給杯子B。AB5輸入兩個(gè)數(shù)，然后交換這兩個(gè)數(shù)，再輸出它們交換后的結(jié)果。（1）分析問(wèn)題。 要交換兩個(gè)數(shù)，要利用幾個(gè)變量來(lái)保存數(shù)據(jù)？Step1 ：輸輸入a的值值，輸輸入b的值值step2 ：利用第三個(gè)變個(gè)變量c來(lái)進(jìn)來(lái)進(jìn)行交換換，交換過(guò)換過(guò)程如下： c=a a=b b=cstep3 ：輸輸出交換換后A、B的值值。 自然語(yǔ)言描述自然語(yǔ)言描述（2）分析程序的執(zhí)行步驟，畫出流程圖。開始輸入a,bc = aa = bb = c輸出a,b結(jié)束（3）編寫程序開始c = aa = bb = c輸出a,b結(jié)束輸入a,bPrivate Sub command1_Click（）Dim a As Single,

3、b As Single,c As Singlea=InputBox（輸輸入第一個(gè)數(shù)個(gè)數(shù)A：）b=InputBox（輸輸入第二個(gè)數(shù)個(gè)數(shù)B：）c=aa=bb=cPrint 交換換后a=;a, 交換換后a=;bEnd Sub8順序結(jié)構(gòu)的特點(diǎn)：1. 按順順序從從第一條語(yǔ)條語(yǔ)句執(zhí)執(zhí)行到最后一條語(yǔ)條語(yǔ)句。2. 只有一個(gè)個(gè)入口和一個(gè)個(gè)出口3.任何程序都離不開開的基本結(jié)構(gòu)結(jié)構(gòu)91 1、寫出下列程序的運(yùn)、寫出下列程序的運(yùn)行結(jié)果行結(jié)果. .（1 1）圖（）圖（1 1）中，輸出）中，輸出S=_S=_(2) (2) 圖圖(2)(2)中，若中，若R=8R=8，則則a=_a=_開始開始結(jié)束結(jié)束輸入輸入a,ba,ba=2a

4、=2b=4b=4輸出輸出S S圖（圖（1 1）開始開始結(jié)束結(jié)束輸入輸入R Ra=2ba=2b輸出輸出a a圖（圖（2 2）2.52.54 4課堂練習(xí)102、有如下Visual Basic程序段： a=Good b=Bye c=a+bprint c該該程序段運(yùn)運(yùn)行后，變變量c的值值是_。 “GoodByeGoodBye”3 3、有如下、有如下Visual BasicVisual Basic程序段：程序段：k=30k=30h=5h=5s=hs=h* *k/2k/2 print s print s該程序段運(yùn)行后，變量該程序段運(yùn)行后，變量s s的值為的值為 。75課堂練習(xí)L/O/G/O選擇結(jié)構(gòu)12 在

5、處處理實(shí)際問(wèn)題時(shí)實(shí)際問(wèn)題時(shí)，只有順順序結(jié)構(gòu)結(jié)構(gòu)是不夠夠的，經(jīng)經(jīng)常會(huì)會(huì)遇到一些條條件的判斷斷，流程根據(jù)條條件是否成立有不同的流向。如下圖圖所示，程序根據(jù)給給定的條條件P是否成立而選擇執(zhí)選擇執(zhí)行A操作或B操作這種先根據(jù)條件做出判斷，再?zèng)Q定執(zhí)行哪一種操作的結(jié)構(gòu)稱為分支結(jié)構(gòu)，也稱為選擇結(jié)構(gòu)。語(yǔ)語(yǔ)句2條條件表達(dá)達(dá)式語(yǔ)語(yǔ)句1YN13 程序的選擇結(jié)構(gòu)選擇結(jié)構(gòu)語(yǔ)語(yǔ)句2條條件表達(dá)達(dá)式語(yǔ)語(yǔ)句1YN選擇結(jié)構(gòu)的特點(diǎn)：1、使用表示條條件判斷斷的表達(dá)達(dá)式2、有一個(gè)個(gè)入口和多個(gè)個(gè)分支出口14開開始執(zhí)執(zhí)行b b執(zhí)執(zhí)行a結(jié)結(jié)束條條 件YN開開始Y Y不是正數(shù)數(shù)Y是正數(shù)數(shù)結(jié)結(jié)束Y0YN例：判斷斷y y是正數(shù)嗎數(shù)嗎？15一、一、“

6、IfIf語(yǔ)句語(yǔ)句”If If 條件條件 ThenThen 語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組End IfEnd IfIf If 條件條件 ThenThen 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組1 1 ElseElse 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組2 2End IfEnd If1 1、單分支結(jié)構(gòu)、單分支結(jié)構(gòu)2 2、雙分支結(jié)構(gòu)、雙分支結(jié)構(gòu)3 3、多分支結(jié)構(gòu)、多分支結(jié)構(gòu)If If 條件條件1 1 Then Then 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組1 1 ElseIf ElseIf 條件條件2 2 Then Then 語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組2 2ElseIf ElseIf 條件條件n n Then Then 語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句

7、組n nElseElse 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組2 2End IfEnd If16S Select Case elect Case 表達(dá)式表達(dá)式 Case Case 表達(dá)式列表表達(dá)式列表1 1 語(yǔ)句組語(yǔ)句組1 1 Case Case 表達(dá)式列表表達(dá)式列表2 2 語(yǔ)句組語(yǔ)句組2 2 Case Case 表達(dá)式列表表達(dá)式列表n n 語(yǔ)句組語(yǔ)句組n nEnd SelectEnd Select二二、“Select CaseSelect Case語(yǔ)句語(yǔ)句”17完善程序完善程序 18If If 條件條件 ThenThen 語(yǔ)句或語(yǔ)句組語(yǔ)句或語(yǔ)句組End IfEnd If1 1、單分支結(jié)構(gòu)、單分支結(jié)構(gòu)If

8、 If price = 1200price = 1200 Then ThenMsgBox MsgBox 猜對(duì)了，真厲害！恭猜對(duì)了，真厲害！恭喜您幸運(yùn)地?fù)碛辛艘徊扛邫n手喜您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！機(jī)！ End IfEnd If開始開始結(jié)束結(jié)束判斷條件判斷條件語(yǔ)句塊語(yǔ)句塊真真假假開始開始結(jié)束結(jié)束Price=1200Price=1200猜猜對(duì)了對(duì)了真真假假19If If 條件條件 ThenThen 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組1 1 ElseElse 語(yǔ)句語(yǔ)句或語(yǔ)句組或語(yǔ)句組2 2End IfEnd If2 2、雙分支結(jié)構(gòu)、雙分支結(jié)構(gòu)If If price = 1200price = 1200 The

9、n ThenMsgBox MsgBox 猜對(duì)了，真厲害！恭喜猜對(duì)了，真厲害！恭喜您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！ ElseElse MsgBox MsgBox 猜錯(cuò)了，再試試猜錯(cuò)了，再試試!End IfEnd If開始開始結(jié)束結(jié)束判斷條件判斷條件語(yǔ)句塊語(yǔ)句塊1 1真真假假語(yǔ)句塊語(yǔ)句塊2 2開始開始結(jié)束結(jié)束Price=1200Price=1200猜對(duì)了，猜對(duì)了，真真假假猜錯(cuò)了，再試試猜錯(cuò)了，再試試20If 條條件1 Then 語(yǔ)語(yǔ)句或語(yǔ)語(yǔ)句組組1 ElseIf 條條件2 Then 語(yǔ)語(yǔ)句或語(yǔ)語(yǔ)句組組2ElseIf 條條件n Then 語(yǔ)語(yǔ)句或語(yǔ)語(yǔ)句組組nElse 語(yǔ)語(yǔ)句或

10、語(yǔ)語(yǔ)句組組2End If3 3、多分支結(jié)構(gòu)（、多分支結(jié)構(gòu)（ifif語(yǔ)句）語(yǔ)句）If If price 1200price 1200price 1200 Then ThenMsgBox MsgBox 猜高了，再試試猜高了，再試試!ElseIf ElseIf price = 1200price = 1200 Then ThenMsgBox MsgBox 猜對(duì)了，真厲害！恭喜猜對(duì)了，真厲害！恭喜您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！ End IfEnd If21Select Case Select Case 表達(dá)式表達(dá)式 Case Case 表達(dá)式列表表達(dá)式列表1 1 語(yǔ)句組語(yǔ)句組

11、1 1 Case Case 表達(dá)式列表表達(dá)式列表2 2 語(yǔ)句組語(yǔ)句組2 2 Case Case 表達(dá)式列表表達(dá)式列表n n 語(yǔ)句組語(yǔ)句組n nEnd SelectEnd SelectSelect CaseSelect Case price priceCase Case Is 1200Is 1200Is 1200MsgBox MsgBox 猜高了，再試試猜高了，再試試!Case Case Is = 1200Is = 1200MsgBox MsgBox 猜對(duì)了，真厲害！恭喜猜對(duì)了，真厲害！恭喜您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！您幸運(yùn)地?fù)碛辛艘徊扛邫n手機(jī)！ End SelectEnd Select3 3、

12、多分支結(jié)構(gòu)、多分支結(jié)構(gòu)（selectselect語(yǔ)句語(yǔ)句）221 1、語(yǔ)句、語(yǔ)句If x=1 Then y=1,If x=1 Then y=1,下列說(shuō)法正確的是（下列說(shuō)法正確的是（ ）。）。A A、x=1x=1和和 y=1 y=1 均為賦值語(yǔ)句均為賦值語(yǔ)句 B B、x=1x=1和和 y=1y=1均為關(guān)系表達(dá)式均為關(guān)系表達(dá)式C C、x=1x=1為關(guān)系表達(dá)式，為關(guān)系表達(dá)式，y=1y=1為賦值語(yǔ)句為賦值語(yǔ)句D D、x=1x=1為賦值語(yǔ)句，為賦值語(yǔ)句，y=1y=1為關(guān)系表達(dá)為關(guān)系表達(dá) 課堂練習(xí)23課堂練習(xí)2 2、電梯的最大容量為、電梯的最大容量為1313人，在此范圍內(nèi)電梯能正常運(yùn)行，人，在此范圍內(nèi)電梯

13、能正常運(yùn)行，超出了這個(gè)范圍電梯將發(fā)出警報(bào)。（）超出了這個(gè)范圍電梯將發(fā)出警報(bào)。（）Dim a as integerDim a as integera=a=valval( (inputboxinputbox( (“請(qǐng)輸入進(jìn)入電梯的人數(shù)請(qǐng)輸入進(jìn)入電梯的人數(shù)”) a=ab Then m=a Else m=b End if Print m該程序段運(yùn)行后,變量m的值為_。 525課堂練習(xí)4、有如下Visual Basic程序段： a=10:b=20:x=30 If xb Then a= b+a Else a=b-a End If print a該程序段運(yùn)行后，變量該程序段運(yùn)行后，變量a a的值為的值為_

14、。 30VB程序代碼碼中一行可以寫寫多個(gè)語(yǔ)個(gè)語(yǔ)句，語(yǔ)語(yǔ)句間間用冒號(hào)號(hào)隔開開。26課堂練習(xí)5 5、下圖的作用是判、下圖的作用是判斷輸入數(shù)斷輸入數(shù)x x的奇偶的奇偶性，則處應(yīng)為性，則處應(yīng)為_開始開始結(jié)束結(jié)束輸入輸入x x 輸出輸出“x x是奇數(shù)是奇數(shù)” 輸出輸出“x x是偶數(shù)是偶數(shù)”R=xR=x除以除以2 2的余數(shù)的余數(shù)是是否否R=1R=1？27課堂練習(xí) 6 6、輸輸入一學(xué)學(xué)生成績(jī)績(jī)，評(píng)評(píng)定其等級(jí)級(jí)。 規(guī)則規(guī)則是：9010090100分為為“優(yōu)優(yōu)秀”，80898089分為為“良好”，70797079分為為“中等”，60696069分為為“及格”，6060分以下為為“不合格”。If x=90 the

15、nPrint 優(yōu)優(yōu)秀Else If x=80 ThenPrint 良好Else If x=70 ThenPrint 中等ElseIf x=60 ThenPrint 及格ElsePrint 不及格End IfSelect Case x Case 90 to 100 Print 優(yōu)優(yōu)秀 Case 80 to 89 Print 良好 Case 70 to 79 Print 中等 Case 60 to 69 Print 及格 Case Else Print 不及格End SelectL/O/G/O循環(huán)結(jié)構(gòu)在窗體上顯顯示10行 * （每行10個(gè)個(gè) * ）順順序結(jié)構(gòu)結(jié)構(gòu)Print Print String

16、(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(10,* *)Print Print String(10,String(1

17、0,* *)Print Print String(10,String(10,* *)循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu)Dim n as Integer Dim n as Integer forfor n=1 to 10 n=1 to 10 Print String(10,Print String(10,* *)nextnext n nDim n As Integer Dim n As Integer n n是循環(huán)控制變量是循環(huán)控制變量ForFor n = 1 To 10 n = 1 To 10 nn的初值的初值1 1，終值，終值1010，每，每循環(huán)循環(huán)1 1次增加次增加1 1Print String(10, Pr

18、int String(10, * *) ) 循環(huán)體語(yǔ)句循環(huán)體語(yǔ)句NextNext n n 循環(huán)結(jié)束循環(huán)結(jié)束程序的循環(huán)結(jié)構(gòu)程序的循環(huán)結(jié)構(gòu)條件( a )YN語(yǔ)句組條件語(yǔ)句組YN( b )循環(huán)結(jié)構(gòu)的特點(diǎn)：1、在給給定條條件下，重復(fù)執(zhí)復(fù)執(zhí)行一個(gè)語(yǔ)個(gè)語(yǔ)句。2、必然出現(xiàn)現(xiàn)不滿滿足條條件的情況況，使循環(huán)環(huán)終終止。開始開始執(zhí)行執(zhí)行b b執(zhí)行執(zhí)行a a結(jié)結(jié)束條條 件YN開開始Y=Y+XY=Y+XX=X+1X=X+1 Y0 X=1X=100YN結(jié)結(jié)束Y01Yy2Yy3Yy100例：求y y值值？ Y Y1 12 23 3100100 A A、計(jì)數(shù)型循環(huán)語(yǔ)句（循環(huán)次數(shù)固定）、計(jì)數(shù)型循環(huán)語(yǔ)句（循環(huán)次數(shù)固定） For

19、For循環(huán)語(yǔ)句循環(huán)語(yǔ)句 B B、條件型循環(huán)語(yǔ)句（循環(huán)次數(shù)不固定，、條件型循環(huán)語(yǔ)句（循環(huán)次數(shù)不固定，由循環(huán)條件決定。）由循環(huán)條件決定。） Do Loop Do Loop循環(huán)語(yǔ)句循環(huán)語(yǔ)句 循環(huán)變量循環(huán)變量= =初始值初始值 TO TO 終值終值 step step 步長(zhǎng)值步長(zhǎng)值 語(yǔ)句語(yǔ)句 循環(huán)變量循環(huán)變量 Y=0Y=0ForFor x=1 to 100 x=1 to 100 y=y+x y=y+xNext Next x xY=0:x=1Y=0:x=1ForFor x=100 x=100 y=y+x y=y+x x=x+1 x=x+1Next Next x x計(jì)數(shù)型計(jì)數(shù)型條件型條件型思考：Y Y1

20、12 23 3* * *100100，求y y值值？ 循環(huán)變量循環(huán)變量= =初始值初始值 TO TO 終值終值 step step 步長(zhǎng)值步長(zhǎng)值 語(yǔ)句語(yǔ)句 循環(huán)變量循環(huán)變量 Y=1Y=1ForFor x=1 to 100 x=1 to 100 y=y y=y* *x xNext Next x xY=1:x=1Y=1:x=1ForFor x=100 x=100 y=y y=y* *x x x=x+1 x=x+1Next Next x x計(jì)數(shù)型計(jì)數(shù)型條件型條件型思考：Y Y1 12 23 3* * *100100，求y y值值？ Do while Do while 條件條件 語(yǔ)句語(yǔ)句looploo

21、pDo Do untiluntil 條件條件 語(yǔ)句語(yǔ)句looploopDo Do 語(yǔ)句語(yǔ)句looploopwhilewhile 條件條件Do Do 語(yǔ)句語(yǔ)句looploop until until 條件條件1、While2、Until相當(dāng)于相當(dāng)于While not條件( 當(dāng)當(dāng)型循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu) )YN語(yǔ)句組條件語(yǔ)句組YN( 直到型循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu) )當(dāng)當(dāng)型循環(huán)結(jié)構(gòu)：型循環(huán)結(jié)構(gòu)：“”，為，為先判斷后先判斷后執(zhí)行，執(zhí)行，有可能一次也不執(zhí)行；有可能一次也不執(zhí)行；直到直到型循環(huán)結(jié)構(gòu)：型循環(huán)結(jié)構(gòu)： “” ，為為先執(zhí)先執(zhí)行后判斷，行后判斷，至少執(zhí)行一次。至少執(zhí)行一次。 Do while Do while 條件

22、條件 語(yǔ)句語(yǔ)句looploopY=0:x=1Y=0:x=1do whiledo while x=100 x=100 y=y+xy=y+x x=x+1 x=x+1looploop條件( 當(dāng)當(dāng)型循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu) )YN語(yǔ)句組Do Do 語(yǔ)句語(yǔ)句looploopwhilewhile 條件條件Y=0:x=1Y=0:x=1dodo y=y+xy=y+x x=x+1 x=x+1loop whileloop while x=100 x 100100 y=y+xy=y+x x=x+1 x=x+1looploop條件( 當(dāng)當(dāng)型循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu) )YN語(yǔ)句組Do Do 語(yǔ)句語(yǔ)句looploop until until

23、 條件條件Y=0:x=1Y=0:x=1dodo y=y+xy=y+x x=x+1 x=x+1loop loop untiluntil x x 100100條件語(yǔ)句組YN( 直到型循環(huán)結(jié)構(gòu)環(huán)結(jié)構(gòu) )1、下面是一段下面是一段Visual BasicVisual Basic程序：程序： Private Sub Command1_Click()Private Sub Command1_Click() Dim sum As Double Dim sum As Double，i i As Integer As Integer sum = 0 sum = 0 For For i i = 1 To 5 = 1

24、 To 5 sum= sum=sum+isum+i* *i i Next Next i i Text1.Text= Text1.Text=StrStr(sum)(sum) End Sub End Sub 該程序運(yùn)行后，語(yǔ)句該程序運(yùn)行后，語(yǔ)句sum=sum=sum+isum+i* *i i共執(zhí)行共執(zhí)行了了 次。次。5課堂練習(xí) 以下是一段Visual Basic程序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.其它三項(xiàng)都不是C.選擇結(jié)構(gòu)D.順序結(jié)構(gòu)語(yǔ)語(yǔ)句塊塊選擇選擇NOYES

25、A以下是一段Visual Basic程序：b=0For I=1 To 5 b=b+1Next I它的基本結(jié)構(gòu)屬于（ ）A.循環(huán)結(jié)構(gòu)B.樹型結(jié)構(gòu)C.選擇結(jié)構(gòu)D.順序結(jié)構(gòu)A以下是一段Visual Basic程序If I=1 Then x=x+1Else x=x+2End If它的基本結(jié)構(gòu)屬于（ ）A. 選擇結(jié)構(gòu)B. 循環(huán)結(jié)構(gòu)C. 順序結(jié)構(gòu)D. 樹型結(jié)構(gòu)A以下是一個(gè)Visual Basic程序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=1Do While x10 x=x+xLoop運(yùn)行后的X

26、的值為（ ）A.4B.8C.2D.16D在VB中，假定有以下程序段：For I=1 To 3 I=I+1Next I則執(zhí)行結(jié)束后I的值是（ ）A.4B.5C.6D.1A下列VB程序運(yùn)行后，變量m的值為（ ）a=2:b=1:c=5If ab Then m=a Else m=bIf c=10 Then Value=5*xElse Value=3*x+10End IfA.80B.90C.100D.70107.在VB中，假定有以下程序段：I=1 Do Until I0 Print “VB”Loop則語(yǔ)句Print “VB”的執(zhí)行次數(shù)是：（ ）A.0B.1C.2D.無(wú)數(shù)次在在VB中，假定有以下循環(huán)結(jié)構(gòu)：

27、中，假定有以下循環(huán)結(jié)構(gòu)： Do Until 條件條件 循環(huán)體循環(huán)體 Loop則正確的描述是（則正確的描述是（ ）A.不論不論“條件條件”是否為是否為“真真”，至少執(zhí)行一次循環(huán)體，至少執(zhí)行一次循環(huán)體B.如果如果“條件條件”是一個(gè)不為是一個(gè)不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體的常數(shù)，則至少執(zhí)行一次循環(huán)體C.如果如果“條件條件”是一個(gè)為是一個(gè)為0的常數(shù)，則執(zhí)行無(wú)窮次循環(huán)體的常數(shù)，則執(zhí)行無(wú)窮次循環(huán)體D.如果如果“條件條件”是一個(gè)為是一個(gè)為0的常數(shù)，則一次循環(huán)體也不執(zhí)行。的常數(shù)，則一次循環(huán)體也不執(zhí)行。2 2、下面的程序是求下面的程序是求7!7!（7!=17!=1* *2 2* *3.3.* *6 6* *7 7）的值，并在）的值，并在默認(rèn)窗口輸出這個(gè)值。程序中有兩處錯(cuò)誤，請(qǐng)更正。默認(rèn)窗口輸出這個(gè)值。程序中有兩處錯(cuò)誤，請(qǐng)更正。 Private Sub Command1_Click() Private Sub Command1_Click() Dim a As Single Dim a As Single a=0 a=0 For For i i=1 to n=1 to n a=a a=a* *i i Next Ne