Next Print c 37. 该算法的运行结果是 。 Dim x as integer Dim s as long s=0 x= inputbox(“ 输入x”) do while x <> 0 s= s+x x= inputbox(“ 输入x”) loop print s 38. 该算法的运行结果是 。 39. 若你输入6,2,0,1,2,2 ，则输出的结果为 。

四、代码填空（2*6）

40. 求1+4+7+10+..+(3*n+1)共n+1项的和,n由键盘输入。 Dim n as integer Dim i as integer Dim s as long n=inputbox(“输入x”) i=0 (1) do while (2) s=s+ (3) i=i+1 41. 输出能被5整除的三位奇数的和 Dim s as long Dim i as long s=0 for i = (4) to 999 step (5) if i mod 5=0 then s=s+i end if (6) print s - 9 -

loop print s 五、写VB代码

42. 根据流程图，将虚线部分用VB代码表示出来（3’）

VB代码：

- 10 -

2016学年度第一学期高一年级信息科技期末考试

参考答案

一、单项选择题（2’*25）

1 C 11 1D 21 2C

二、单项选择题（2’*7）

26 27 28 29 30 31 32 B

三、求结果（每题3分，共计21分） 33、___13 5 8__ 34、_____god_____ 35、_____25______ 36、____120______ 37、_____6 ______ 38、_____55____ _ 39、____ 8 __

四、代码填空（每题2分，共计12分） 第 40题： (1)_____s=0 ____ (2)____ i<=n________ (3)_____3*i+1_______ 第 41题： (4)_____101 或105____ (5)_____2 _________ 五、写代码（每题3分，共计3分） 42.If x>=0 then y=sqr(x+1) Else y=(x+2)/(2*x) End if D B D A B D 2 A 2 1A 2 2D 3 B 3 1D 3 2A 4 C 5 B 6 C 6 1D 7 A 7 1D 8 B 8 1C 9 C 9 2C 10 B 0 A 4 15 1A A 4 25 B C - 11 -

(6)_____next ________

- 12 -