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

A ．算法与程序设计

一、选择题（本大题共17小题，每题2分，共34分） 1.下列问题不能用算法描述的是

A.已知a 、b 、c 的值，求一元二次方程ax 2+bx+c=0（a ≠0）的实数解

B.计算某个班级英语成绩的平均分

C.列出方程y=2x+1的所有实数解

D.根据矩形的长和宽求面积 2.下列可以作为VB 变量名的是 A. A&s B. A+S C. AS D. A_s 3.将数学表达式

2

||

y x x

写成VB 表达式正确的是 A.（y – Int （x ））/x*x B.（y – Abs （x ））/x^2 C.（y – Int （x ））/x^2 D.（y – Abs （x ））/ x*x

4. 某宾涫的房间号由5位字符组成（例如A0823表示A 幢8层23号房间）末位数字为奇数时表示房间朝南，为偶数时表示房间朝北，字符串变量s 中存储了1个房间号，下列能正确判断房间朝南的VB 表达式是 A.V al （Mid （s ，5，1））Mod 2 = 1 B. Val （Mid （s ，5，1））Mod 2 = 0 C. Val （Mid （s ，5，1））\ 2 = 1 D. V al （Mid （s ，5，1））\ 2 = 0

5.下列VB 表达式中：①Sin （x ） ②Text1.Text ③Label1.Caption ④Chr （x ） ⑤Asc （x ） 值为字符串型的是

A. ①③⑤

B. ①②③

C. ②④⑤

D. ②③④ 6．下列能准确表达“如果明天不下雨，那久我们骑车去郊游”的伪代码是 A ．lf （明天下雨）Then （我们骑求去郊游）

B ．If （明天不下雨）Then （我们骑车去郊游）Else （我们不去郊游）

C ，If （明天下雨）Then （我们不去郊游）Else （我们骑车去郊游）

D ．lf （明天不下雨）Then （我们骑车去郊游） 到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 = 0 8.某VB 的事件过程如下： Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) a = 2 * a + 1

Text1.Text = Str(a) End Sub

程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是 A. 7 B.5 C. 3 D. 1

9.对数组元素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) = t

Next m

方框中的语句是

A. If a(n) < a(p) Then p = m

B. If a(n) < a(p) Then p = n

C. If a(n) > a(p) Then p = n

D. If a(n) > a(p) Then p = m

10.有如下VB程序段：

Dim i As Integer, c As String, s As String, t As String

s = "2012 Hero": t = ""

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "a" And c <= "z" Then t = t + c

Next i

Text1.Text = t

程序运行后，文本框Text1中显示的内容是

A. 2012

B.Hero

C. ero

D. 2012 H

11.下列能表示矩形、圆、椭圆等形状的控件是

A. 标签

B.简单图形

C. 文本框

D. 命令按钮

12.一个VB工程的部分设计界面如右图

所示。下列说法：

①工程文件名是“工程1.vbp”

②该工程只有1个窗体

③窗体文件名是“MyForm”

④窗体名称是“对象识别”

A. ①②

B.②③

C. ①③

D. ②④

13.有两组数据：

①54,31,43,12,8,73,56,34,89,60,23,67

②87,83,75,70,63,59,55,37,33,21,17,7

下列有关查找方法描述不正确的是

A. ①可以直接使用顺序查找

B.②可以直接使用对分查找

C. ①可以直接使用对分查找

D. ②可以直接使用顺序查找

二、综合题：本大题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 Integer

a = Val(Text1.Text)

x = Sqr(a)

b = Int(x)

Text2.Text = Str(a + b)

End Sub

15.下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(1) ，文本框Text2中显示的内容是(2) 。

Private Sub Command1_Click()

Const n = 4

Dim a(1 To n) As Integer, s As Integer

Dim i As Integer, t As Integer, k As Integer

a(1) = 1: a(2) = 2: a(3) = a(1): a(4) = 0

s = 0: k = 0

For i = 1 To n

t = a(i)

a(i) = k + t

k = t

s = s + a(i)

Next i

Text1.Text = Str(a(2))

Text2.Text = Str(s)

End Sub

16.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。程序运行界面如右图所示。按此要求编写的程序如下：

Private Sub Command1_Click()

Dim a As Single, b As Single

Dim c As Single, st As String

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If Not (a + b > 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 = "可以构成一个直角三角形"

ElseIf ①Then

st = "可以构成一个等边三角形"

Else

st = "可以构成一个不等边斜三角形"

End If

Label1.Caption = ②

End Sub