2017冬季补考1~5套（算法部分）

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 33 And s<=6 D s>3 Or s<=6

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分）

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新工程科技2017冬季补考1~5套（算法部分） 全文阅读和word下载服务。