高中信息技術(shù)習(xí)題.doc

《高中信息技術(shù)習(xí)題.doc》由會員分享，可在線閱讀，更多相關(guān)《高中信息技術(shù)習(xí)題.doc（12頁珍藏版）》請在裝配圖網(wǎng)上搜索。

一、選擇題（每題2分，共15題，總分30分） 1、利用計算機(jī)解決問題的一般過程描述，以下哪中說法正確：（ C　） A、編寫程序－調(diào)試程序－分析問題－設(shè)計算法 B、分析問題－編寫程序－調(diào)試程序－設(shè)計算法 C、分析問題－設(shè)計算法－編寫程序－調(diào)試程序 D、分析問題－設(shè)計算法－調(diào)試程序－編寫程序 2、用來描述算法的方法，不包括以下哪一種：（D?。? A、自然語言 B、流程圖 C、偽代碼 D、方程式 3、以下的哪一種基本結(jié)構(gòu)不被包括在程序的基本結(jié)構(gòu)里面（　B） A、順序 B、分支 C、選擇 D、循環(huán) 4、程序設(shè)計語言的產(chǎn)生與發(fā)展所經(jīng)歷的過程不包括以下的哪項：（C　） A、機(jī)器語言 B、匯編語言 C、初級語言 D、高級語言 5、利用basic語言編寫的程序源代碼文件名后綴為：（A?。? A、.BAS B、.CPP C、.TXT D、.DOC 6、下面數(shù)據(jù)屬于字符串常量的是:(B ) A、abcd B、“abcd” C、‘a(chǎn)bcd’ D、ab-cd 7、一個算法所具有的五個方面的重要特征里，下列哪一項是不必須的：（A ） A、輸入 B、確定性 C、有窮性 D、輸出 E、能行性 8、下列哪種格式為VB程序設(shè)計中常量說明的正確格式：（D ） A、const 常量名 as 類型 B、dim 常量名 as 類型 C、dim 常量名 as 類型=表達(dá)式 D、const 常量名 as 類型=表達(dá)式 9、信息的載體是承載信息的事物，如語言、文字聲音、磁盤等。則下面選項為信息載體的是：（D ） A、 天氣預(yù)報 B、市場價格 C、電視新聞 D、光盤 10、關(guān)于信息，下列說法錯誤的是（D ） A、信息必須依附于載體而存在 B、信息是可以共享的 C、信息是可以處理的 D、信息的價值不會改變 11、電子郵箱地址的一般格式是：yourname@xx.com,其中yourname是（D） A、網(wǎng)站的計算機(jī)名 B、主機(jī)名 C、用戶的計算機(jī)名 D、用戶名 12、在網(wǎng)絡(luò)時代，流行著一句時代用語：“有問題，“百度”一下！”，其中“百度”是指的（A ） A、 利用百度搜索引擎在網(wǎng)絡(luò)上檢索信息。 B、 其是一個很好的投資項目 C、 是一個專家 D、 是一家理財公司 13、王剛十一國慶要出去旅游，他在報紙上看到將來十天是陰雨天氣，于是就帶了雨具，可是直到他回到家也沒有下過雨。當(dāng)他又拿起那張報紙仔細(xì)看時才發(fā)現(xiàn)自己所看的是去年國慶期間的報紙。就信息的特征來說，王剛忽略了信息的什么特征？(B ) A、依附性 B、時效性 C、價值性 D、共享性 14、信息采集的工具有很多，下面那個工具是不包括其中的（D ） A、數(shù)碼相機(jī) B、計算機(jī) C、照相機(jī) D、收音機(jī) 15、計算機(jī)病毒是：（B ） A、一種生物病毒 B、一組計算機(jī)有害代碼 C、一種寄生在計算機(jī)內(nèi)的寄生蟲 D、一種細(xì)菌 二、判斷題（每題1分，共4題，總分4分） 1、 我們可以通過電子郵箱給遠(yuǎn)方的朋友發(fā)送電子郵件，但是電子郵箱中只能發(fā)送文本而不能發(fā)送圖片。（F ） 2、 算法就是用計算機(jī)求解某一問題的方法，是能被機(jī)械地執(zhí)行的動作或指令的無窮集合。（F ） 3、 用高級語言編寫的程序必須經(jīng)過翻譯器將其翻譯成機(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=”;s end sub 1、由上可以看出，VB的程序一般包含如下部分：數(shù)據(jù)類型說明部分、數(shù)據(jù)輸入、 數(shù)據(jù)處理 、數(shù)據(jù)的輸出部分。 2、在以上程序中，“single”為單精度實型 數(shù)據(jù)類型的說明符。 四、程序補充題（每空2分，共5空，總分10分） 1、《幾何原理》中，歐幾里德闡述了關(guān)于兩個整數(shù)最大公約數(shù)的計算過程，即歐幾里德算法（輾轉(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ù)為48。 （2） （3） 答：112和64的最大公約數(shù)為： 2、根據(jù)算法補全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=”;y end sub 一、 單項選擇題（共20個空，每空2分，共40分） 1、 人們利用計算機(jī)解決問題的基本過程一般有如下五個步驟（①~⑤），請按各步驟的先后順序在下列選項（A~D）中選擇正確的答案（ B ） ①調(diào)試程序 ②分析問題 ③設(shè)計算法 ④構(gòu)建數(shù)學(xué)模型 ⑤編寫程序 （A）①②③④⑤ （B）②④③⑤① （C）④②③⑤① （D）②③④①⑤ 2、 下列各種基本數(shù)據(jù)類型說明符中表示整數(shù)型的是（ A ） （A） Integer （B） Boolean （C） Single （D） String 3、 下列各項中，合法的變量名是（ C ） （A） &90 （B） abc=9 （C） hello （D） 888.f 4、 有兩個條件P 、Q，只要有一個條件為真時，結(jié)果一定為真的是（ C ）。 （A）Not P （B）P And Q （C）P OR Q （D）NOT P AND NOT Q 5、 下列代數(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）3 7、 VB函數(shù)InStr ()檢查是否包含另一子串：含有子串則返回值為子串在父串中第一次出現(xiàn)的位置，不包含子串則返回值為0。InStr("CATbCACBC", "BC")的值為（ C ） （A）0 （B）4 （C）8 （D）1 8、 VB函數(shù)Right ()從字串右端取部分字串：將某一字串從結(jié)尾開始取固定長度的字串。Right(“Visual Basic 6.0”,6)的值為（ D ） （A）sic 6.0 （B）asic 6.0 （C）Visual （D）ic 6.0 9、 程序如下： 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中將兩個字符串連接起來的運算符有：+和&，那么 ”123”+45結(jié)果是（ A ） 　?。ˋ）168 （B）12345 （C）“123” （D）45 11、 已知A，B，C，D是簡單變量，且都已有互不相同的值，執(zhí)行語句B=8:A=C:D=A:D=B后，其值相等的變量是（ B ） 　?。ˋ）A，D （B）A，C （C）C，B （D）B，A 12、 要交換變量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=C 13、 模塊化程序設(shè)計方法主要通過（ B ）來實現(xiàn)。 （A）遞歸算法和遞歸程序 （B）過程和函數(shù)的定義和調(diào)用 （C）程序的循環(huán)結(jié)構(gòu) （D）對象 11、一位愛好程序設(shè)計的同學(xué)，想通過程序設(shè)計解決“韓信點兵”的問題，他制定的如下工作過程中，更恰當(dāng)?shù)氖牵?C） 　　A、設(shè)計算法，編寫程序，提出問題，運行程序，得到答案 　　B、分析問題，編寫程序，設(shè)計算法，運行程序，得到答案 　　C、分析問題，設(shè)計算法，編寫程序，運行程序，得到答案 　　D、設(shè)計算法，提出問題，編寫程序，運行程序，得到答案 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è)計由三種基本結(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ī)書本中的知識是信息。 （T ） 4、一臺計算機(jī)一旦染上病毒，便無法使用。（F ） 5、 Visual Basic是美國微軟公司于1991年推出的基于Basic的可視化程序設(shè)計語言。（T ） 7、一個算法可以用多種程序設(shè)計語言來實現(xiàn)。（T ） 8、我們常說的程序設(shè)計語言就是程序設(shè)計。（F） 9、控件是應(yīng)用程序的基本元素，與窗體共同構(gòu)成應(yīng)用程序的界面。（T ） 11、計算機(jī)病毒就是一種人為編寫的具有破壞性的程序?。ā） 12、Flash、Fireworks、Dreamweaver就是通常所說的“網(wǎng)頁三劍客” （　T ） 13、在網(wǎng)絡(luò)上，言論是自由的，所以你想說什么話都可以。（　F） 14、電視中播放的奧運會比賽的各國金牌數(shù)是信息。（T） 一、單選題（每題2分，共40分） 1、流程圖中表示判斷框的是（ B ）。 Ａ、矩形框　　　Ｂ、菱形框 Ｃ、圓形框　　?。?、橢圓形框 2、由“上車—掏錢—投幣”所描述的問題是（A ）。 Ａ、無人售票車投幣過程　?。?、乘公交車過程 Ｃ、上車過程　?。摹⑾萝囘^程 3、下列給出的賦值語句中正確的是（C ）。 A、4 = M B、-M =M C、B=A－3 D、x + y = 0 4、下列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、Boolean 6、下列Visual Basic中，下列關(guān)鍵字（A ）用于注釋語句。 A、Rem B、End C、Else D、Loop 7、假定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、Height 9、如果下面程序執(zhí)行后輸出的結(jié)果是132，那么在程序until后面的“條件”應(yīng)為（D ）。 i=12：s=1 DO s= s * i i = i－1 LOOP UNTIL “條件” PRINT s END A、i > 11 B、i >=11 C、i <=11 D、i<11 12、要使一個命令按鈕顯示文字“確定”，正確的設(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、36 14、下面程序運行后的輸出結(jié)果為（C ）。 i=1 do WHILE i<8 i=i+2 s=2*i+3 loop PRINT s END A、17 B、19 C、21 D、23 15、下列Visual Basic程序段運行后，變量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 Loop A、2 2 1 B、3 4 2 C、4 8 4 D、4 4 2 16、下列Visual Basic程序段運行后，變量x的值為（C ）。 x=3:y=77 Do x=x+2 Loop Until x>Sqr(y) A、7 B、8 C、9 D、10 17、下列Visual Basic程序段運行后，變量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、28 18、在Visual Basic中程序段是計算（C ）公式的。 s=0 For I=1 To 10 t=1 for j=1 to i t=t*I next j s=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*10 19、下列Visual Basic程序段運行后，變量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 1 20、下列Visual Basic程序段運行后，變量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、打印出如下圖 1 222 33333 4444444 555555555 66666666666 程序如下： Private Sub Command1_Click() For i=1 to ____ print tab(20-i) For j=1 to ____ Print_____ Next j Print Next i End Sub 2、下列程序的功能是從鍵盤上任意輸入一個數(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=a End 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 s End Sub 4、已知一元二次方程的二次項系數(shù)、一次項系數(shù)、常數(shù)項分別為a、b、c，其中a不等于0。修改程序，求方程的根。要求：如果方程無實數(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 If End Sub 5、下面的程序是求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 i End 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 j Print Next i End Sub 三、簡答題（每題10分，共30分） 1、已知一個三角形的三邊長分別為a,b,c ，求這個三角形的面積。設(shè)計一個算法解決這個問題。（用自然語言描述并寫出偽代碼） 第一步，輸入a,b,c的值；第二步，計算 的值；第三步，計算 的值；第四步，輸出S的值. 2、設(shè)計算法求 的值，要求畫出程序框圖，用基本語句編寫的程序。 解 這是一個累加求和問題，共99項相加，可設(shè)計一個計數(shù)變量，一個累加變量，用循環(huán)結(jié)構(gòu)實現(xiàn)這一算法.程序框圖如右圖所示 程序： S=0 K=1 Do s=s+1/k(k+1) k=k+1 LOOP UNTIL k>99 PRINT s END INPUT t IF t<= 3 THEN c=0.2 ELSE c=0.2+0.1(t-3) END IF PRINT c END 3、某電信部門規(guī)定：撥打市內(nèi)電話時，如果通話時間不超過3分鐘，則收取通話費0.2元，如果通話時間超過3分鐘，則超過部分以每分鐘0.1元收取通話費（通話不足1分鐘時按1分鐘計），試設(shè)計一個計算通話費用的算法。要求寫出算法，畫出程序框圖，編寫程序。 解 我們用c（單位：元）表示通話費，t（單位：分鐘）表示通話時間， 則依題意有 算法步驟如下：第一步，輸入通話時間t；第二步，如果t≤3，那么c = 0.2 ；否則令 c = 0.2+0.1 (t－3)；第三步，輸出通話費用c ； 一、單選題（每小題3分，20小題，共60分） 1、用計算機(jī)解決問題時，首先應(yīng)該確定程序“做什么？”，然后再確定程序“如何做？”請問“如何做？”是屬于用計算機(jī)解決問題的哪一個步驟？（B ） A、分析問題 B、設(shè)計算法 C、編寫程序 D、調(diào)試程序 2、在調(diào)試程序過程中，下列哪一種錯誤是計算機(jī)檢查不出來的？（ C ） A、編譯錯誤 B、執(zhí)行錯誤 C、邏輯錯誤 D、任何錯誤計算機(jī)都能檢查出來 3、下列關(guān)于算法的敘述中，錯誤的是（A ） A、一個算法至少有一個輸入和一個輸出 B、算法的每一個步驟必須確切地定義 C、一個算法在執(zhí)行有窮步之后必須結(jié)束 D、算法中有待執(zhí)行的運算和操作必須是相當(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ī)直接識別的語言是（ C） A、偽代碼 B、高級語言 C、機(jī)器語言 D、匯編語言 7、在VB語言中，下列數(shù)據(jù)中合法的長整型常量是（ D ） A、08A B、2380836E C、88.12345 D、1.2345E6 8、求Mid(“ABCDEFG”,3,2)的結(jié)果是（ B ） A、“ABC” B、“CD” C、“ABCDEF” D、“BCD” 9、表達(dá)式 A+B+C=3 OR NOT C<0 OR D>0 當(dāng)A=3,B=4,C=-5,D=6時的運算結(jié)果是（ B ） A、0 B、1 C、TRUE D、FALSE 10、在循環(huán)語句 For x=1 to 100 step 2 …… Next x 中，x能達(dá)到的最大值是（ A ） A、100 B、99 C、98 D、97 11、在下列選項中，不屬于VB的對象的是（ A ） A、窗體的背景顏色 B、命令按鈕 C、文本框 D、標(biāo)簽 12、在調(diào)試程序的時候，經(jīng)常要設(shè)置斷點，設(shè)置斷點的快捷鍵是（ C ） A、F1 B、F8 C、F9 D、F12 13、算法描述可以有多種表達(dá)方法，下面哪些方法不可以描述“閏年問題”的算法（D ） A、自然語言 B、流程圖 C、偽代碼 D、機(jī)器語言 14、以下不屬于非法用戶自定義標(biāo)識符（常量和變量命名）的是（B ） A、8ad B、ad8 C、_a8d D、const 15、已知A，B，C，D是整型變量，且都已有互不相同的值，執(zhí)行語句B=0；A=C；D=A；D=B；后，其值相等的變量是（B ） A、A，D B、A，C C、C，B D、B，A 16、要交換變量A和B的值，應(yīng)使用的語句組是( B) A、A=B；B=C；C=A B、C=A；A=B；B=C C、A=B；B=A D、C=A；B=A；B=C 17、VisualBasic中以單引號開頭一行文字稱為注釋，它對程序的運行（ D ） A、起一定作用B、有時候起作用 C、不起任何作用，但是必須的D、不起任何作用，但能增加程序的可閱讀性 18、要使一個命令按鈕顯示文字“確定”，正確的設(shè)置是把該命令按鈕的（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程序段運行后，變量max的值為（A ）。 a=11; b=15; max=a IF b>max Then max =b A、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,”計算結(jié)果” End Sub 當(dāng)N=5時，運行的結(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時，運行的結(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時，運行的結(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元。已知自助餐的價格是每個男人30元，每個女人20元，每個小孩10元。問：男人、女人、小孩各為多少人。下面是解決該問題的VB程序，請在空缺的地方填寫完整。 Private Sub Command1_Click() Dim Man As Integer, Woman As Integer, Child As Integer Dim Money As Integer,Count As Integer Count=0 ‘用來記錄符合條件的組合數(shù) For Man = 1 To __(1)__(500/30) For Woman = 1 To (30-Man) Child = __________(2)___________ Money= 30 * Man + 20 * Woman + 10 * Child If _______(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__