程序运行后，依次输入：36 87 51 运行后输出结果是_________________。（6分） 29、算法设计与程序实现 （拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法） 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、 写出程序中空白处表达式_______________________________。 30、算法设计与程序实现 判断车牌的单双号 【背景知识】 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。 如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（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 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 C、Val(x) Mod 2=0 D、Val(x) Mod 2 <> 0
第四套
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 的是（ ）。
A Dim x As Single B 其它三项都不对 C Dim x As Integer D Dim x As String 27、在VB中表示“x 属于区间[a,b)”的正确表达式是（ ）。
A a<=x And x
For i=1 To 10 Step 4
Print “#”; s=s+i Next i Print s
上述程序运行后，输出“#”的个数是__________；输出s的值是________。（共6分，每空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、算法设计与程序实现
拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法 换钱问题
要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下： 5元：3张 2元：38张 1元： 9张 求出所有的换钱方案。 【算法设计】
x表示5元的张数：1≦x≦20； y表示2元的张数：1≦y≦50； z表示1元的张数：1≦z≦100. 【参考程序】
Dim x AsInteger Dim y AsInteger Dim z As Integer For x=1 To20 For y=1To 50 Forz=1 To 100
If ______________Then
Print x;y;z ’x y z 之间以分号分隔 End If Nextz Next y Next x
根据上述回答下列问题：（8分，每空4分）
1、本题采用的算法是 _____________（填：解析法/枚举法/排序法/递归法）。 2、程序代码中空白处应填写的条件是 _______________（填写字母：A/B/C/D）。 A 5x + 2y + z=100 Or x+ y + z = 50 B 5x + 2y + z=100 And x + y + z = 50 C 5*x + 2*y + z=100 Or x + y + z = 50 D 5*x + 2*y + z=100 And x + y + z = 5
第五套
23、在VB中，下列属于字符串常量的是（ ）。 A cnt B3.14 C 2018 D “Visual Basic”
24、将数学表达式转化为VB表达式，下列选项正确的是（ ）。
25、以10下程序段运行后，整型变量s的值是（ ）。 s=1
Fori=1 To 10 Step 3 s=s*i Next i Print s
A 55 B 3640 C 28 D 280
26、 以下程序段运行后，整型变量max1，min1的值分别是（ ）。 a=3 b=5
max1=(a+b)/2+Abs(a-b)/2 min1=(a+b)/2-Abs(a-b)/2
27、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000