高中信息技術(shù)習(xí)題.doc
一、選擇題（每題2分，共15題，總分30分）1、利用計(jì)算機(jī)解決問題的一般過程描述，以下哪中說法正確：（ C?。〢、編寫程序－調(diào)試程序－分析問題－設(shè)計(jì)算法B、分析問題－編寫程序－調(diào)試程序－設(shè)計(jì)算法C、分析問題－設(shè)計(jì)算法－編寫程序－調(diào)試程序D、分析問題－設(shè)計(jì)算法－調(diào)試程序－編寫程序2、用來描述算法的方法，不包括以下哪一種：（D?。〢、自然語言 B、流程圖 C、偽代碼 D、方程式3、以下的哪一種基本結(jié)構(gòu)不被包括在程序的基本結(jié)構(gòu)里面（ B）A、順序 B、分支 C、選擇 D、循環(huán)4、程序設(shè)計(jì)語言的產(chǎn)生與發(fā)展所經(jīng)歷的過程不包括以下的哪項(xiàng)：（C ）A、機(jī)器語言 B、匯編語言 C、初級語言 D、高級語言5、利用basic語言編寫的程序源代碼文件名后綴為：（A?。〢、.BAS B、.CPP C、.TXT D、.DOC6、下面數(shù)據(jù)屬于字符串常量的是:(B )A、abcd B、“abcd” C、‘a(chǎn)bcd’ D、ab-cd7、一個算法所具有的五個方面的重要特征里，下列哪一項(xiàng)是不必須的：（A ）A、輸入 B、確定性 C、有窮性 D、輸出 E、能行性8、下列哪種格式為VB程序設(shè)計(jì)中常量說明的正確格式：（D ）A、const 常量名 as 類型 B、dim 常量名 as 類型C、dim 常量名 as 類型=表達(dá)式 D、const 常量名 as 類型=表達(dá)式9、信息的載體是承載信息的事物，如語言、文字聲音、磁盤等。
則下面選項(xiàng)為信息載體的是：（D ） A、 天氣預(yù)報(bào) B、市場價(jià)格 C、電視新聞 D、光盤 10、關(guān)于信息，下列說法錯誤的是（D ） A、信息必須依附于載體而存在 B、信息是可以共享的 C、信息是可以處理的 D、信息的價(jià)值不會改變 11、電子郵箱地址的一般格式是：yourname@xx.com,其中yourname是（D）A、網(wǎng)站的計(jì)算機(jī)名 B、主機(jī)名 C、用戶的計(jì)算機(jī)名 D、用戶名12、在網(wǎng)絡(luò)時代，流行著一句時代用語：“有問題，“百度”一下！”，其中“百度”是指的（A ）A、 利用百度搜索引擎在網(wǎng)絡(luò)上檢索信息 B、 其是一個很好的投資項(xiàng)目 C、 是一個專家 D、 是一家理財(cái)公司 13、王剛十一國慶要出去旅游，他在報(bào)紙上看到將來十天是陰雨天氣，于是就帶了雨具，可是直到他回到家也沒有下過雨當(dāng)他又拿起那張報(bào)紙仔細(xì)看時才發(fā)現(xiàn)自己所看的是去年國慶期間的報(bào)紙就信息的特征來說，王剛忽略了信息的什么特征？(B ) A、依附性 B、時效性 C、價(jià)值性 D、共享性 14、信息采集的工具有很多，下面那個工具是不包括其中的（D ）A、數(shù)碼相機(jī) B、計(jì)算機(jī) C、照相機(jī) D、收音機(jī)15、計(jì)算機(jī)病毒是：（B ）A、一種生物病毒 B、一組計(jì)算機(jī)有害代碼 C、一種寄生在計(jì)算機(jī)內(nèi)的寄生蟲 D、一種細(xì)菌 二、判斷題（每題1分，共4題，總分4分）1、 我們可以通過電子郵箱給遠(yuǎn)方的朋友發(fā)送電子郵件，但是電子郵箱中只能發(fā)送文本而不能發(fā)送圖片。
F ）2、 算法就是用計(jì)算機(jī)求解某一問題的方法，是能被機(jī)械地執(zhí)行的動作或指令的無窮集合F ）3、 用高級語言編寫的程序必須經(jīng)過翻譯器將其翻譯成機(jī)器語言，才能在計(jì)算機(jī)上執(zhí)行T ）4、 因特網(wǎng)給我們帶來了大量的信息，這些信息都是可信的，可以直接用F ）三、填空題（每空2分，共3空，總分6分）一個“求半徑為r的圓的面積”的程序如下：private sub command1_click() const pi as single=3.14 dim r as single,s as single r=inputbox(“r=”, “輸入半徑”) s=pi*r*r print “圓的面積s=”;send sub1、由上可以看出，VB的程序一般包含如下部分：數(shù)據(jù)類型說明部分、數(shù)據(jù)輸入、數(shù)據(jù)處理 、數(shù)據(jù)的輸出部分2、在以上程序中，“single”為單精度實(shí)型 數(shù)據(jù)類型的說明符四、程序補(bǔ)充題（每空2分，共5空，總分10分）1、《幾何原理》中，歐幾里德闡述了關(guān)于兩個整數(shù)最大公約數(shù)的計(jì)算過程，即歐幾里德算法（輾轉(zhuǎn)相除法），其具體過程如下：①以m除以n，令所得的余數(shù)為r②若r=0，則輸出結(jié)果n否則，繼續(xù)步驟③③令m=n，n=r，并返回執(zhí)行步驟①繼續(xù)進(jìn)行。
設(shè)正整數(shù)m=112，n=64，利用此算法求其最大公約數(shù)的過程算法如下：（1）112除以64，余數(shù)為482） （3） 答：112和64的最大公約數(shù)為： 2、根據(jù)算法補(bǔ)全VB程序：求解雞兔同籠問題：在籠中有雞、兔若干，已知道有頭a個，有腳b只（4a>=b>=2a>0），求各有多少只雞和兔？算法如下：①輸入 a和b的值；②求x=2a-b/2；③求y=b/2-a；④輸出x,y的值；⑤結(jié)束程序：private sub command1 _click()a=inputbox(“a=”,”輸入頭數(shù)”)b=inputbox(“b=”,”輸入腳數(shù)”)__________、_______________、____________________print “雞數(shù)x=”;x,”兔數(shù)y=”;yend sub一、 單項(xiàng)選擇題（共20個空，每空2分，共40分）1、 人們利用計(jì)算機(jī)解決問題的基本過程一般有如下五個步驟（①~⑤），請按各步驟的先后順序在下列選項(xiàng)（A~D）中選擇正確的答案（ B ）①調(diào)試程序 ②分析問題 ③設(shè)計(jì)算法 ④構(gòu)建數(shù)學(xué)模型 ⑤編寫程序（A）①②③④⑤ （B）②④③⑤① （C）④②③⑤① （D）②③④①⑤2、 下列各種基本數(shù)據(jù)類型說明符中表示整數(shù)型的是（ A ）（A） Integer （B） Boolean （C） Single （D） String3、 下列各項(xiàng)中，合法的變量名是（ C ）（A） &90 （B） abc=9 （C） hello （D） 888.f4、 有兩個條件P 、Q，只要有一個條件為真時，結(jié)果一定為真的是（ C ）。
A）Not P （B）P And Q （C）P OR Q （D）NOT P AND NOT Q5、 下列代數(shù)式的Visual Basic表達(dá)式是（ D ）（A）(x^5-cos(29*3.14/180))/(sqr(exp(x)+log(y) +5))（B）(x^5-cos(29))/(sqr(exp(x)+ln(y))+5)（C）(x^5-cos(29*3.14/180))/(sqr(exp(x)+ln(y))+5)（D）(x^5-cos(0.506))/(sqr(exp(x)+log(y))+5)6、 在VB中，表達(dá)式（18+25/3）Mod 5 的值是（ B ）A）0 （B）1 （C）2 （D）37、 VB函數(shù)InStr ()檢查是否包含另一子串：含有子串則返回值為子串在父串中第一次出現(xiàn)的位置，不包含子串則返回值為0InStr("CATbCACBC", "BC")的值為（ C ）（A）0 （B）4 （C）8 （D）18、 VB函數(shù)Right ()從字串右端取部分字串：將某一字串從結(jié)尾開始取固定長度的字串Right(“Visual Basic 6.0”,6)的值為（ D ）（A）sic 6.0 （B）asic 6.0 （C）Visual （D）ic 6.09、 程序如下：k=－20 do while (k=0)k=k+1 loop 以下說法正確的是（ C ）（A）do while 語句執(zhí)行了20次； （B） While 循環(huán)是無限循環(huán)（C）循環(huán)體語句一次也不執(zhí)行 （D） 循環(huán)體語句執(zhí)行一次10、 VB中將兩個字符串連接起來的運(yùn)算符有：+和&，那么 ”123”+45結(jié)果是（ A ） ?。ˋ）168 （B）12345 （C）“123” （D）4511、 已知A，B，C，D是簡單變量，且都已有互不相同的值，執(zhí)行語句B=8:A=C:D=A:D=B后，其值相等的變量是（ B ） （A）A，D （B）A，C （C）C，B （D）B，A12、 要交換變量A和B之值，應(yīng)使用的語句組是（ B ） ?。ˋ）A=B:B=C:C=A （B）C=A:A=B:B=C （C）A=B:B=A （D）C=A:B=A:B=C13、 模塊化程序設(shè)計(jì)方法主要通過（ B ）來實(shí)現(xiàn)。
A）遞歸算法和遞歸程序 （B）過程和函數(shù)的定義和調(diào)用（C）程序的循環(huán)結(jié)構(gòu) （D）對象11、一位愛好程序設(shè)計(jì)的同學(xué)，想通過程序設(shè)計(jì)解決“韓信點(diǎn)兵”的問題，他制定的如下工作過程中，更恰當(dāng)?shù)氖牵?C） A、設(shè)計(jì)算法，編寫程序，提出問題，運(yùn)行程序，得到答案 B、分析問題，編寫程序，設(shè)計(jì)算法，運(yùn)行程序，得到答案 C、分析問題，設(shè)計(jì)算法，編寫程序，運(yùn)行程序，得到答案 D、設(shè)計(jì)算法，提出問題，編寫程序，運(yùn)行程序，得到答案12、交通警察到達(dá)案發(fā)現(xiàn)場，一般按照下列哪種思路開展工作（D ） ?、儆^察、分析現(xiàn)場 ②收集必要的信息 ③進(jìn)行判斷、推理 ④按一定的方法和步驟解決 A、②①③④ B、①③②④ C、③①②④ D、①②③④13、下面說法正確的是（A ） A、算法+數(shù)據(jù)結(jié)構(gòu)=程序 B、算法就是程序 C、數(shù)據(jù)結(jié)構(gòu)就是程序 D、算法包括數(shù)據(jù)結(jié)構(gòu)14、結(jié)構(gòu)化程序設(shè)計(jì)由三種基本結(jié)構(gòu)組成，下面哪個不屬于這三種基本結(jié)構(gòu)（B） A、順序結(jié)構(gòu) B、輸入、輸出結(jié)構(gòu) C、選擇結(jié)構(gòu) D、循環(huán)結(jié)構(gòu)三、判斷題（每題1.5分，共21分） 1、信息是人類社會的一種資源 （T ）2、計(jì)算機(jī)書本中的知識是信息。
（T ）4、一臺計(jì)算機(jī)一旦染上病毒，便無法使用F ）5、 Visual Basic是美國微軟公司于1991年推出的基于Basic的可視化程序設(shè)計(jì)語言T ）7、一個算法可以用多種程序設(shè)計(jì)語言來實(shí)現(xiàn)T ）8、我們常說的程序設(shè)計(jì)語言就是程序設(shè)計(jì)F）9、控件是應(yīng)用程序的基本元素，與窗體共同構(gòu)成應(yīng)用程序的界面T ）11、計(jì)算機(jī)病毒就是一種人為編寫的具有破壞性的程序?。ā）12、Flash、Fireworks、Dreamweaver就是通常所說的“網(wǎng)頁三劍客” （ T ）13、在網(wǎng)絡(luò)上，言論是自由的，所以你想說什么話都可以 F）14、電視中播放的奧運(yùn)會比賽的各國金牌數(shù)是信息T） 一、單選題（每題2分，共40分）1、流程圖中表示判斷框的是（ B ）Ａ、矩形框 Ｂ、菱形框 Ｃ、圓形框 ?。摹E圓形框2、由“上車—掏錢—投幣”所描述的問題是（A ）Ａ、無人售票車投幣過程 ?。?、乘公交車過程 Ｃ、上車過程 ?。?、下車過程3、下列給出的賦值語句中正確的是（C ）A、4 = M B、-M =M C、B=A－3 D、x + y = 04、下列Visual Basic中，下列（D ）的表達(dá)式的值不等于4。
A、int(4.1) B、Int(4.9) C、Abs(int(-3.9)) D、Abs(int(-4.5))5、下列Visual Basic中，下列（C ）類型屬于字符串型A、Integer B、Single C、String D、Boolean6、下列Visual Basic中，下列關(guān)鍵字（A ）用于注釋語句A、Rem B、End C、Else D、Loop7、假定X是一個數(shù)值型變量，那么由函數(shù)組成的表達(dá)式INT(X/2)=X/2（A ） A、用于測試X是否偶數(shù) B、返回一個整數(shù) C、返回一個奇數(shù) D、用于測試X是否整數(shù)8、要改變新建對象的缺省名稱，應(yīng)使用屬性（C ） A、 Font B、ForeColor C、Name D、Height9、如果下面程序執(zhí)行后輸出的結(jié)果是132，那么在程序until后面的“條件”應(yīng)為（D ）i=12：s=1DOs= s * ii = i－1LOOP UNTIL “條件”PRINT sENDA、i > 11 B、i >=11 C、i <=11 D、i<1112、要使一個命令按鈕顯示文字“確定”，正確的設(shè)置是把該命令的（C ） A、屬性Font設(shè)置為“確定” B、屬性.ForeColor設(shè)置為“確定” C、屬性Caption設(shè)置為“確定” D、屬性BorderStyle設(shè)置為“確定”13、表達(dá)式Abs(-3.6)*sqr(100)的值是（D ）。
A、-360 B、360 C、-36 D、3614、下面程序運(yùn)行后的輸出結(jié)果為（C ）i=1do WHILE i<8i=i+2s=2*i+3loopPRINT sENDA、17 B、19 C、21 D、2315、下列Visual Basic程序段運(yùn)行后，變量a,b,c的值為（C ） a=1:b=1:c=1 Do While a+b+c<=10 a=a+1 b=b*2 c=b/2 LoopA、2 2 1 B、3 4 2 C、4 8 4 D、4 4 216、下列Visual Basic程序段運(yùn)行后，變量x的值為（C ）x=3:y=77 Do x=x+2 Loop Until x>Sqr(y) A、7 B、8 C、9 D、1017、下列Visual Basic程序段運(yùn)行后，變量s的值為（B ）a=2:b=1:s=0 For I=10 To 6 Step-1 s=s+a c=a+b a=b b=c Next I A、10 B、17 C、6 D、2818、在Visual Basic中程序段是計(jì)算（C ）公式的s=0 For I=1 To 10 t=1for j=1 to it=t*Inext js=s+t Next I A、s=1+2+3+4+5+6+7+8+9+10 B、s=1*2*3*4*5*6*7*8*9*10 C、s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*1019、下列Visual Basic程序段運(yùn)行后，變量s、t的值為（B ）。
s=0:t=1 For k=2 To 4 s=s+k t=t*k Next k A、2 2 B、9 24 C、5 6 D、0 120、下列Visual Basic程序段運(yùn)行后，變量max的值為（B ） a=5:b=10:max=a IF b>max Then max =b A、5 B、10 C、5和10 D、以上都不是二、填空題（每空1.5分，共30分）1、打印出如下圖1222 33333 444444455555555566666666666程序如下：Private Sub Command1_Click() For i=1 to ____ print tab(20-i)For j=1 to ____ Print_____ Next j Print Next iEnd Sub2、下列程序的功能是從鍵盤上任意輸入一個數(shù)，判斷這個數(shù)是正數(shù)、負(fù)數(shù)、還是零，并輸出判斷結(jié)果程序中有三處錯誤，請更正程序如下：Private Sub Command1_Click() Dim a As Single Dim py As String a=Val(Text1) If a>0 Then py="正數(shù)" If a=0 Then py="零" If a<=0 Then py="負(fù)數(shù)" Label3.Caption=aEnd Sub①___________________②___________________________③__________________3、完善程序，使能輸出：1-2+3-4+5-6+...+99-100的值。
程序如下：Private Sub Command1_Click() s=_____ For i=1 To _____ s=s+((-1)^(______))*i Next i Print sEnd Sub4、已知一元二次方程的二次項(xiàng)系數(shù)、一次項(xiàng)系數(shù)、常數(shù)項(xiàng)分別為a、b、c，其中a不等于0修改程序，求方程的根要求：如果方程無實(shí)數(shù)根，則輸出“無實(shí)數(shù)根”，否則輸出兩個實(shí)數(shù)根Private Sub Command1_Click() Dim a,b,c,d As Single Dim x1,x2 As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b^2-4*a*c If d________ Then x1=(-b+Sqr(d))/(2*a) x2=(-b-Sqr(d))/(2*a) Label1.Caption=x1 Label2.Caption=x2 _______ Label3.Caption=______ End IfEnd Sub5、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默認(rèn)窗口輸出這個值。
程序中有三處錯誤，請更正Private Sub Command1_Click() Dim a As Single a=0 For i=1 to n a=a*i Next i Print iEnd Sub①___________________②___________________________③__________________6、下面的程序是求100以內(nèi)奇數(shù)和s的值（S=1+3+5+7...+99）程序中有三處錯誤，請更正Private Sub Command1_Click() Dim s As Single Dim i As Single s=1 For i=1 to 100 Step 1 s=s*i Next i Print s End Sub①___________________②___________________________③__________________7、完善其中的程序，使能輸出如下圖形 - * * * * * *- - - - * * * * * *- - - - - - * * * * * *- - - - - - - - * * * * * *- - - - - - - - - - * * * * * *- - - - - - - - - - - - * * * * * *---表示空格程序如下：Private Sub Command1_Click() For i=1 To 6 Print Tab(______); For j=1 To_______ Print ＂*＂Next jPrintNext iEnd Sub三、簡答題（每題10分，共30分）1、已知一個三角形的三邊長分別為a,b,c ，求這個三角形的面積。
設(shè)計(jì)一個算法解決這個問題用自然語言描述并寫出偽代碼）第一步，輸入a,b,c的值；第二步，計(jì)算 的值；第三步，計(jì)算 的值；第四步，輸出S的值.2、設(shè)計(jì)算法求 的值，要求畫出程序框圖，用基本語句編寫的程序解 這是一個累加求和問題，共99項(xiàng)相加，可設(shè)計(jì)一個計(jì)數(shù)變量，一個累加變量，用循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一算法.程序框圖如右圖所示程序：S=0K=1Dos=s+1/k(k+1)k=k+1LOOP UNTIL k>99PRINT sENDINPUT tIF t<= 3 THENc=0.2ELSEc=0.2+0.1(t-3)END IFPRINT cEND3、某電信部門規(guī)定：撥打市內(nèi)電話時，如果通話時間不超過3分鐘，則收取通話費(fèi)0.2元，如果通話時間超過3分鐘，則超過部分以每分鐘0.1元收取通話費(fèi)（通話不足1分鐘時按1分鐘計(jì)），試設(shè)計(jì)一個計(jì)算通話費(fèi)用的算法要求寫出算法，畫出程序框圖，編寫程序解 我們用c（單位：元）表示通話費(fèi)，t（單位：分鐘）表示通話時間，則依題意有 算法步驟如下：第一步，輸入通話時間t；第二步，如果t≤3，那么c = 0.2 ；否則令 c = 0.2+0.1 (t－3)；第三步，輸出通話費(fèi)用c ；一、單選題（每小題3分，20小題，共60分）1、用計(jì)算機(jī)解決問題時，首先應(yīng)該確定程序“做什么？”，然后再確定程序“如何做？”請問“如何做？”是屬于用計(jì)算機(jī)解決問題的哪一個步驟？（B ）A、分析問題 B、設(shè)計(jì)算法 C、編寫程序 D、調(diào)試程序2、在調(diào)試程序過程中，下列哪一種錯誤是計(jì)算機(jī)檢查不出來的？（ C ）A、編譯錯誤 B、執(zhí)行錯誤 C、邏輯錯誤 D、任何錯誤計(jì)算機(jī)都能檢查出來3、下列關(guān)于算法的敘述中，錯誤的是（A ）A、一個算法至少有一個輸入和一個輸出B、算法的每一個步驟必須確切地定義C、一個算法在執(zhí)行有窮步之后必須結(jié)束D、算法中有待執(zhí)行的運(yùn)算和操作必須是相當(dāng)基本的。
4、流程圖中表示判斷的是（ B ）Ａ、矩形框 ?。?、菱形框 Ｃ、圓形框 ?。?、橢圓形框5、任何復(fù)雜的算法都可以用三種基本結(jié)構(gòu)組成，下列不屬于基本結(jié)構(gòu)的是（ C ）A、順序結(jié)構(gòu) B、選擇結(jié)構(gòu) C、層次結(jié)構(gòu) D、循環(huán)結(jié)構(gòu)6、能夠被計(jì)算機(jī)直接識別的語言是（ C）A、偽代碼 B、高級語言 C、機(jī)器語言 D、匯編語言7、在VB語言中，下列數(shù)據(jù)中合法的長整型常量是（ D ）A、08A B、2380836E C、88.12345 D、1.2345E68、求Mid(“ABCDEFG”,3,2)的結(jié)果是（ B ）A、“ABC” B、“CD” C、“ABCDEF” D、“BCD”9、表達(dá)式 A+B+C
A、屬性Font設(shè)置為“確定” B、屬性.ForeColor設(shè)置為“確定”C、屬性Caption設(shè)置為“確定” D、屬性BorderStyle設(shè)置為“確定”19、要從文本框TXTShowOut中輸出"中國您好！"，代碼為( B) A TextBox.text="中國您好！"B TxtShowOut.Text="中國您好！" C TxtShowOut.Label="中國您好！"D Val(TxtShowOut.Text)=“中國您好！”20、下列Visual Basic程序段運(yùn)行后，變量max的值為（A ） a=11; b=15; max=aIF b>max Then max =bA、15 B、11 C、15或11都有可能 D、以上都不是二、閱讀程序?qū)懡Y(jié)果（第1～2小題每題5分，第3小題10分，共20分）1、Private Sub Form_Load() N=InputBox(“請輸入N的值：”,“輸入”) S=1 For i=1 to N S=S*i Next i MsgBox “S=”+Str(s),0,”計(jì)算結(jié)果” End Sub當(dāng)N=5時，運(yùn)行的結(jié)果是_______S=120___________。
2、Private Sub Command1_Click() Dim X as integer,X1 as integer,X2 as integer Dim X3 as integer,Y as integer X=InputBox(“X=”，“輸入”) X1=X\100 X2=(X-X1*100)\10 X3=X-X1*100-X2*10 Y=X3*100+X2*10+X1 Print “Y=”;Y End Sub當(dāng)X=258時，運(yùn)行的結(jié)果是_______Y=852_________3、Private Sub Command1_Click() Dim A as Integer,B as Integer,C as Single Dim D as String N=InputBox(“請輸入N的值：”) F=N MOD 5 A=N+1 B=ABS(N) Select Case F Case 1:C=A+B:D=”+” Case 2:C=A-B:D=”-” Case 3:C=A*B:D=”*” Case 4:C=A/B:D=”/” Case else:End End Select Print A;D;B;”=”;C End Sub當(dāng)N=13時，運(yùn)行的結(jié)果是_____14*13=182________。
三、程序填空（每小題10分，2小題，共20分）1、下面的程序是求100以內(nèi)奇數(shù)和S的值（S=1+3+5+7...+99），請把空缺的地方填寫完整Private Sub Command1_Click() Dim S As Integer Dim I As Integer S=__（1）__ For I=1 to 100 Step __（2）__ S=S+I Next __（3）__ Label1.____（4）______=___（5）___(S)End Sub（1）____0_____ （2）____2_____ （3）____i_____ （4）___Caption___ （5）___Str___2、某旅行團(tuán)共有30個人，其中有男人、女人和小孩，他們在一家餐廳吃自助餐花去500元已知自助餐的價(jià)格是每個男人30元，每個女人20元，每個小孩10元問：男人、女人、小孩各為多少人下面是解決該問題的VB程序，請?jiān)诳杖钡牡胤教顚懲暾鸓rivate Sub Command1_Click()Dim Man As Integer, Woman As Integer, Child As IntegerDim Money As Integer,Count As IntegerCount=0 ‘用來記錄符合條件的組合數(shù)For Man = 1 To __(1)__(500/30) For Woman = 1 To (30-Man) Child = __________(2)___________ Money= 30 * Man + 20 * Woman + 10 * ChildIf _______(3)________ Then Count=Count+1 Print “第”;Count;”種情況：” Print Tab(10);”男人”;Man;”個”; Print Tab(25);”女人”;Woman;”個”; Print Tab(40);”小孩”;Child;”個”; Print End If Next ___(4)___Next ___(5)____End Sub（1）__Int 或 Fix__ （2）__30-Man-Woman__ （3）___Money=500____（4）__Woman__ （5）__Man__。
