D 、a^2+b^2-c^2
26、在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code 的数据类型应定义为（ ）。 A Integer B Double C String D Single
27、Visual Basic程序设计语言属于（ ）。 A、汇编语言 B、自然语言 C、高级语言 D、机器语言
28、阅读程序，写出运行结果 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分）
29、算法设计与程序实现
（拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法） GDP增长问题
某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？
【算法分析】
假设n 年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。 【参考程序】
Dim p As Single ’p用于记录GDP的值
第 11 页 共 19 页
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、 写出程序中空白处表达式_______________________________。 30、算法设计与程序实现 判断车牌的单双号 【背景知识】 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。 如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。） （1）输入：AD2367 （2）输入：A8888A 输出：单号 【算法描述】 自然语言 流程图 输出：双号 (3)输入：A8963C 输出：单号 第 12 页 共 19 页
第1步：输入车牌号
第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，知道找到数字为止； 第4步：判断x 是奇数还是偶数，然后输出相应的结果。
开始
第2步：取车牌号的最后一位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 Print“双号” Else
Print“单号” End If
(提示：Mid(s,m,n)的功能：从字符创S的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)
请完善上述程序：（共8分，每空4分）
1、 根据题意，程序中空白①处应填写：_______________________________ 。 2、 根据题意，程序中空白②处应填写：______（填写字母：A/B/C/D）。 A、Val(x)\\ 2= 0 B、Val(x)Mod 2 = 1
第 13 页 共 19 页
C、Val(x) Mod 2=0 D、Val(x) Mod 2 <> 0
2017冬季补考第四套(算法)
23、一下程序段运行后，y的值是（ ）。 x=3 If x>3 Then y=2*x Else y=3*x+1 end if A 25 B 26 C 10 D 5
24、某晚会的猜数字游戏中，有100张写有1~100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。有一种方案是：第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推；若第一次猜50，提示高了，则第二次猜25，若提示还是高了，则第三次猜12，依次类推；……。这种每次缩小一半查找范围而达到迅速确定目标的算法称为（ ）。 A 顺序查找法 B 排序法 C 解析法 D 二分查找法
25、在平面直角坐标系中，设点A（x1,y1）、点B（x2，y2），则AB两点之间的距离为：
VB表达式是（ ）。 A Sqr((x1-x2^2+(y1-y2)^2) B Sqr[(x1-x2)^2+(y1-y2)^2] C Sqr((x1-x2)2+(y1-y2)2) D Sqr[(x1-x2)2+(y1-y2)2]
26、下列语句正确定义了一个单精度实型变量x 的是（ ）。 ADim x As Single
第 14 页 共 19 页
B 其它三项都不对 CDim x As Integer DDim x As String
27、在VB中表示“x 属于区间[a,b)”的正确表达式是（ ）。 Aa<=x And x
28、阅读程序，写出运行结果 Dim s As Integer Dim i As Integer s=0
For i=1 To 10 Step 4
Print “#”; s=s+i Next i Print s
上述程序运行后，输出“#”的个数是__________；输出s的值是________。（共每空3分）
29、阅读程序，写出运行结果 Dim a As Integer Dim b As Integer Dim r As Integer a=98 b=63 r=a Mod b Do While r <>0 a=b b=r r=a Mod b Loop Print b
程序运行后，输出结果为：___________________。（6分）
30、算法设计与程序实现
第 15 页 共 19 页
6分，