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

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

2017冬季补考第二套（算法）

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 ”是否成立，要用到以下哪个图形？（ ）

第 6 页 共 19 页

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

第 7 页 共 19 页

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

第 8 页 共 19 页

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

C a

2017冬季补考第三套（算法）

23、下列选项中，能作为VB程序变量名的是（ ）。 A 、s+1 B 、3stu C 、true D 、 s1

24、下列哪个程序段的运行结果如图1所示？（ ）

第 9 页 共 19 页

****** ****** ****** ****** 图1 A 、 for i=1 to5 For j=1 to 6 Print” *” next j print next i B 、 for i=1 to5 for i=1 to 6 print” *” next i print next i C、

for i=1 to5 For j=1 to 6 Print” *” next j print next j D、

for i=1 to5 For j=1 to 6 Print” *” next j print next i

25、在VB中，Int(x) 函数的功能是返回不大于x的最大整数，设a=3 ，b=4，c=5，则下列表达式的运算结果中值最大的是（ ）。 A 、 Sqr(c) B、 Abs(a-b) C 、 Int(2*a-c/b)

第 10 页 共 19 页