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

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以内满足a

【参考程序】

Dim a 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

Next a

1、本题采用的算法是__________（填写：解析法/ 枚举法/排序法/递归法）。

2、程序代码中空白处应填写的条件是________（填写字母：A/B/C/D）.

A a

B a

C a

D a