2010会考试题第九套

第九套

7、计算梯形面积的算法描述如下： ①输入上底a、下底b和高h

②计算梯形面积s(计算公式为：s=(a+b)*h/2) ③输出结果 ④结束 上述算法属于

（A）解析算法（B）排序算法（C）递归算法（D）枚举算法

8、在Visual Basic中，要在窗体中的标签对象Label1上显示文字\请输入验证码：\，应改变的标签对象属性是

（A）Width （B）Font （C）Caption （D）Top

9、有如下Visual Basic程序段： Private Sub Label1_DblClick() Dim x As Integer, y As Integer x = 5 y = 15

Text1.Text = Str(x + y) End Sub

能运行这段程序的事件是

（A）单击命令按钮Command1 （B）单击标签Label1 （C）双击标签Label1 （D）单击文本框Text1

10、在Visual Basic中，表达式Fix(1.8)的值是 （A）2 （B）1.8 （C）1 （D）0.8

11、以下Visual Basic程序段是一个完整的Do语句，则划线处的语句应该是 Do While n < 10 n = n + 3 s = s * n _______

（A）Loop （B）End Do （C）End Sub （D）Next n

12、在Visual Basic中，设整型变量x、y的值分别是2、 16，则能在文本框Text1中显示“a = 18”的语句是 （A）Text1.Text = \ （B）Text1.Text = \（C）Text = \

（D）Text1.Text = \

13、篮球联赛中，有5个班级的比赛积分依次为14，11，13，8，9。 若采用冒泡排序算法对其进行从小到大排序，则完成第二遍时的结 果是

（A）8，11，13，14，9 （C）8，9，14，11，13

14、有一数列1，2，3，5，8，13，……，从第3项起，每项等于它相邻的前2项之和。求在该数列中第一个超过1000的数是第几项。解决此问题的部分算法流程图如图所示：

图中空白处理框①和②处应填入的是

（A）① b ← a （B）① i ← i + 1 ② i ← i + 1

② b ← a

（B）8，9，13，14，11 （D）14，13，11，9，8

（C）① a ← c （D）① i ← i + 1 ② i ← i + 1

算法与程序设计题

1、有如下Visual Basic程序段： b = Len(\s = Mid(\

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

2、有如下Visual Basic程序段： x = 100 s = 10

② a ← b

If x > s Then s = s + x Text1.Text = Str(s)

该程序段运行后，在文本框Text1中显示的是____________。

3、有如下Visual Basic程序段：

Dim a As Integer, b As Integer, c As Integer a = 20 b = 0 c = 2

Do While a > b And a > c b = b + 1 c = c + b Loop

问：该程序段运行后，

（1）语句“b=b+1”执行的次数为__________。 （2）变量c的值为____________。

4、学校\电脑周\活动已经结束，林敏在班里举行了一个\我最关注的竞赛项目\的投票活动，她设计了一个Visual Basic程序，把所有同学的投票情

况输入到电脑里，先将各项目得票数和项目名分别保存在数组a和数组b中，第i个项目的得票数保存在a(i)中，对应的项目名保存在b(i)中。

程序界面如图所示，左边列表框List1中显示同学评选的原始数据，单击\得票统计\按钮（Command1），所有得票数从高到低显示在列表框List2中。

解决此问题的算法流程图如图所示，排序部分的程序段如下： Dim a(1 To n) As Single Dim b(1 To n) As String

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String For i = 1 To n-1 k = i

For j = i + 1 To n

If a(k) < a(j) Then ① Next j If k <> i Then x = a(i) a(i) = a(k) a(k) = x y = b(i) b(i) = b(k) b(k) = y ② Next i For i = 1 To n

List2.AddItem Str(a(i)) + \ \Next i End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略 End Sub

（1）解决此问题用的算法是________________。 （选填：选择排序 或 冒泡排序） 在程序①和②划线处，填入适当的语句或表达式，把程序补充完整： （2）程序中①划线处应填入_______________。 （3）程序中②划线处应填入_______________。

' 假设共有n个竞赛项目