高考算法与程序设计试题及答案

1、.A算法与程序设计一、选择题（本大题共17小题，每题2分，共34分）1.下列问题不能用算法描述的是A.已知a、b、c的值，求一元二次方程ax2+bx+c=0（a0）的实数解B.计算某个班级英语成绩的平均分C.列出方程y=2x+1的所有实数解D.根据矩形的长和宽求面积2.下列可以作为VB变量名的是A. A&s B. A+S C. AS D. A_s3.将数学表达式写成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号房间）末位数字为奇数时表

2、示房间朝南，为偶数时表示房间朝北，字符串变量s中存储了1个房间号，下列能正确判断房间朝南的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 = 05.下列VB表达式中：Sin（x） Text1.Text Label1.Caption Chr（x） Asc（x）值为字符串型的是A. B. C. D. 6下列能准确表达“如果明天不下雨，那久我们骑车去郊游”的伪代码是 Alf（明天下雨）Then（我们骑求去郊游） BIf（明天不下雨）Then（我们

3、骑车去郊游）Else（我们不去郊游） C，If（明天下雨）Then（我们不去郊游）Else（我们骑车去郊游） Dlf（明天不下雨）Then（我们骑车去郊游）7.寻找数组元素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 *

4、 a + 1 Text1.Text = Str(a)End Sub程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是A. 7 B.5 C. 3 D. 19.对数组元素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 = n D.

5、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 c And b + c 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 = 可以

6、构成一个直角三角形ElseIf Then st = 可以构成一个等边三角形Else st = 可以构成一个不等边斜三角形End IfLabel1.Caption = End Sub（1）请在划线处填入合适代码（2）下列表达式与“Not (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 a(i + 1) Then k = k +

7、1 Else k = 1（1） If k max Then k = max（2）Next iText2.Text = Str(max)End Sub18.三次函数的图像如下图所示。 从图像中观察得到，在0,4区间内，分别存在一个局部极大点P（在P附近的函数值都小于f（P）和局部极小点Q（在Q附近的函数值都大于f（Q）。寻找P和Q近似值的方法如下：在0,4区间内，每隔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） a And b c Then Label1.Caption = 当x= + Str(x) + 时，函数的极大值的近似值= + Str(b) End If If (2) Then Label2.Caption = 当x= + Str(x) + 时，函数的极小值的近似值= + Str(b) End If a = b: b = cNext xEnd Sub第卷选考模块（共45分）A算法与程序设计一、选择题：本大题13小题，每小题2分，共26分。题号l2345678910111213答案CDBADDCABCBAC二、综合题：本大题5小题，其中第14小题2分，第15小题4分，第16小题5分，第17小题4