（A）顺序模式 （B）选择模式 （C）循环模式 （D）树型模式
９．在Visual Bascic中， 要定义一个数组 a， 用于存储100个整数型数值，则正确的数组定义语句是：（ ）
（A）Dim a100 As Integer （B）Dim a(1-100) As Integer （C）Dim a(1，100) As Integer （D）Dim a(1 To 100) As Integer 10. 在 Visual Basic 中，表达式 Sqr(9)的值是（ ） （A）-3 （B）3 （C）9 （D）81
11．在 Visual Basic 工程设计中， 要在文本框Text1 中显示“你好”，则下列操作正确的是（ ）
（A）在 Text 属性名中输入“你好” （B）在 Caption 属性名中输入“你好” （C）在 Font 属性名中输入“你好” （D）在 Name 属性名中输入“你好” 12. 如果以下是一个完整的 Visual Basic For语句 ，则划线处的语句应该是（ ） For i=1 To 10 a=a+i ________
（A）Loop （B） End For （C） Next i （D）End
13．下列能表示“x小于10 且 y 大于 0”的 Visual Basic 逻辑表达式是（ ） （A）x<10 And y>0 （B）x<10:y>0 （C）x<10 Or y>0 （D）x<10,y>0
14．Visual Basic 函数Fix(x)的作用是截掉数据的小数部分。已知 a是实数，当关系表达式Fix(a)=a 为真时，则表示 a 是（ ）
（A）负数 (B)正数 (C) 整数 (D)小数
四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）
1．有如下 Visual Basic 程序段： a=15 b=5 a=a-b
该程序段运行后，变量 a 的值是___10________。 2．有如下 Visual Basic 程序段： x=110
If x>100 Then
Label1.Caption = \你超速了!\Else
Label1.Caption = \你没超速! \End If
该程序段运行后, Label1 标签上显示为__你超速了!_________。
3．下面 Visual Basic 程序的功能是：计算表达式 1×2+3×4+5×6+7×8+9×10 的值。运
行该程序后，语句 sum=sum+i*(i+1)共执行了 5 次。 Private Sub Command1_Click()
Dim sum As Integer， i As Integer sum = 0
For i = 1 To 9 Step 2
sum = sum + i * (i+1) Next i
Text1.Text=Str(sum) End Sub
4. 哥哥考弟弟一道数学题，题目是：“有一筐鸡蛋，2 个 2 个数多 1 个，3 个 3 个数多 2个，4 个 4 个数多 3 个，5 个 5 个数正好数完，问这筐鸡蛋最少是几个？”
为解决此问题，弟弟编了一个如下 Visual Basic 程序，其中 s 表示鸡蛋数，t 用于控制循环。但此程序存在两处错误，已分别用划线及①、②标注。请改正这二处错误，并将正确内容按顺序填写在程序下方①和②划线处。 Private Sub Command1_Click()
Dim s As Integer, t As Boolean s = 5 t = False
Do While Not t
s = s + 1
t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '① Next '②
Text1.Text = Str(s) End Sub
程序中划线处①改为 ( s Mod 5 = 0 ) 程序中划线处②改为 LOOP
算法与程序设计题（第七套）
一、选择题（本题有 14 小题，每小题 3 分，共 42 分。选出各题中一个符合题意的正确选项，不选、、多选、错选均不给分。）
1.多媒体信息数字化后数据量很大，为了提高存储、处理和传输效率，需要对这些数据进行压缩，下列压缩标准用于音频压缩的是（ ）
（A）JPEG B)MPEG-1 C)MPEG-2 (D)MP3 2．十进制数10 转换成二进制数是（ ）
（A）(10)2 （B）(1001) 2 （C）(1010)2 （D）(1011)2 3．下列主要用于网页浏览的软件是（ ）
（A）Word （B）Excel （C）Intern Explorer （D）Access 4．下列描述算法的流程图符号中属于开始、结束框符号的是（ B ）
5．要将明天的天气情况告诉公众，下列信息表达方式不恰当的是（ ） （A）将气象信息印刷成书 （B）通过电视发布信息 （C）通过广播发布信息 （D）通过特定的网站发布
6．把电子邮件发送到收件人的电子信箱中，所采用的邮件传输协议是（ ） （A）FTP （B）TCP/IP （C）POP3 （D）SMTP
7.只能被1 或本身整除的大于 1 的自然数称为素数。判断大于1 的某自然数m 是不是素数的算法基本思想是：把 m 作为被除数，将 2 到 m-1 中的自然数作为除数，逐一进行相除，如果都除不尽，m就是素数，否则 m 就不是素数。这种判定素数的算法主要属于（ ） （A）枚举算法 （B）解析算法 （C）递归算法 （D）排序算法 8.小王同学星期天的计划是：“8:00 起床、吃早餐，10:00 至 11:30 学习，12:30 看一部电影，14:30打篮球”。用算法描述这一计划，合适的算法结构是（ ）
（A）顺序模式 （B）选择模式 （C）循环模式 （D）树型模式 9. 在 Visual Basic 中，表示字符串型的数据类型名是（ ） （A）Long （B）Integer （C）String （D）Boolean 10．在 Visual Basic 中，求实数 x 的算术平方根的函数是（ ） （A）Int(x) （B）Sqr(x) （C）Abs(x) （D）Log(x) 11.在 Visual Basic代码窗口中，语句Book1.Text=\操作系统\中的Book1是（ ） （A）属性名 （B）属性值 （C）窗口名 （D）对象名
12．如果以下是一个完整 Visual Basic 块 If 语句，则划线处的语句应该是（ ） If a>b Then max=a Else
max=b ________
（A）End （B）End Sub （C）End If （D）If End
13．下列属于正确的 Visual Basic 表达式（ ）
（A）2ab （B）2×a×b （C）2·a·b （D）2*a*b
14．在 Visual Basic中，已知 a、x、y 均是正整数，当逻辑表达式(a mod x = 0) And (a mod y=0)为真时，则表示（ ）
（A） a 是 x 的倍数但不是y的倍数 （B）a 既是 x 的倍数，也是 y 的倍数
（C） a 是 x 的倍数或者是 y 的倍数 （D） a 既不是 x 的倍数，也不是 y 的倍数
四、程序设计题（本题有 4 小题，第 1－3 小题，每小题 4 分，第 4 小题 6 分，共 18 分）
1． 有如下 Visual Basic 程序段： a=8 b=10 b=a*b/2
该程序段运行后，变量 b 的值为 40 。 2．有如下 Visual Basic 程序段： a=5 b=10 max=a
If b>max Then max=b
该程序段运行后，变量 max 的值为 10 。
3．下面程序的功能是：计算表达式 1×2×3×??×10 的值，并在文本框 Text1 中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为____t=1______________。 Private Sub Command1_Click()
Dim i As Integer， t As Long t=0 For i=1 To 10
t=t*i Next i
Text1.Text=Str(t) End Sub
4．我国是人口大国，2007 年初，我国人口总数已达 13 亿 5千万。假设我国年人口增长率为 0.5%，则从 2007 年起多少年后我国人口就会达到或超过 15 亿？
解决此问题的流程图如 VB-1 所示。根据流程图VB-1 编写的 Visual Basic 程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_click()
Dim n As Integer, r As Single Dim p As Double r = 0.5/100 p = 13.5
