2020年信息技术学考算法与程序设计试题整理及解析

16、Dim sum as long Dim i as long sum=0 i=0

Do while sum <10 i=i+1

sum=sum+i*i loop

print sum

运行结果： 14

解析：sum=0,i=0,sum<10 yes

①i=i+1=1,sum=sum+i*i=0+1=1,sum<10 yes; ②i=i+1=2,sum=sum+i*i=1+2*2=5,sum<10 yes;

③i=i+1=3,sum=sum+i*i=5+3*3=14,sum<10 no, print sum=14

17.阅读下列流程图，写出结果（7分）

当输入x=1时，输出n的值是 3 。

解析：输入x=1,n=0 ①x2-4x+3=1-4+3=0≤0 yes x=x+1=1+1=2,n=n+1=0+1=1 ②x2-4x+3=4-8+3=-1≤0 yes

第 2 9 页

x=x+1=2+1=3,n=n+1=1+1=2 ③x2-4x+3=9-12+3=0≤0 yes x=x+1=3+1=4,n=n+1=2+1=3 ④x2-4x+3=16-16+3=3≤0 no 输出n=3

18.分析完善程序，以下是计算s=l-2+3-4+5-……+9-100的VB程序代码，请补全程序。（8分) Dim s As Integer Dim i As Integer s = 0

For i = 1 To 100

If i mod 2 =1 Then

s = s+i Else

s = s-i End If Next i

Print \

解析：i的取值是从1到100。

①当i是奇数，即1、3、5、...、99，i不能被2整除（i mod 2 = 1），此时s=s+i ②当i是偶数，即2、4、6、...、100，i能被2整除（i mod 2 = 0），此时s=s-i

19.算法实现与程序设计（求 s=3+6+9+…+300的值）

解决该问题，可以采用如下两种不同的方法：(共8分，每空4分)

方法一 方法二 第 3 0 页

Dim s As Integer Dim i As Integer s=0 For i = 3 to 300 step 3 s = s + ① Next i Print s Dim s As Integer Dim i As Integer s=0 For i = 1 to 100 s = s + ② Next i Print s 请补充完成上述程序：① i ；② 3*i 。

20.阅读下列程序，写出运行结果（数组a(i)问题7分） Dim a(10) As Integer Dim i As Integer Dim S As Integer For i = 1 To 5

a(i) = i * i Next i

S = a(3) + a(4) Print S

上述程序运行后，输出的结果是 25 。

解析：i的取值是从1到5，

a(1)=1*1=1,a(2)=2*2=4,a(3)=9,a(4)=16,a(5)=25;s=a(3)+a(4)=9+16=25。

21.阅读下列程序，写出运行结果 Dim i as integer Dim s as integer Dim n as integer n=30 s=0

For i=2 to n-1

If n mod i = 0 then s=s+i Next i Print s

第 3 1 页

程序运行后输出s的值是 41 。

解析：n=30,i的取值是从2到29,n mod i=0,本题即是30这个数能被2,3,4,...,29这些数中整除的数之和，即2+3+5+6+10+15=41。

22.分析完善程序（8分），学校举行校园歌手大赛，评委由6人组成，评分方法：去掉一个最高分和一个最低分，计算其余4位评委的平均分，作为选手的最终得分。

图1

[算法设计]

max 记录最高分 min 记录最低分

s 记录六位评委的总分 aver 记录最终得分

第1步:从文本框中分别读入6位评委的打分并依次存入到a(1)到a(6)中; 第2步:将第一位评委的打分a(1)分别赋给最高分max,最低分min和总分s; 第3步:利用循环结构把另外5位评委的打分累加给s从而求出6位评委的总分s，同时把5位评委的打分与max与min进行比较，得出6位评委中的最高分max和最低分min;

第4步:从总分s中去掉最高分max和最低分min，求出其他四位评委的平均分aver作为选手的最终得分。

(1)再设计界面过程中,窗体中录入评委打分的对象是下图中哪个控件生成的? 2 (填写编号: 1/2/3/4)

5 第 3 2 页 6