山東省信息技術學考算法與程序設計試題答案附后講解.doc

山東省學考算法與程序設計試題選擇題1、下列VB表達式中：Sqr(x) Text1.text Command1.caption 45+34 45+34值為字符串類型的是（ ）A B C D2、如果給出三條線段的長分別為a、b、c，且已知abc，要問這三條線段能否構成三角形，僅需下列選項中的哪個判定條件即可？（ ）A 其他選項都不對 B a+cb C a+bc D b+ca3、VB程序中“Dim n As Integer”這條語句的作用是（ ）A 定義一個事件過程 B 定義一個數據輸入方法 C 定義一個變量 D 定義一個數據處理方法4、關于算法的描述，下列選項中正確的是（ ） A 算法的每一步驟必須有確切的含義 B 算法必須有輸入 C 算法的步驟可以是無窮的 D 算法本身就是一種程序設計語言5、關于算法的描述，正確的是（ ） A同一種算法只能用一種程序語言實現B算法就是數值計算的方法C描述算法的方法只有流程圖D算法是描述解決問題的方法和步驟6、算法的描述方法有多種，下列選項中不適合描述算法的是（ ） A機器語言 B自然語言 C流程圖 D偽代碼7、長度分別為a、b、c的三條線段，能夠組成三角形的條件是（ ）A a+bc Or a+cb Or b+ca B a+bc or a+cb And b+caC a+bc Or a+cb And b+ca D a+bc And a+cb And b+ca8、已知海倫公式：S=，其中p=（a+b+c），a、b、c分別為三角形的三條邊長。利用海倫公式求三角形面積的算法屬于（ ） A 排序法 B 解析法 C 窮舉法 D 查找法9、以下程序段中循環(huán)體執(zhí)行的次數是（ ） s=0 i=0 Do While s1的解的是（ ） A x-1 and x-1 or x1 C x1 D x111、一元二次方程ax2+bx+c=0(a0)的兩個實數根分別為： x1= x2= 下列表達式正確的是（ ）A x2=-b-sqr(b2-4*a*c)/(2*a) B x1=(-b+sqr(b2-4ac)/(2*a)C x2=(-b-sqr(b2-4*a*c)/(2*a) D x1=-b+sqr(b2-4*a*c)/(2*a)12、關于算法的描述，下列選項中正確的是（ ）A、一個算法可以沒有輸入B、算法只能用流程圖表示C、一個算法，當沒有輸入時，也沒有輸出D、一個算法的執(zhí)行步驟可以是無限的。13、如果一個4位數恰好等于它的各位數字的4次方和，則這個4位數成為“玫瑰花”數。例如1634就是一個玫瑰花數：1634=14+64+34+44。如果要求出所有的玫瑰花數，下列算法最合適的是（ ）A解析法 B排序法 C查找法 D窮舉法14、一個單窗體VB程序的運行界面如右圖所示。下列說法正確的是（ ）窗體內有1個按鈕窗體內有2個文本框窗體內有3個標簽該窗體的標題（Caption）屬性值是“加法計算器”A B C D15、下列VB程序運行時（如圖所示），在文本框Text1中輸入20，在文本框Text2中輸入13，單擊命令按鈕Command1后，文本框Text3中顯示的內容是（ ）Private Sub Command1_Click()a=Val(Text1.text)b=Val(Text2.text)Text3.text=a+bEnd SubA 33 B 33 C 2013 D 2013注意：把程序中的Val去掉，再執(zhí)行程序，看結果是否發(fā)生改變。16、在VB語言中，字符串運算符“+”和“&”的作用是把兩個或多個字符串連接成一個字符串。則表達式20+13&20+13的運算結果是（ ）A201320+13 B201333 C332013 D333317、兩個阻值為R1、R2的電阻并聯(lián)后，電路阻值R可由公式求解，下面能正確求出R的VB表達式是（ ）A B C D 18、下列問題不能用算法描述的是（ ）A求一元二次方程ax2+bx+c=0(a0)的兩個實數解B計算某班英語平均分C求方程y=2x+1的所有整數解D已知圓錐的底面半徑和高，求表面積和體積19、已知在VB語言中，int(x)函數的功能是返回不大于x的最大整數，abs(x)函數的功能是返回x的絕對值，則表達式abs(int(2.88)+int(-3.14)的值是（ ） A 0 B 2 C 1 D 520、在VB語言中表示“x屬于區(qū)間（0，1”的正確表達式是（ ）A 0x0 and x1 C 0x and x0 or x 0 x = n Mod 10 s = s + x n = n 10LoopPrint s程序運行時，輸入518，運行輸出結果是： 14 (6分)提示： 整除運算 如：23710=23 Mod 取余運算 如：237 mod 10=7分析：初始值第一步第二步第三步XX=n mod 100815SS=s+s00+80+8+10+8+1+5NN=n 1051851502、閱讀下列程序，寫出正確運行結果Dim sum As LongDim i As Longsum = 0i = 0Do While sum 10 i = i + 1 sum = sum + i * i LoopPrint sum運行結果是： 14 分析：初始值第一步第二步第三步ii =i+100+10+1+10+1+1+1Sumsum=sum+i * i00+120+12+220+12+22+32循環(huán)條件Sum 1 cnt = cnt + 1 變換次數cnt累加 If n Mod 2 = 0 Then n = n/2 Else n = n*3+1 End IfLoop5、閱讀下列程序，寫出運行結果Dim x As IntegerDim y As Integery = 0For i = 1 To 5 x = Val(InputBox(請輸入：) y = y + xNext iprint y程序運行后，依次輸入：10 20 30 40 50 運行輸出結果是： 150 分析：初始第1次第2次第3次第4次第5次第6次i0123456x01020304050不滿足條件，循環(huán)終止y 00+100+10+200+10+20+300+10+20+30+400+10+20+30+40+506、選擇算法，解決問題在使用計算機解決問題時，選擇合適的算法，是有效解決問題的關鍵。分析下面的問題，請選擇最合適的算法：(填：解析法/窮舉法/遞歸法/排序法，6分) 窮舉法 搬磚問題：100塊磚，100人搬，一個男人搬4塊，一個女人搬3塊，兩個小孩抬1塊，要求一次全搬完，問需男、女、小兒各多少人？7、選擇算法，解決問題在使用計算機解決問題時，選擇合適的算法，是有效解決問題的關鍵。分析下面的問題，請選擇最合適的算法：(填：解析法/窮舉法/遞歸法/排序法，6分) 遞歸法 猴子吃桃問題：小猴有一天摘了若干個桃子，它非常貪吃，當天就吃掉了一半還多一個，第二天接著吃剩下的桃子一半多一個，以后每天都是如此，至了第七天要吃桃子時，卻發(fā)現只剩下一個。問小猴那天一共摘了多少個桃子？8、閱讀下列程序，選出運行結果For i = 1 To 10 i控制*的行數 For j = 1 To i j控制每行*的個數 Print * ; 輸出 * -注意末尾是分號 Next j Print 輸出換行Next i運行結果是： D (填：A/B/C/D,6分)ABCD9、分析完善程序“完數”是指一個自然數恰好等于它的因子（不包含本身）之和。如6的因子為1、2、3，而6=1+2+3，因而6就是完數。再如28的因子為1、2、4、7、14，而28=1+2+4+7+14，因而28也是完數。問題：輸入一個正整數n，判斷該正整數是否為完數。要判斷一個整數n是否為完數，最簡單的方法是：求出1到n-1之間的所有因子和為sum，如果sum的值和n的值相同，則n就是完數。以下代碼是判斷n是否為完數的程序片段，請你補全代碼：（8分）Dim n As LongDim sum As Long sum用來記錄n的因子和n = InputBox(n=)For i = 1 To n - 1 求n的因子和sum If n Mod i = 0 Then sum = sum+i Next iIf sum=n Then Print n & 是完數Else Print n & 不是完數End If10、分析完善程序以下是求解一元二次方程ax2+bx+c=0(a0)的主要VB程序片段。請你補全代碼：（8分）a = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)d = b 2 - 4 * a * c 求判別式dIf d 0 Then X1 = (-b + Sqr(d) / (2 * a) X2 = (-b - Sqr(d) / (2 * a) Print x1=; X1 Print x2=; X2End IfIf d=0 Then Print x=; -b / (2 * a)End IfIf d 0 Then Print 無實數解End If11、分析解決問題VB語言中繪制圓的方法是：Circle(x,y),r格式說明：其中(x,y)為圓心坐標，r為圓的半徑。下表中算法1是在窗體中繪制以（2000，2000）為圓心，半徑依次為100、200800的8個同心圓。請補充完成算法2，使其實現與算法1相同的功能。（6分）算法1算法2Circle(2000,2000),100Circle(2000,2000),200Circle(2000,2000),300Circle(2000,2000),400Circle(2000,2000),500Circle(2000,2000),600Circle(2000,2000),700Circle(2000,2000),800Dim k As IntegerFor k = 1 To 8 Circle (2000, 2000), k * 100 Next k12、分析完善程序問題：輸入一個正整數n,判斷該正整數是否為素數（質數）。要判斷一個數n是否為素數，最簡單的方法是：統(tǒng)計2到n-1之間的所有能整除n的整數個數s，若s大于0，則n不是素數，否則就是素數。根據以上方法，完善以下程序代碼：（8分）n = Val(InputBox(n=)s = 0For i = 2 To n - 1 If n Mod i = 0 Then s = s + 1 統(tǒng)計因數個數 End IfNext iIf s = 0 Then -此處若寫s=0也是正確的 Print n & 是素數Else Print n & 不是素數End If13、分析完善程序2005年10月9日，國家測繪局正式宣布珠穆朗瑪峰的高度是8844.43米，并停用之前的數據?，F有一張白紙的厚度大約是0.08毫米，對折一次，厚度變?yōu)?.16毫米，再對折一次，厚度變?yōu)?.32毫米，每對折一次，其百度均變?yōu)閷φ矍暗膬杀?。假設這張紙有足夠大，可對折任意次，那么這張紙至少對折多少次后，其厚度將超過珠穆朗瑪峰的高度。以下是求解該問題的程序片段，請你補全代碼：（8分）Dim height As DoubleDim h As DoubleDim cnt As Longheight = 8844430 -單位為毫米h = 0.08 -單位為毫米cnt =0 Do While h height cnt = cnt + 1 h = 2*h -此處若寫h+h或h*2也是可以的LoopPrint cnt14、分析解決問題在VB語言中常用的字符串截取函數有：（6分）函數名功能示例結果Mid(s,m,n)從字符串s的第m位開始截取長度為n的子串Mid(ABCDEFG, 5, 2)EFLeft(s,n)截取字符串s左邊n個字符Left(ABCDEFG, 3)ABCRight(s,n)截取字符串s右邊n個字符Right(ABCDEFG, 2)FG假如某人身份證號碼s如果需要根據此身份證號碼求出該人的”出生年月日”。下列四個表達式中不能實現的一個 D (填A/B/C/D)。A. Mid(s, 7, 8)B. Rig