2018第一套(算法部分)
23、下列选项中，关于算法的描述正确的是（  ）。
A算法只能用自然语言描述
B算法必须在有限步骤内实现
C 算法就是一种高级程序设计语言
D算法可以有0个或多个输入，但只能有一个输出
24、下列选项中，能作为VB程序变量名的是（  ）。
A while
B 4A123
C a%c
D dist
25、以下程序段执行后，输出结果为（  ）。
c编程必背100题
  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
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
Print p
 
根据上述回答下列问题：
1、 本题采用的算法是__________（填写：解析法/查法/枚举法/排序法）。
2、 程序代码中空白处应填写的条件是____________（填写字母：A/B/C/D）.
A 3<s≦6
B 3 ≦s≦6 
C  s>3 And s<=6 
D s>3 Or s<=6
2018第二套(算法部分)
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”
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
D 3

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。