四、填空题（每空2分） 37. 38. 开始S←0, P←1NP<=6YS←S+2*P+1P←P+2开始输入 AB ← -2A > 12NA ← A * B输出 A Y输出S结束输出结果_______。 39 c>m开始m=10,n=5输入 cNYm=cc0 ?YNs=s+xi=i+1输出 m,n 结束 若预备输入的数据为6、5、-3、1、0、-6、输出 s结束若输入c的值为3，输出结果是__________。 8、-12、-98、5、17、，则输出结果是 ___________。

(a?b)(a?b)2a41. 将数学表达式写成VB程序设计语言表达式(2分) 。

42-43． 以下算法是用循环结构求数列1,3,5,7,9…前10项的和。完成空缺部分。（每行只能填写一个VB语句）

dim i as integer dim a as integer dim sum as integer [42] i=1

do while i<=10 [43] i=i+1 loop print sum

44-45． 见右图。从数组d[1]~d[5]，5个元素中找最小值所

数组元素下标，并输出。 A处应填写 [44] 。

输出 min开始Ai=1i<=5YBYmin=ii=i+1NN sum=sum+a

在的

B处应填写 [45] 。

46. 某绘图软件的部分指令如下：（画笔前进或后退均能画出线条）

指令名称 FD N

指令功能 画笔前移N厘米

结束BK N LT N RT N

画笔后移N厘米

画笔在原地向左方转动N度 画笔在原地向右方转动N度

补充程序中的第六行中的指令，使程序可以绘出如图所示的图形，。 第一行 FD 10 第二行 RT 90 第三行 FD 15 第四行 LT 90 第五行 _________ 第六行 LT 90 第七行 FD 5 五、VB程序设计

47. 程序完善题。该程序要实现的功能是：计算下列分段函数的值。请将程序中方框部分的程序段补充完整。（4分）

1510▲开始位置▲5

结束位置??0???y??2?1.5x???2??3xDim x As Single Dim y As Single

x?1010?x?50

x?50x = Val(InputBox(\请输入x的值：\

Print y

48. 如果一个整数是另一个整数的平方，则称该数是“完全平方数”。如：1=1×1，4=2×2，9=3×3，所以1、4、9是完全平方数。编写程序，统计100到20180之间的所有完全平方数的和。（4分）

参考答案

一、 1 C 11 B 21 B 二、

填空题

23. 40Mbps

24. HARD

选择题 2 B 12 A 3 A 13 D 4 D 14 C 5 B 15 B 6 C 16 D 7 D 17 C 8 D 18 B 9 A 19 A 10 C 20 D 22. 50KB

25. 双绞线（线 ） 三、 29 D 四、

填空题

选择题 30 D 31 A 26. 路由器(router) 27. IP

32 A 33 C 34 C 35 B 36 A 37. 21 40. 25

38. 48 39. 10 3

41. (a+b)*(a-b)/(2*a)

43. a = 2*i-1 45. d[i] < d[min]

46. BK 10

42. sum = 0 44. min = 1