For i=3 To 6

a(1)=a(i-1)+a(i-2) Next i Print a(6)

上述程序运行后，输出a(6)的值是_________________________。（6分） 2.分析并完善程序

以下是计算s=1*2*3*…*10的程序代码，请补全程序。（6） Dim s As Long Dim i As Integer s=__________ For i=1 To 10

s=__________ Next i Print s

3.算法设计与程序实现 勾股数

求出100以内满足a

Dim a As Integer Dim b As Integer Dim c As Integer For a=1 To 100 For b=1 To 100 For c=1 To 100 If ________Then

Print a;b;c End If Next c Next b Next a

1.本题采用的算法是__________（填写：解析法/ 枚举法/排序法/递归法）。 2.程序代码中空白处应填写的条件是________（填写字母：A/B/C/D）. A.a

信息技术合格考复习题 算法（八）

一、选择题

1.下列选项中，能作为VB程序变量名的是（ ）。

A. s+1 B.3stu C.true D.s1

2.下列哪个程序段的运行结果如图所示？（ ）

****** ****** ****** ******

for i=1 to5

for j=1 to 6 Print” *” next j print next i

B . for i=1 to5

for i=1 to 6 print” *” next i print next i

C. for i=1 to5

For j=1 to 6 Print” *” next j print next j

D. for i=1 to5

For j=1 to 6 Print” *” next j print next i

3.在VB中，Int(x) 函数的功能是返回不大于x的最大整数，设a=3 ，b=4，c=5，则下列表达式的运算结果中值最大的是（ ）。

A. Sqr(c) B.Abs(a-b) C.Int(2*a-c/b) D.a^2+b^2-c^2

4.在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code 的数据类型应定义为（ ）。

A.Integer B.Double C.String D.Single 5.Visual Basic程序设计语言属于（ ）。

A.汇编语言 B.自然语言 C.高级语言 D.机器语言 二、操作题

1.阅读程序，写出运行结果 Dim i As Integer Dim x As Integer Dim y As Integer y=30

For i=1 To 3

x=Val(InputBox(“x=”)) If y< x Then y=x End If Next i Print y

程序运行后，依次输入：36 87 51 运行后输出结果是_________________。（6分） 2.算法设计与程序实现

（拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法）

GDP增长问题: 某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？ 【算法分析】

假设n 年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。 【参考程序】

Dim p As Single ’p用于记录GDP的值

Dim r As Single ’r用于记录GDP的年增长比例 Dim n As Integer ’n用于统计年数 p=6.7 r=0.07 n=0

Do While_________ p=p*(1+r) n=n+1 Loop

Print n & ”年后，GDP的值超过15万亿元。” 根据上述回答下列问题：（共6分，每空3分）

(1)本题采用的算法是______________（填写：解析法/枚举法/排序法/递归法）。 (2)写出程序中空白处表达式_______________________________。 3.算法设计与程序实现 判断车牌的单双号 【背景知识】

为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。） （1）输入：AD2367 输出：单号 自然语言 （2）输入：A8888A 输出：双号 (3)输入：A8963C 输出：单号 流程图 第1步：输入车牌号 开始 第2步：取车牌号的最后一位x； 第3步：判断x是否为数字，如果是，转第 4步；如果不是，则依次取得倒数第二、 三……位判断，知道找到数字为止； 第4步：判断x 是奇数还是偶数，然后输出相应的结果。 【算法描述】

请根据上述算法描述补全代码 Dim n As Integer

Dim s As String ’定义s 为字符串类型 Dim x As String

s=InputBox(“s=”,s) ‘将输入的车牌号赋值给s

n=6 ‘车牌号的长度为6

x=Mid(s,n,1) ‘取车牌号s的第n位

Do While x<”0” Or x>”9” ‘x不是数字字符，则取x的前一位 _______①_______

x=Mid(s,n,1) ‘取车牌号s的第n位 Loop

If _______②_______then