2012年会考题之算法部分(1)

2012年会考题之算法部分（1）

班级_____________姓名_____________机号_____________ 一、选择题

1．利用计算机编写程序解决实际问题时，首先应该做的是 （A）编写程序 （B）设计算法 （C）调试程序 （D）分析问题

2．将数学表达式x3?5x?1写成Visual Basic表达式，正确的是 A）3 * x + 5 * x + 1 （B）Sqr(3 * x) + 5 * x + 1 C）x ^ 3 + 5 * x （D）x ^ 3 + 5 * x + 1

3.在Visual Basic中，如果变量poem需要存储一行诗句，那么变量poem的数据类型应该定义为 A）Single （B）Boolean （C）String （D）Integer 4．有如下的程序段：

Private Sub Command1_Click() Dim a As String, b As String a = Text1.Text b = Text2.Text Text3.Text = a + b End Sub

运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示 A） 23 （B）5 （C） 2 （D） 3 5．在Visual Basic中，某对象的属性窗口如下图所示：

该对象名是 A）Manual （B）Image1 （C）Image_1 （D）Image 6．为使左、右框内的Visual Basic程序段能实现相同的功能：

Private Sub Command1_Click() Private Sub ommand1_Click() Dim i As Integer, s As Long s = 0: t = 1 s = 0 Do While __________ For i = 1 To 5 s = s + t s = s + 2 * i - 1 t = t + 2 Next i Loop Text1.Text = Str(s) Text1.Text = Str(s) End Sub End Sub 右框内划线处的内容可以是 A）s < 9 （B）s <= 9 （C）t < 9 （D）t <= 9 7．某Visual Basic程序如下： Private Sub Command1_Click()

Dim x As Integer, c As Integer, i As Integer c = 0

For i = 1 To 12

If 12 Mod i = 0 Then c = c + 1 End If Next i

Text1.Tex = Str(c) End Sub

运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是 A）For i = 1 To 12 （B）c = c + 1 C）Next i （D）Text1.Tex = Str(c) 8．某竞猜商品价格的流程图如下图所示：

---第1页---

在这个算法中，最多有几次猜价机会 （A）1次 （B）2次 （C）3次 （D）4次 9．计算三角形面积的算法如下： ①输入三角形三边长a，b，c ②计算半周长p=(a+b+c)/2

③计算三角形面积s=Sqr(p*(p-a) * (p-b) * (p-c)) ④输出面积s 上述算法属于

（A）排序算法 （B）解析算法 （C）枚举算法 （D）查找算法 10．字符串变量a的值为“Hello,world!”，下列Visual Basic表达式的值是“world”的是

（A）Len(a, 6, 5) （B）Mid(a, 6, 5) （C）Mid(a, 7, 4) （D）Mid(a, 7, 5)

11．变量a的初值为0，在下列语句中，每执行一次能使变量a的值在5、0两数值上交替出现的是

（A） a = 5 - a （B）a = -a （C） a = a + 5 （D）a = a - 5 12．在Visual Basic中，某对象的属性窗口如下图所示：

该对象名是 （A）Label （B）Lab （C）Caption （D）Label1 13．有如下的Visual Basic程序段： s = 1

For i = 10 To Step -1 s = s * i * (i - 1) Next i

若要使语句s = s * i * (i - 1)执行5次，则循环变量i终值应为 （A） 8 （B）7 （C） 6 （D） 5 14．有如下Visual Basic自定义函数：

Function adj(a As String, n As Integer) As String

（（（（（（（ （ If Len(a) > n Then adj = a Else adj = \End Function 该函数的函数名是 （A）a （B）n （C）s （D）adj 15．某Visual Basic程序如下： Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1

For i = 2 To 10

a(i) = a(i - 1) + i List1AddItem Str(a(i)) Next i End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为 （A） 下标越界 （B） 子程序或函数未定义 （C） 溢出 （D） 类型不匹配

16．求50以内所有能被3整除的自然数之和，算法如下： ①将1赋值给变量i

②判断i除以3的余数是否为0，若是，则将该数累加到变量Sum中 ③将变量i加1，若i小于或等于50，转② ④输出变量Sum的值 ⑤结束

该算法采用的描述方法属于

（A）流程图 （B）伪代码 （C）自然语言 （D）计算机程序语言 17．在Visual Basic中，给变量a，b，c均赋值为1，则下列语句正确的是

（A）a = 1， b = 1，c = 1 （B）a = 1: b = 1: c = 1 （C）a = 1； b = 1；c = 1 （D）a = b = c = 1 18．在Visual Basic中，下列能作为变量名的是 （A）3_Click （B）My （C）Integer （D）a+y 19．产生[1，100]范围内某一随机整数的表达式是 （A）Int(Rnd * 100 + 1) （B）Int(Rnd * 98 + 2) （C）Int(Rnd * 99 + 1) （D）Int(Rnd * 99 + 2) 20．有如下Visual Basic程序段： s = 0

For i = To 2 s = s + i Next i

若要使语句s = s + i执行3次，则循环变量i初值为 （A） 0 （B） 1 （C） 2 （D） 3 21．某Visual Basic程序如下： Private Sub Text2_KeyPress(KeyAscii As Integer) End If If KeyAscii = 13 Then

Next i Text1.Text = Text2.Text End Sub

End If 运行该程序，在文本框Text1中输入chenf@163.com，单击命令按钮End Sub

Command1，在标签Label1中显示的是__________。 程序运行时，能触发该事件过程的是

3.有如下Visual Basic程序段： （A）单击文本框Text1 （B）单击文本框Text2

a = 4 （C）文本框Text1被激活后，用户在键盘上按下某一个键 b = 3 （D）文本框Text2被激活后，用户在键盘上按下某一个键 c = 1

22．有如下Visual Basic程序段： c = b * b - 4 * a * c m = a(1) s = Abs(c)

i = 2

该程序段运行后，变量s的值为_________。 Do While i <= 10

4.有如下Visual Basic程序： If m < a(i) Then m = a(i) Private Sub Command1_Click() i = i + 1 Dim a As Integer, b As Integer Loop

a = Val(Text1.Text) 该程序段执行后，变量m中存储的是 If a Mod 2 = 0 Then A）a(1)至a(10)中的最大值 （B）a(1)至a(10)中的最小值 b = a + 1

C）a(2)至a(10)中的最大值 （D）a(2)至a(10)中的最小值 ElseIf a Mod 3 = 0 Then 23．某Visual Basic程序如下： b = a + 2

Private Sub Command1_Click() ElseIf a Mod 5 = 0 Then Dim a As String b = a + 4 a = \

Else a = Chr(Asc(a) - 32) b = a Label1.Caption = a End If

End Sub

Label1.Caption = Str(b) 运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，End Sub

此时程序正执行的语句是 运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在A）a = \（B）End Sub 标签Label1中显示的是__________。 C）a = Chr(Asc(a) - 32) （D）Label1.Caption = a 5.有如下Visual Basic程序段： 二、设计题：

x = 12.6 1.有如下Visual Basic程序段： x = x + 0.5 x = 2010 : y = 2.6 y = x * 10 s = Fix(x + y)

s = y \\ 10

该程序段运行后，变量s的值为_________。 该程序段运行后，变量s的值为_________。 2.有如下Visual Basic程序： 6.有如下Visual Basic程序段： Private Sub Command1_Click() a = 11 : b = a + 1.6 Dim a As String, i As Integer s = Int(a + b)

a = Text1.Text

该程序段运行后，变量s的值为_________。

For i = 1 To Len(a)

If Mid(a, i, 1) = \

Label1.Caption = Mid(a, 1, i - 1)

---第2页---

（（（（