高考算法與程序設計試題及答案

1、-作者xxxx-日期xxxx高考算法與程序設計試題及答案【精品文檔】A算法與程序設計一、選擇題（本大題共17小題，每題2分，共34分）A.已知a、b、c的值，求一元二次方程ax2+bx+c=0（a0）的實數(shù)解C.列出方程y=2x+1的所有實數(shù)解A. A&s B. A+S C. AS D. A_s寫成VB表達式正確的是A.（y Int（x）/x*x B.（y Abs（x）/x2C.（y Int（x）/x2 D.（y Abs（x）/ x*x4. 某賓涫的房間號由5位字符組成（例如A0823表示A幢8層23號房間）末位數(shù)字為奇數(shù)時表示房間朝南，為偶數(shù)時表示房間朝北，字符串變量s中存儲了1個房

2、間號，下列能正確判斷房間朝南的VB表達式是A.Val（Mid（s，5，1）Mod 2 = 1 B. Val（Mid（s，5，1）Mod 2 = 0C. Val（Mid（s，5，1） 2 = 1 D. Val（Mid（s，5，1） 2 = 0VB表達式中：Sin（x） Text1.Text Label1.Caption Chr（x） Asc（x）值為字符串型的是A. B. C. D. 6下列能準確表達“如果明天不下雨，那久我們騎車去郊游”的偽代碼是 Alf（明天下雨）Then（我們騎求去郊游） BIf（明天不下雨）Then（我們騎車去郊游）Else（我們不去郊游） C，If（明天下雨）Then（

3、我們不去郊游）Else（我們騎車去郊游） Dlf（明天不下雨）Then（我們騎車去郊游）7.尋找數(shù)組元素a(1)到a(10)中最小值min程序段如For i = 2 To 10 If a（i）< min Then min = a(i)Next i方框中最合適的語句是A. a（1）= min B. a（1）= 0 C. min = a(1) D. min = 08.某VB的事件過程如下：Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) a = 2 * a + 1 Text1.Text = Str(a)End

4、Sub程序運行時，在文本框Text1中輸入1，連續(xù)兩次單擊命令按鈕Command1后，Text1中顯示的內容是A. 7 B.5 C. 3 D. 19.對數(shù)組元素a(1)到a(8)進行排序，其排序算法的VB部分程序段如下：For m = 1 To 7 p = m For n = m + 1 To 8 Next n If p <> m Then t = a(p): a(p) = a(m): a(m) = tNext m方框中的語句是A. If a(n) < a(p) Then p = m B. If a(n) < a(p) Then p = nC. If a(n) >

5、 a(p) Then p = n D. If a(n) > a(p) Then p = m10.有如下VB程序段：Dim i As Integer, c As String, s As String, t As Strings = "2012 Hero": t = ""For i = 1 To Len(s)c = Mid(s, i, 1)If c >= "a" And c <= "z" Then t = t + cNext iText1.Text = t程序運行后，文本框Text1中顯示的內容是A

6、. 2012 C. ero D. 2012 H11.下列能表示矩形、圓、橢圓等形狀的控件是A. 標簽 B.簡單圖形C. 文本框 D. 命令按鈕12.一個VB工程的部分設計界面如右圖所示。下列說法：工程文件名是“” 該工程只有1個窗體 窗體文件名是“MyForm” 窗體名稱是“對象識別”A. B. C. D. 13.有兩組數(shù)據：54,31,43,12,8,73,56,34,89,60,23,6787,83,75,70,63,59,55,37,33,21,17,7下列有關查找方法描述不正確的是A. 可以直接使用順序查找 B. 可以直接使用對分查找C. 可以直接使用對分查找 D. 可以直接使用順序查

7、找二、綜合題：本大題5小題，其中第14小題2分，第15題4分，第16題5分，第17題4分，第18題4分，共19分。14.下列VB程序運行時，在文本框Text1中輸入10，單擊命令按鈕Command1后，文本框Text2中顯示的內容是 。Private Sub Command1_Click()Dim x As Single, a As Integer, b As Integera = Val(Text1.Text)x = Sqr(a)b = Int(x)Text2.Text = Str(a + b)End Sub15.下列VB程序運行時，單擊命令按鈕Command1后，文本框Text1中顯示的內

8、容是 (1) ，文本框Text2中顯示的內容是 (2) 。Private Sub Command1_Click()Const n = 4Dim a(1 To n) As Integer, s As IntegerDim i As Integer, t As Integer, k As Integera(1) = 1: a(2) = 2: a(3) = a(1): a(4) = 0s = 0: k = 0For i = 1 To n t = a(i) a(i) = k + t k = t s = s + a(i)Next iText1.Text = Str(a(2)Text2.Text = St

9、r(s)End Sub16.現(xiàn)要求編寫VB程序實現(xiàn)如下功能：分別在文本框Text1、Text2和Text3中輸入三條線段的長度，單擊“判斷”按鈕Command1后，在標簽Label1中顯示判斷結果。程序運行界面如右圖所示。按此要求編寫的程序如下：Private Sub Command1_Click()Dim a As Single, b As SingleDim c As Single, st As Stringa = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If Not (a + b > c And b + c >

10、 a And c + a > b) Then st = "這三條線不能構成一個三角形"ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = "可以構成一個直角三角形"ElseIf Then st = "可以構成一個等邊三角形"Else st = "可以構成一個不等邊斜三角形"End IfLabel1.Caption = End Sub（1）請在劃線處填入合適代碼（2）下列表達式與“Not

11、 (a + b > c And b + c > a And c + a > b)”等價的是 （填字母）。A. a + b <= c Or b + c <= a Or c + a <= bB. a - b <= c And b - c <= a And c - a <= bC. a + b <= c And b + c <= a And c + a <= b17.在一行數(shù)據（1,23,6,2,4,5,6,18,5,19）中，存在連續(xù)遞增的數(shù)據序列（1,23）、（6）、（2,4，5,6,18）、（5,19），其序列長度分別為2

12、、1、5、2，則連續(xù)遞增的數(shù)據序列長度最大值max=5。尋找max的方法如下：從第二個數(shù)據開始，將該數(shù)與它的前一個數(shù)比較，如果該數(shù)大于它的前一個數(shù)，則kk+1，否則k1，；直到最后一個數(shù)據處理完成為止。在此過程中將k的最大值保存在變量max中。依據上述算法描述編寫的VB程序如下，但加框處代碼有錯，請改正。Const n = 10Dim a(1 To n) As Integer'Text1_KeyPress 過程用于輸入數(shù)據并將數(shù)據依次存放到數(shù)組a中Private Sub Text1_KeyPress(KeyAscii As Integer)'該過程代碼略End SubPriva

13、te Sub Command1_Click()Dim i As IntegerDim k As Integer '連續(xù)遞增的數(shù)據序列長度Dim max As Integer '連續(xù)遞增的數(shù)據序列長度最大值max = 1k = 1For i = 2 To n If a(i) > a(i + 1) Then k = k + 1 Else k = 1'（1） If k > max Then k = max'（2）Next iText2.Text = Str(max)End Sub的圖像如下圖所示。 從圖像中觀察得到，在0,4區(qū)間內，分別存在一個局部極大點P

14、（在P附近的函數(shù)值都小于f（P）和局部極小點Q（在Q附近的函數(shù)值都大于f（Q）。尋找P和Q近似值的方法如下：在0,4區(qū)間內，每隔e（e=0.001）取一個值逐一枚舉，如果找到某個值x，能同時滿足f（x）> f（x-e）和f（x）> f（x+e），在x可作為P的近似值；如果找到的某個值x，同滿足f（x）< f（x-e）和f（x）< f（x+e），則x可作為Q的近似值。請仔細閱讀和分析尋找P、Q近似值的方法和下列VB程序，在劃線處填入合適代碼，將下列程序補充完整。'函數(shù)f用于計算f（x）的值Function f(x As Single) As Single f =

15、(1) End FunctionPrivate Sub Command1_Click()Dim a As Single, b As Single, c As Single, x As Singlea = f(-e): b = f(0)For x = 0 To 4 Step e c = f(x + e) If b > a And b > c Then Label1.Caption = "當x=" + Str(x) + "時，函數(shù)的極大值的近似值=" + Str(b) End If If (2) Then Label2.Caption = "當x=" + Str(x) + "時，函數(shù)的極小值的近似值=" + Str(b) End If a = b: b = cNext xEnd Sub第卷  選考模塊（共45分）A算法與程序設計一、選擇題：本大題13小題，每小題2分，共26分。題號l2345678910111213答案CDBADDCABCBAC二、綜