信息技术合格考复习题 算法（一）
一、 选择题
1.VB 表达式 68 mod 10 的结果是（ ）
A.4 B.0 C. 8 D.16 2.在VB语言中，下列合法的变量名是（ ） A.2x B.x2 C.x/2 D. x*2 3.执行下列程序段后，输出的“*”的个数为（ ） For i=2 to 10 Print “*” Next i
A.8 B.2 C.9 D. 10
4．下列流程中，能正确表示选择结构的是（ ）
A.（1）（2）（3） B.（2）（3）（4） C.（2）（4） D.（1）（3） 5. 二、操作题
1.阅读下列程序，写出运行结果 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
程序运行后输出s的值是___________________
2. 算法设计与程序实现
假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带息超过．．12000元。
年数
设定：连本带息=本金*(1+利率)【算法分析】
n
假设n年后连本带息超过12000，根据题意得出:10000*(1+3%)>12000。 求最小的n。
【参考程序】
Dim s As Single Dim r As Single Dim n As Integer s = 10000 r = 0.03 n = 0
Do While _____________ n = n +1 s = s*(1+r) Loop
Print n ; “年后”;”连本带息超过”; s 根据上述回答如下问题：（共8分，每题4分）
（1）本题采用的算法是 （填：解析法/枚举法/排序法/递归法） （2）写出程序中空白处表达式 3. 算法设计与程序实现
学校举行校园歌手大赛，评委由6人组成，评分方法：去掉一个最高分，去掉一个最低分，计算其余4位评委的平均分，作为选手的最终得分。
【算法设计】
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作为选手的最终得分。
根据上述回答下列问题：（共8分，第一题2分，第二题3分，第三题3分。）
（1）在设计界面过程中，窗体中录入评委打分的对象是下图中哪个控件生成的？_______(填写编号：1/2/3/4)
（2）上述算法描述采用的方法是： (填：自然语言/伪代码/流程图) （3）下列程序代码片段对应于算法描述中的第2步至第4步。
max = a(1) min = a(1) s = a(1)
For I = 2 to 6
s = s + a(i) ’求6位选手的总分 if a(i) > max then max = a(i) if a(i) < min then min = a(i)
Next i
aver = (_________________)/4 ’计算出选手的最终得分aver
请写出片段中括号内空白处的表达式 。
信息技术合格考复习题 算法（二）
一、选择题
1.已知s=1+2+3+……+N，找出一个最大的N，使得s<30000,编写程序解决此问题，最适合的程序主体结构是（ ）
A.顺序结构 B.选择结构 C.循环结构 D. 分支结构 2.下列变量名合法的是（ ）
A. abc*123 B.123abc C.abc_123 D.for 3.执行下列语句后，y的值是（ ）
x=16
if x<0 then y=abs(x) else
y=sqr(x) end if
A.4 B.0 C. 16 D. 都不是
4. 已知n是一个两位数，下列VB表达式中能正确求出n的个位数（ ） A. n\\10 B. n/10 C. int(n\\10) D. n mod10 5.下列关于算法说法正确的是（ ） 二、操作题
1. 阅读下列程序，写出运行结果
Dim n as integer Dim i as integer s=0
For i=1 to 6 s=s+i Next i
上述程序运行后，变量s的值是
2.阅读下方流程图，写出结果 开始 输入x，y
x=x+y
y=x-y
x=x-y 输出x，y
结束
当输入x=8，y=10时，输出结果为：x= ，y= 3.算法设计与程序实现
已知a、b、c分别为三角形的三条边长，利用海伦公式求三角形面积
p =
s =
编程实现：输入边长a ,b ,c,如果能构成三角形，输出面积，否则输出“No Answer!” 【参考程序】
Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single a = Val ( text1.text ) b = Val ( text2.text ) c = Val ( text3.text ) If Then