2017冬季补考第一套(算法部分) 23、下列选项中，关于算法的描述正确的是（ ）。 A算法只能用自然语言描述 B算法必须在有限步骤内实现 C 算法就是一种高级程序设计语言
D算法可以有0个或多个输入，但只能有一个输出
24、下列选项中，能作为VB程序变量名的是（ ）。 A while B 4A123 C a%c D dist
25、以下程序段执行后，输出结果为（ ）。 m=29
If m Mod 3 <> 0 Then Print m & “不能被3整除” Else
Print m & “能被3整除” End If A n能被3整除 B n不能被3整除 C 29不能被3整除 D 29能被3整除
26、下列VB表达式中，值为字符串类型的是（ ）。
(1) Abs(x) (2) Text1.Text (3)”123+45” (4) Sqr(x) (5) Labell.Caption A (1)(3)(5) B (2)(3)(5) C (2)(4)(5) D (1)(2)(3)
27、在VB中，下列哪个选项是正确的赋值语句？（ ） A 2018=x B 5s=80 C a+b=c D s=s+5
第 1 页 共 19 页
28、阅读程序，写出运行结果 Dim n As Integer n=Val(InputBox(“n=”)) Do While n Mod 2=0 n=n\\2 Loop Print n
程序运行时，输入24，输出n的值是：______
29、分析并完善程序
以下是计算s=1+6+11+…+101的程序代码，请完善程序。 Dim s As Integer Dim i As Integer s=0
For i=1 To 101 Step__________ s=____________ Next i Print s
30、算法设计与程序实现 某市出租车收费标准如下：
（1）3公里内（含3公里），收费8元；
（2）超过3公里但未超过6公里部分，按1.5元/公里收费； （3）超过6公里部分，按2.25元/公里收费。
根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？ 【参考代码】 Dim s As Single Dim p As Single s=Val(InputBox(“s=”)) If s<=3 Then p=8 End If
If ______________Then p=1.5*(s-3)+8 End If If s>6 Then
p=2.25*(s-6)+1.5*3+8 End If
第 2 页 共 19 页
Print p
根据上述回答下列问题：
1、 本题采用的算法是__________（填写：解析法/查找法/枚举法/排序法）。 2、 程序代码中空白处应填写的条件是____________（填写字母：A/B/C/D）. A 3
23、设a=2，b=5，在VB中，表达式a>b And b>3的值是（A 1 B -1 C False D True
24、以下程序段运行后，x和st的值分别是（ ）。 Dim x As Integer Dim st As String x=123+678 st=”123”+”678” A 123678 “123678” B 801 “123678” C 123678 “801” D 801 “801”
第 3 页 共 19 页
）。25、用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（ ） A 平行四边形 B 菱形
C 圆角矩形 直角矩形D
26、下列选项中，能作为VB程序变量名的是（ ）。 A dim B 3ab C a*b D xy
27、以下程序段运行后， s的值是（ ）。 n=0 s=0
Do While s<=10 n=n+3 s=s+n loop A 30 B 18 C 0
第 4 页 共 19 页
D 3
28、阅读程序，写出运行结果 Dim a(10) As Integer Dim iAs Integer a(1)=1 a(2)=1 Fori=3 To 6
a(1)=a(i-1)+a(i-2) Next i Print a(6)
上述程序运行后，输出a(6)的值是_________________________。（
29、分析并完善程序
以下是计算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
30、算法设计与程序实现 勾股数
求出100以内满足a 第 5 页 共 19 页 6分）