2018信息技术考试题算法.docx

2018 第一套(算法部分) 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) (3)”123+45” (4) Sqr(x) (5) 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 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 元； 超过 3 公里但未超过 6 公里部分，按元/公里收费； 超过 6 公里部分，按元/公里收费。 根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元 【参考代码】 Dim s As Single Dim p As Single s=Val(InputBox(“s=”)) If s=3 Then p=8 End End If If Then p=*(s-3)+8 End If If s6 Then p=*(s-6)+*3+8 End If Print p 根据上述回答下列问题： 1、 本题采用的算法是 （填写：解析法/查找法/枚举法/ 排序法）。 2、 程序代码中空白处应填写的条件是 （填写字母： A/B/C/D）. A 3s≦6 B 3 ≦s≦6 C s3 And s=6 D s3 Or s=6 2018 第二套(算法部分) 23、设 a=2，b=5，在 VB 中，表达式 ab And b3 的值是（ ）。A 1 -1 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” 25、用流程图表示条件“AB”是否成立，要用到以下哪个图形（ ） A 平行四边形 菱形 圆角矩形 直角矩形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 30 18 0 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)的值是 。 （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 以内满足 ab 的所有勾股数。 【参考程序】 Dim a As Integer Dim b 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