創(chuàng)新設計《優(yōu)化重組卷》《算法與程序設計》綜合檢測試題

1、算法與程序設計(A卷)綜合檢測試題一、選擇題(本大題共25小題，每小題2分，共50分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)1.將數(shù)學表達式：x25x3寫成VisualBasic表達式，正確的是()A.2*xx3 B.x25*x3C.sqr(x)x3 D.x2x32.下列VB表達式的值等于3的是()A.Sqr(9) B.abs(1)C.Len(“1”) D Len(“3”)3.有如下VB程序段：()a12b54taabbt該程序執(zhí)行后，變量a，b的值分別是()A.12，54 B.54，12C.54，54 D.12，124.如下VB程序段：a3：b6：c5i

2、f a>b and a>c thenyaelse if b>c then ybelseycend if該程序運行之后，整數(shù)型變量y的值()A.0 B.5 C.6 D.35.在Visual Basic中，語句Dim x As Single所說明的變量x屬于()A.整數(shù)型 B.邏輯型C.字符串型 D.單精度實數(shù)型6.下列屬于VisalBasic窗體文件的是()A.min.exe B.min.frmC.min.vbp D.min.mdb7.下列問題不能用算法描述的是()A.所有偶數(shù)的和B.將一個5位的十進制數(shù)轉化為對應的二進制數(shù)C.將100個有理數(shù)按降序排列D.求100個自然數(shù)中最

3、大的一個數(shù)8.關于算法的三種基本模式，下列說法不正確的是()A.一個算法可以只有一種基本的模式B.一個算法必須包含三種基本模式C.一個算法可能包含兩種基本模式D.一個算法可以包含三種基本模式的基本組合9.計算圓的面積的算法如下：(1)輸入圓的半徑r(2)pi3.14(3)計算圓的面積spi*r*r(4)輸出面積s求解圓的面積采用的算法是()A.枚舉算法 B.解析算法C.排序算法 D.查找算法10.為了查找自己曾經寫過的某篇作文，小明依次翻開自己的多本作文本進行逐頁查找。這種查找方法是()A.無序查找 B.隨機查找C.對分查找 D.順序查找11.在數(shù)組變量a(1)至 a(7)中依次輸入“a”，

4、“b”，“c”， “d”， “e”， “f”， “g”，若用對分查找的方法查找“c”這個字符，所需要的比較次數(shù)是()A.1 B.2 C.3 D.412.在VB程序設計的過程，“20”“08”的運算結果是()A.“28” B.“208”C.“2008” D.“2008”13.在VB中，若用a，b，c分別代表對象名，屬性名，屬性值，則下列表達形式正確的是()A.a.bcB.a.cbC.b.ca D.b.ac14.執(zhí)行以下VB程序段后，變量Z的值為：()x5y10z(xy)mod 2A.5 B.10 C.15 D.115.執(zhí)行以下VB程序段后，變量Z的值為()x5y10z(xy)2A.7.5 B.7

5、 C.15 D.116.執(zhí)行以下VB程序段后，變量Z的值為()x5y10z(xy)/ 2A.5 B.10 C.15 D.7.517.執(zhí)行以下VB程序段后，變量Z的值為()Dim x，y，z as integerx5y10z(xy)/ 2A.7 B.8 C.7.5 D.118.描述算法的基本方法有()(1)自然語言(2)流程圖(3)偽代碼(4)機器語言A.(2)(3)(4) B.(1)(2)(3)C.(1)(2)(4) D.(1)(2)(3)(4)19.計算圓的面積的算法如下：(1)輸入圓的半徑r(2)pi3.14(3)計算圓的面積spi*r*r(4)輸出面積s這種描述算法的方法是()A.自然語

6、言 B.流程圖C.偽代碼 D.機器語言20.求解矩形的面積采用的算法是()上述流程圖描述算法的執(zhí)行模式是()A.順序模式 B.分支模式C.循環(huán)模式 D.混合模式21.【加試題】有如下VB程序段：x0for i1 to 100 step 1xxinext i該程序運行之后，整數(shù)型變量X的值是()A.100 B.4 450C.5 050 D.5 01022.【加試題】下列VB函數(shù)可以計算正整數(shù)n的階乘的值。Function f(n As Integer) As IntegerIf (n<1) Thenf1Elsefn * f(n1)End IfEnd Function上述函數(shù)采用的算法是()

7、A.枚舉 B.查找C.排序 D.遞歸23.【加試題】閱讀下面的VB函數(shù)Function f(n As Integer) As IntegerIf (n1) Thenf1Else If (n2) Thenf1Elseff(n1)f(n2)End IfEnd FunctionF(5)的值是()A.3 B.4 C.5 D.624.【加試題】5位評委依次給學生演講的成績打分依次為95，85，92，84，90，如下表所示：原始數(shù)據(jù)9585928490第一趟8592849095第二趟第三趟8485909295若采用冒泡法對其進行從小到大的排序，則第二趟的排序結果是()A.85 84 90 92 95 B.

8、84 85 95 90 92C.84 85 95 92 90 D.84 90 92 85 93 25.【加試題】對數(shù)組83，85，61，75，95，86進行排序操作，若選擇選擇法進行排序，若完成第一遍時的結果為：61，85，83，75，95，86.則第二遍時的結果是()A.61，85，83，75，86，95B.61，75，83，85，95，86C.61，75，83，85，86，95D.61，85，83，75，95，86二、非選擇題(本大題共5小題，每題10分，共50分)26.補充程序水仙花數(shù)是指一個n位數(shù)(n3)，它的每個數(shù)位上的數(shù)字之和的n次冪之和等于這個數(shù)本身。例如153135333，15

9、3就是一個水仙花數(shù)。下面的VB程序就是求出全部4位的水仙花數(shù)并在列表框List1中顯示出來，請在劃線處將程序補充完整。Dim m As Integer, n As IntegerDim a As Integer, b As Integer, c As Integer, d As IntegerFor_(1)_To 9999aInt(m/1000)bInt(m/100)mod 10cInt(m/10)mod 10dm Mod 10If_(2)_ThenList1.AddItem Str(m)End_If_(3)_ (1)_(3分)(2)_(4分)(3)_(3分)27.補充程序。找出100至200

10、之間的素數(shù)，將結果顯示到列表框List1中。Dim flag As BooleanDim n As IntegerFor i 100 To 200flag False(1)_Do While n <Sqr(i)If_(2)_Then flagTrue_(3)_LoopIf_(4)_Then List1.AddItem Str(i)Next i(1)_(2分)(2)_(3分)(3)_(3分)(4)_(2分)28.程序補充(每空2分)某商品進行團購優(yōu)惠活動：一次團購數(shù)量50件以下，95折優(yōu)惠；團購數(shù)量在50件(包含50件)以上100件以下，85折優(yōu)惠；100件(包含100件)以上，75折優(yōu)惠

11、。商品單價是100元一件，完成如下程序。Private Sub Command1_Click()Dim p, s As Integerp100sVal(Text1.Text)Dim m As SingleIf_(1)_Thenmp*s*0.95ElseIf s<100 Then_(2)_Else_(3)_End IfText2.Text Str(m)End Sub (1)_(2)_(3)_(4)當p30時，text2.text顯示結果是_(5)當p150時，text2.text顯示結果是_29.【加試題】補充程序(每空2分)選擇排序算法的基本思想是在待排序的數(shù)據(jù)中選出最大或者最小的數(shù)據(jù)，

12、把它與第一個數(shù)據(jù)交換，然后再在其余的數(shù)據(jù)中找出最大或最小的數(shù)據(jù)與第二個數(shù)據(jù)交換，依次類推，直到所有數(shù)據(jù)排序完成。在如圖所示的程序界面中，對這list1中的8個數(shù)進行選擇排序，完成后在list2中顯示出來。請你補充程序。Private Sub Command1_Click()Dim a(1 To 8) As IntegerFor i 1 To 8 將list1中數(shù)字讀入數(shù)組中List1.ListIndexi1a(i) Val(List1.Text)Next iDim p, t As IntegerDim flag As BooleanFor i 1 To 8piFor_(1)_To 8If a(

13、j) < a(p) Then_(2)_flagTrueEnd IfNext jIf_(3)_Then_(4)_a(i) a(p)a(p) tEnd If_(5)_For i 1 To 8List2.AddItem Str(a(i)Next iEnd Sub(1)_(2)_(3)_(4)_(5)_30.【加試題】對分查找首先將查找值與有序數(shù)組內處于中間位置的元素進行比較，如果中間位置上的元素內的數(shù)值與查找值不同，根據(jù)數(shù)組元素的有序性，就可確定應該在數(shù)組的前半部分還是后半部分繼續(xù)進行查找；在新確定的范圍內，繼續(xù)按上述方法進行查找，直到獲得最終結果。下面的VB程序在數(shù)組內進行對分查找，如果查到

14、則在文本框中先是查找元素的序號。請您把程序補充完整Dim a(1 To 8) As IntegerFor i 1 To 8 將list1中數(shù)字讀入數(shù)組中List2.ListIndexi1a(i)Val(List2.Text)Next iDim low, mid, high, key, num As IntegerDim flag As BooleannumVal(Text1.Text)low1high8Do While_(1)_mid (low high)/2If (a(mid) num) Thenflag Truekey midElseIf_(2)_Thenlow midElse_(3)_E

15、nd IfLoopIf flag ThenText2.Text Str(key)ElseText2.Text “您輸入的數(shù)字沒有查找到！”End If(1)_(4分)(2)_(3分)(3)_(3分)算法與程序設計(B卷)綜合檢測試題一、選擇題(本大題共25小題，每小題2分，共50分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)1.下列VB表達式的值等于5的是()A.Sqr(9) B.“2”“3”C.Len(“5”) D.Len(“3234”)2.為使下面左右框內的VB程序段實現(xiàn)相同的功能，則左框內劃線處填寫的代碼應該是()S0：t1Do While t<6

16、sst_LoopA.t2 B.t6C.tt1 D.tt23.如下VB程序段：a12：b6：c7if a<b and a<c thenyaelse if b<c thenybelseycend if該程序運行之后，整數(shù)型變量y的值為()A.0 B.12 C.6 D.74.下列屬于VisalBasic工程文件的是()A.min.exe B.min.frmC.min.vbp D.min.mdb5.下列問題能用算法描述的是()A.所有偶數(shù)的和B.所有素數(shù)的和C.將10萬個有理數(shù)按降序排列D.用計算機算法證明哥德巴赫猜想6.程序的三種基本結構是()A.選擇結構、循環(huán)結構、樹型結構B.順

17、序結構、選擇結構、循環(huán)結構C.順序結構、循環(huán)結構、樹型結構D.樹型結構、順序結構、選擇結構7.“如果a，b中任意一個為0，那么yy1”。能實現(xiàn)該功能的VB語句是()A.If a0 And b0 Then yy1B.If a*b0 Then yy1C.If a0，b0 Then yy1D.If a，b0 Then yy18.某算法的流程圖如下圖所示。S的初始值是0，i的初始值是5，問ssi的執(zhí)行次數(shù)()A.6 B.7 C.8 D.99.在VB程序設計的過程，ascii(“e”)ascii(“c”)的運算結果是()A.0 B.“1”C.2D.310.下列邏輯表達式的值為“真”的是()A.24>

18、;8and 5>1 B.312>15or 3<1C.5>0And 4<3 D.10/5<3or 6<811.輸入兩個變量a2，b6，按下面的程序代碼執(zhí)行，a，b的值變?yōu)槎嗌?)a2b6aa2babaabA.a6，b2B.a6，b4C.a6 b2 D.a6，b612.下面程序執(zhí)行的結果是()private sub form_click()A“123”：B“456”Cval(a)val(b)print C100end subA.123 B.3 C.5 D.57913.在VB語言中，下列合法的變量名是()A.Print B.testqwC.6cost_1 D

19、.count2s14.下列數(shù)據(jù)屬于字符串函數(shù)的是()A.Abs()B.Sqr()C.String() D.Int()15.某VB的事件過程如下：Private Sub Command1_Click()Dim a As IntegeraVal(Text1.Text)a2*a1Text1.TextStr(a)End Sub程序運行時，在文本框Text1中輸入1，連續(xù)兩次單擊命令按鈕Command1后，Text1中顯示的內容是()A.7 B.5 C. 3 D.116.下列Visual Basic程序段運行后，變量Max的值為()a3：b10：max0if a>0 then max3if b&g

20、t;0 then max10A.0B.3C.10 D.無法確定17.數(shù)組a中的數(shù)據(jù)存放情況如下表，以下關系表達式成立的是()a1a2a3a4a5a6a7a8134128657A.aa34B.aa88C.a6>a5aa11D.aa2a1<>a418.下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是()A.Label控件 B.TextBox控件C.Timer控件 D.mandButton控件19.“某商場的店慶促銷活動之一：店慶日購物滿500元可在5折優(yōu)惠后再減100元，否則只打5折”。用算法描述這一問題，可采用的算法結構是()A.順序結構B.選擇結構C.循環(huán)結構 D.樹型

21、結構20.在流程圖中常用表示輸入框()21.【加試題】S1For j10 To 10 Step2ss*jNext jMsgBox(s)上述程序段中ss*j的執(zhí)行次數(shù)是()A.20 B.10 C.11 D.2122.【加試題】S0C0Do While C<100CC1SSCLoopMsgBox (Str(C)Str(S)該程序的運行結果是()A.99 4950B.100 4950C.100 5050 D.101 515123.【加試題】小明編寫了如下VB程序段：Private Sub com mand1_Click()Dim x As DoubleDim y As DoublexVal(T

22、ext1.Text)yAbs(x)xint(y)Text2.TextStr(x)End Sub此應用程序執(zhí)行后，出現(xiàn)了如上圖所示的錯誤信息，請問產生此錯誤的原因是()A.語句yAbs(x)有誤B.缺少對象424C.語句xint(y)有誤D.缺少文本框Text1或文本框Text224.【加試題】5位評委依次給學生演講的成績打分依次為95，85，92，84，90，如下表所示：原始數(shù)據(jù)9585928490第一趟8495859290第二趟8485959290第三趟若采用冒泡法對其進行從小到大的排序，則第三趟的排序結果是()A.84 90 85 93 92 B.84 85 95 90 92C.84，85

23、，90，95，92 D.84 90 92 85 93 25.【加試題】對數(shù)組83，85，61，75，95，86進行排序操作，若用選擇法進行排序，若完成第一遍時的結果為：61，85，83，75，95，86.則第三遍時的結果是()A.61，85，83，75，86，95B.61，75，83，85，95，86C.61，75，83，85，86，95 D.61，85，83，75，95，86二、非選擇題(本大題共5小題，每題10分，共50分)26.補充程序完全數(shù)，又稱完美數(shù)或完備數(shù)，是一些特殊的自然數(shù)。它所有的真因子(即除了自身以外的約數(shù))的和(即因子函數(shù))，恰好等于它本身。例如6123；下面程序找出1 0

24、00以內的完全數(shù)，在列表框中顯示出來，把程序補充完整.Dim a, s As IntegerFor i 2 To 1000a1(1)_Do While a<sqr(i)If (i Mod a) 0 Then_(2)_(3)_LoopIf (s i) Then List1.AddItem Str(i)_(4)_(1)_(2分)(2)_(3分)(3)_(3分)(4)_(2分)27.如下程序段的功能是：隨機產生8個1100之間的正整數(shù)，按升序將10個數(shù)據(jù)排序輸出。Const n8Dim a(1 to n)As IntegerDim I，j，t，k as integerFor i1 To n_(

25、1)_Next iFor i1To n1For j_(2)_To nIf_(3)_Thentd(i)d(i)d(k)d(k)tEnd IfNext jNext I為了實現(xiàn)這一目標，在劃線處，填入合適的語句或表達式是(1)_(4分)(2)_(3分)(3)_(3分)28.某超市打折促銷，規(guī)定如下：購物未超過500元按原價支付；購物超過500元但未超過1 000元，超過500元部分按9折優(yōu)惠計價；購物超過1 000元但未超過1 500元，超過1 000元部分按8折優(yōu)惠計價；購物超過1 500元但未超過3 000元，超過1 500元部分按7折優(yōu)惠計價；購物超過3 000元，超過3 000元部分按6折優(yōu)

26、惠計價。根據(jù)以上規(guī)定，假定購物貨款為x元，則實付金額y為：y程序界面如圖所示，在“輸入購物金額(單位：元)”后的文本框orgtext中輸入購物金額(單位：元)，單擊“實付金額計算”按鈕(Command1)后，在“實際支付金額(單位：元)為”后的文本框cash Text中輸出實付金額。解決此問題相應的Visua1 Basic程序如下：Private Sub Command1_Click()Dim x As Single，y As SinglexVa1(orgtext.Text)If x<500 ThenyxElse If_Theny500(x500)*0.9Else If x<1 5

27、00 Theny500500*0.9(x1 000)*0.8ElseIf x<3 000 Theny500500*0.9500*0.8(x1 500)*0.7Elsey500500*0.9500*0.81 500*0.7(x3 000)*0.6End If_End Sub(1)解決此問題的算法是_。(選填：解析法或枚舉法)(3分)在程序和劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。(2)程序中劃線處應填入_。(3分)(3)程序中劃線處應填入_。(4分)29.【加試題】補充程序某工廠購入了200千克原材料，每4千克原料可以生產一件A產品，每5千克可以生產一件B 產品。下面VB程序的功能

28、：計算恰好用盡原材料時，將A產品的數(shù)量和B產品的數(shù)量在列表框中顯示出來。Private Sub Form_Load()Dim x, y As Integerx為A產品生產數(shù)量，y為B產品生產數(shù)量For x 1 To 50For y 1 To 40If_(1)_ThenList1.AddItem“A產品” Str(x) “ B產品” Str(y)End If_(2)_(3)_End Sub(1)_(4分)(2)_(3分)(3)_(3分)30.【加試題】對分查找首先將查找值與有序數(shù)組內處于中間位置的元素進行比較，如果中間位置上的元素內的數(shù)值與查找值不同，根據(jù)數(shù)組元素的有序性，就可確定應該在數(shù)組的前

29、半部分還是后半部分繼續(xù)進行查找；在新確定的范圍內，繼續(xù)按上述方法進行查找，直到獲得最終結果。下面的VB程序在數(shù)組內進行對分查找，如果查到則在文本框中顯示查找元素的序號。請您把程序補充完整。Private Sub Command1_Click()Dim a(1 To 8) As IntegerFor i 1 To 8，將list1中數(shù)字讀入數(shù)組中List2.ListIndexi1a(i)Val(List2.Text)Next iDim low, mid, high, key, num As IntegerDim flag As BooleannumVal(Text1.Text)low1high8

30、k0Do While (low<high And flagFalse)_(1)_(2)_If (a(mid)num)ThenflagTruekeymidElseIf (_(3)_) ThenlowmidElsehighmidEnd IfLoopLabel3.Caption“查找了”Str(k)“次”If flag ThenText2.TextStr(key)ElseText2.Text “您輸入的數(shù)字沒有查找到！”End IfEnd Sub(1)_(4分)(2)_(3分)(3)_(3分)算法與程序設計(A卷)綜合檢測試題1B本題主要考查如何將數(shù)學表達式轉化為VB的表達式。表達式中可能包括

31、算術運算，關系運算和邏輯運算，在VB中，數(shù)學中的乘號用“*”表示，乘冪用“”表示。2A本題考查學生對基本數(shù)學函數(shù)的認識和理解。Sqr(3)是求3的算術平方根，abs(1)是求1的絕對值，asc(”1”)是求“1”的ASCII值，Len(“3”)是求字符串”3”的長度。3B本題考查學生對賦值語句執(zhí)行過程的認識和理解。這是一段順序結構的程序，按照語句的順序依次執(zhí)行賦值語句，賦值語句將右邊變量的值賦給左邊的變量。這是兩個變量交換賦值的語句。4C本題考查if語句的執(zhí)行過程，在a，b，c三個數(shù)中選出最大的一個數(shù)。5D6B此題考查VB集成開發(fā)工具生成的文件的類型。min.exe是工程編譯后的可執(zhí)行文件，m

32、in.frm是窗體文件，min.vbp是VB工程文件，min.mdb是access數(shù)據(jù)庫文件。7A此題考查算法的特性，算法的特征有有窮性，確定性，有0個或多個輸入，有一個或者多個輸出。A違反了算法的有窮性。8B算法的執(zhí)行流程是指算法中各個處理步驟的執(zhí)行過程和模式，通常算法中含有順序模式，選擇模式、循環(huán)模式三種基本模式。在具體的程序設計中，通常會將這三種模式組合起來使用。9B解析算法是用解析的方法找出表示問題的前提條件與所求結論之間的數(shù)學表達式，并通過表達式的計算來實現(xiàn)問題的求解。10D此題考查的查找算法，這種查找方法是順序查找。11C此題考查對分查找的比較次數(shù)，第一次先與a(4)比較，然后與a

33、(2)比較，第三次和a(3)比較。12D此題考查的VB字符串的鏈接運算，結果是“2008”。13A此題考查對象的屬性，給對象屬性如何賦值。14D此題考查VB程序設計語言的基本運算，mod是取余運算。15B此題考查VB程序設計語言的基本運算，/是整除運算。16D此題考查VB程序設計語言的基本運算，/是除法運算。17A此題考查VB程序設計語言的基本運算，是除法運算，但Z是整數(shù)的數(shù)據(jù)類型，賦值時接受7.5整數(shù)部分，小數(shù)部分四舍五入，z的是8。18B如果用二進制的機器語言描述算法，這種方式可讀性差。算法的描述方法就是自然語言，流程圖，偽代碼。19A題干算法使用自然語言描述的。20A題干算法順序執(zhí)行。2

34、1C改程序考查VB循環(huán)語句的執(zhí)行過程，循環(huán)變量i從1開始變化到100，每次增加的步長為1，共執(zhí)行100次，x的初始值為0，然后與i依次累加，共累加100次。22D函數(shù)進行自身調用，這種方法是遞歸算法。23C這是遞歸算法求解數(shù)列f(n)f(n1)f(n2)(n>2)的算法，f(5)5。24A此題考查冒泡法排序，此題的排序方法是小數(shù)向上浮出。25B此題考查選擇排序算法的執(zhí)行過程，方法是選出最小的數(shù)交換位置。26解析此題考查利用VB解決實際數(shù)學問題的能力。程序首先將一個四位整數(shù)每一個數(shù)位上的數(shù)字取出來，然后根據(jù)水仙花數(shù)的定義，滿足定義的數(shù)字是水仙花數(shù)。答案(1)m 1000(2)a3b3c3d

35、3m(3)Next m27解析此題考查利用VB解決實際數(shù)學問題的能力。程序中設計一個標志變量flag，首先flagfalse 。假設i是素數(shù)，然后判斷n是不是i的因數(shù)，如果I mod n0，則n是i的因數(shù)，i不是素數(shù)。答案(1)n2(2)(i Mod n)0(3)nn1(4)flagFalse28解析此題考查對VB程序設計語言if條件語句的掌握情況。當商品數(shù)量在50件一下，商品每件九五折，50至100件八五折，100件以上75折。答案(1)s < 50(2)m p * s * 0.85(3)m p * s * 0.75(4)2850(5)510029解析此題考查對選擇排序算法的理解和掌握情況。答案(1)j I(2)p j(3)flag或flagtrue(4)t a(i)(5)Next i30(1)low < high And flag False(2)a(mid)<num(3)highmid 算法與程序設計(B卷)綜合檢測試題1D本題考查對基本數(shù)學函數(shù)的認識和理解。Sqr(9)是求9的算術平方根，“2”“3”是字符串連接運算，運算結果是“23”，asc(“1