第一套
7. 用计算机无法解决\打印所有素数\的问题，其原因是解决该问题的算法违背
了算法特征中的
（A）唯一性 （B）有穷性 （C）有0个或多个输入 （D）有输出
8. “和谐号”列车规定：旅客可免费携带20Kg行李，携带品的长、宽、高相加不超过130cm，对超过规定的携带品，应提前办理托运手续。用算法描述行李能否托运的处理过程，合适的算法流程是
（A）顺序模式 （B）选择模式 （C）循环模式 （D）树型模式 9. 在Visual Basic中，语句Label1.Caption = \欢迎使用本系统!\中的\是
（A）属性值 （B）属性名 （C）对象名 （D）类名 10. 某校对新入学的320名高一男生进行1000米耐久跑测试，测试成绩保留2位小数。在Visual Basic中，下列存储成绩数据的变量定义最合适的是 （A）定义320个整数型变量 （B）定义1000个整数型变量
（C）定义一个元素个数为320的一维数组，数据类型为整数型
（D）定义一个元素个数为320的一维数组，数据类型为单精度实数型 11. 在Visual Basic中，表达式12345 Mod 100的值是 （A）123 （B）45 （C）12 （D）5 12. 有如下Visual Basic程序段： For x = 10 To 1 Step -1 a(x) = x + 1 Next x
该程序段运行后数组元素a(3)的值为
（A）9 （B）8 （C）4 （D）3
13. 某校有6位学生参加学生会主席竞选，得票数依次为130，20，98，15，67，3。若采用冒泡排序算法对其进行排序，则完成第二遍时的结果是
（A）3，15，130，20，98，67 （B）3，15，20，130，98，67 （C）3，15，20，67，130，98 （D）3，15，20，67，98，130
14. 随机产生10个[1，99]中的整数，依次存储到数组变量a(1)～a(10)中。实现此功能的部分算法流程图如图所示：
图中空白处理框①和②处应填入的是
（A）① i ← i + 1 ② a(i) ← Rnd * 100 （C）① a(i) ← Int(Rnd * 100) ② i ← i + 1
B）① i ← i + 1
② a(i) ← Int(Rnd * 100) D）① a(i) ← Int(Rnd * 99) + 1 ② i ← i + 1
（（
第二套
7. 做匀加速直线运动物体的即时速度计算公式是vt = v0 + at，其中v0是初速度，a是加速度，t是时间。计算步骤有： ①用公式计算即时速度vt = v0 + at ②输入初速度v0、加速度a和时间t ③结束
④输出结果vt 其正确的顺序是
（A）②①④③ （B）①②③④ （C）④②③① （D）①④②③
8. 为找自己第一次上幼儿园时的照片，小张同学依次翻开自己的多本相册来逐张查找。这种查找方法为
（A）无序查找 （B）顺序查找 （C）对分查找 （D）随机查找
9. 某校对新入学的560名高一新生进行视力检测，视力数据保留一位小数。在Visual Basic中，下列存储视力数据的变量定义最合适的是 （A）定义5个整数型变量 （B）定义560个整数型变量
（C）定义一个元素个数为560的一维数组，数据类型为整数型
（D）定义一个元素个数为560的一维数组，数据类型为单精度实数型 10. 在Visual Basic中，表达式5678\\100的值是
（A）5 （B）56 （C）56.78 （D）567 11.下列能表示“x大于0且x小于10”的Visual Basic表达式是 （A）x > 0 Or x < 10 （B）x >= 0 And x < 10 （C）x >= 0 And x <= 10 （D）x > 0 And x < 10 12. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生\下标越界\错误时所执行的语句是 Private Sub Command1_Click() Dim a(0 To 5) As Integer
Dim i As Integer '① a(0) = 1 '② For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③ Next i
Text1.Text = Str(a(6)) '④ End Sub
（A）① （B）② （C）③ （D）④
13. 在校内跳蚤市场中，某班准备的5类商品售出的数量(单位：件)分别是8，10，4，6，3。采用冒泡排序对其进行排序，若完成第一遍时的结果是：3，8，10，4，6，则完成第二遍时的结果是
（A）3，8，10，4，6 （B）3，4，8，6，10 （C）3，4，8，10，6 （D）3，4，6，8，10 14. 在Visual Basic中，有如下程序： Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer Dim d As Integer, z As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = max(a, b) z = max(d, c)
Text4.Text = Str(d) Text5.Text = Str(z) End Sub
Function max(x As Integer, y As Integer) As Integer If x > y Then max = x Else max = y End Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text5中显示的是
（A）-5 （B）2 （C）6 （D）24
第三套
7. 下列关于算法的描述，正确的是
（A）一个算法的执行步骤可以是无限的 （B）一个完整的算法必须有输出 （C）算法只能用流程图表示
（D）一个完整的算法至少有一个输入
8. 在Visual Basic中，放入窗体中的控件被称为
（A）类 （B）事件 （C）属性 （D）对象 9. 在Visual Basic中，语句Dim x As Double所定义的变量x属于 （A）整数型 （B）单精度实数型 （C）双精度实数型 （D）长整数型 10. 在Visual Basic中，若x表示能被5整除的正整数，则下列逻辑表达式的值一定为真的是
（A）x / 5 = 0 （B）x Mod 5 = 0 （C）Int(x \\ 5) = 0 （D）5 Mod x = 0 11. 在Visual Basic中，a = -100，表达式\的值是
（A）260 （B）360-100 （C）460 （D）360100 12. 下列属于正确的Visual Basic表达式是
（A）a+b*|c| （B）b3+2 （C）2n-1 （D）2·h/g 13. 有如下Visual Basic程序段： Dim a(1 To 4) As Integer a(1) = 1
For i = 2 To 3
a(i) = 2 * a(i - 1) + 1 Next i
该程序段运行后，数组元素a(4)的值为
（A）15 （B）7 （C）3 （D）0
14. 计算某球队平均年龄的部分算法流程图如图所示，其中：c用来记录已输入球员的人数，sum用来计算有效数据之和，d用来存储从键盘输入的球员年龄值，输入0时表示输入结束。
图中空白处理框①和②处应填入的是
（A）① sum ← sum + d （B）① sum ← sum + c ② c ← c + 1 ② c ← c + 1