信息技术学业水平算法模拟题分析题部分1、阅读程序，写出运行结果Dim a(10) As IntegerDim i As Integera(1)=1a(2)=1For i=3 To 6a(i)=a(i-1)+a(i-2)Next iPrint a(6)上述程序运行后，输出a(6)的值是__________（6分）2、分析并完善程序以下是计算s=1*2*3*…*10的程序代码，请补全程序。
（6分）Dim s As LongDim i As Integers=____________________For i=1 To 10s=__________________Next iPrint s3、算法设计与程序实现勾股数勾股数是指满足条件a2+b2=c2的自然数，求出100以内满足a<b的所有勾股数。
【算法分析】a的取值范围[1,100];b的取值范围[1,100];c的取值范围[1,100].【参考程序】Dim a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100For c=1 To 100If _____________________________ThenPrint a;b;c ‘abc之间以分号分隔End IfNext cNext bNext（1）本题采用的算法是___________（填写：解析法/枚举法/排序法/递归法）。
（2）程序代码中空白处应填写的条件是_____________（填写字母：A/B/C/D）A、a<b And a2+b2=c2B、a<b Or a2+b2=c2C、a<b And a^2+b^2=c^2D、a<b And a^2+b^2=c^24、阅读程序，写出运行结果Dim s As IntegerDim i As Integers=0For i=1 To 10 Step 4Print “#”s=s+iNext iPrint s上述程序运行后，输出“#”的个数是_____________；输出s的值是_____________。
（共6分，每空3分）5、阅读程序，写出运行结果Dim a As IntegerDim b As IntegerDim r As Integera=98b=63r=a mod bDo While r<>0a=bb=rr=a Mod bLoopprint b程序运行后，输出结果为：______________。
（6分）6、算法设计与程序实现换钱问题要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。
其中一种换发如下：5元：3张2元：38张1元：9张求出所有的换钱方案。
【算法设计】x表示5元的张数：1≤x≤20;y表示2元的张数：1≤y≤50;z表示1元的张数：1≤z≤100.【参考程序】Dim x As IntegerDim y As IntegerDim z As IntegerFor x=1 To 20For y=1 To 50For z=1 To 100If _____________________ThenPrint x;y;z ‘x y z 之间以分号分隔End ifNext zNext yNext x根据上述回答下列问题：（8分，每空4分）（1）本题采用的算法是_________________（填：解析法/枚举法/排序法/递归法）。
（2）程序代码中空白处应填写的条件是______（填写字母：A/B/C/D）。
A、5x + 2y + z=100 Or x + y + z = 50B、5x + 2y + z=100 And x + y + z = 50C、5*x + 2*y + z=100 Or x + y + z = 50D、5*x + 2*y + z=100 And x + y + z = 507、分析并完善流程图执行流程图，当输入x的值为4时，输出y的值为2，则菱形判断框中的条件可能为________（填写字母：A/B/C/D 6分）。
A、x>3B、x>4C、x<=4D、x<=58、分析并完善程序以下是计算s=12+22+32+…+1002的程序代码，请补全程序。
（共6分，每空3分）Dim s As LongDim i As Integers=0For i=1 To 100s=s+_____________________Print s9、算法设计与程序实现十进制整数转换为二进制整数采用“除2取余”法。
【参考程序】Dim s As String ‘记录转换后的二进制数Dim n As Integer ‘记录十进制正整数nDim r As Integer ‘记录n除以2的余数s=“ ”‘s记录转换后的二进制数，初值为空n=Val(Text1.Text)Do While n>0r=______①________s=r & sn=______②________LoopText2.Text=s（1）、上述算法描述采用的方法是：______________（填：自然语言/伪代码/流程图）。
（2分）（2）、在参考程序①处应填入____________（填写字母：A/B/C/D）。
（3分）A、n Mod 2B、n \ 2C、2 Mod nD、n / 2（3）、在参考程序②处应填入____________（填写字母：A/B/C/D）。
（3分）A、n Mod 2B、n \ 2C、2 Mod nD、n / 210、阅读程序，写出运行结果Dim n As Integern=Val(InputBox(“n=”))Do While n Mod 2=0n=n\2LoopPrint n程序运行时，输入24，输出n的值是：______(提示：\ 整除运算如：17\2=8；Mod 取余数运算如：17 mod 2 =1) 11、分析并完善程序以下是计算s=1+6+11+…+101的程序代码，请完善程序。
Dim s As IntegerDim i As Integers=0For i=1 To 101 Step__________s=____________Next iPrint s12、算法设计与程序实现某市出租车收费标准如下：（1）3公里内（含3公里），收费8元；（2）超过3公里但未超过6公里部分，按1.5元/公里收费；（3）超过6公里部分，按2.25元/公里收费。
根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？【参考代码】Dim s As SingleDim p As Singles=Val(InputBox(“s=”))If s<=3 Thenp=8End IfIf ______________Thenp=1.5*(s-3)+8End IfIf s>6 Thenp=2.25*(s-6)+1.5*3+8End IfPrint p根据上述回答下列问题：（1）、本题采用的算法是__________（填写：解析法/查找法/枚举法/排序法）。
（2）、程序代码中空白处应填写的条件是____________（填写字母：A/B/C/D）.A、3<s≦6B、3 ≦s≦6C、s>3 And s<=6D、s>3 Or s<=613、阅读下列程序，写出运行结果（6分）S=0For i=1 to 3For j=1 to 5S=s+1Next jNext iPrint s上述程序运行后s的输出值是____________ (6分)14、算法设计与程序实现假设公鸡一只5钱，母鸡一只3钱，小鸡一钱3只。
现用100钱来买100只鸡。
问：公鸡、母鸡、小鸡各买多少只？（要求公鸡、母鸡、小鸡都是整数）设计算法并编写程序输出所有的买鸡方案Dim x As Integer, y As Integer, z As IntegerFor x=0 To 20For y=0 To 33For z=0 To 99 Step 3If____________________ ThenPrint “公鸡：”x, “母鸡：” y,”小鸡：”zExit ForEnd IfNext zNext yNext xEnd Sub【算法设计】根据上述回答如下问题（共8分，每题4分）（1）、本题采用的算法是_________（填写：解析法/枚举法/排序法/递归法）（2）、程序代码中空白处应填写的条件是___________（填：A/B/C/D）A、x + y + z=100 AND 5x+3y+z/3=100B、x + y + z=100 OR 5x+3y+z/3=100C、x + y + z=100 AND 5*x+3*y+z/3=100D、x + y + z=100 OR 5*x+3*y+z/3=10015、补全程序数列问题已知包含25项的数列：1,2/3,3/5,……,24/47,25/49问题1：写出该数列的通项公式f(n)=____________。
（3分）问题2：以下是计算s=1+2/3+3/5+……+24/47+25/49的程序，请补全代码：Dim i As IntegerDim s As Singles=0For i=1 to 25s=s+________ (3分)Next iPrint “s=” , s16、求三角形面积已知a、b、c分别为三角形的三条边长，利用海伦公式求该三角形面积p=(a+b+c)/2编程实现：输入边长a，b，c，如果能构成三角形，输出面积，否则输出“No Answer!”界面如下：（8分）Dim a As Single , b As Single , c As Singlea=val(text1.text)b=val(text2.text)c=val(text3.text)If ( ) thenp=(a+b+c)/2s=sqr(p*(p-a)*(p-b)*(p-c))text4.text=format(s,”0.00”) ‘结果保留两位小数Elsetext4.text=”no answer”End If根据上述回答下列问题（8分，每空4分）（1）、利用海伦公式求三角形面积的算法是___________（填写：解析法/查找法/枚举法/排序法）。
（2）、填写出参考程序中空白处的表达式___________（填写字母：A/B/C/D）A、a + b > c or a + c > b and b + c > aB、a + b > c or a + c > b or b + c > aC、a + b > c and a + c > b or b + c > aD、a + b > c and a + c > b and b + c > a17、阅读下列程序，写出运行结果（6分）Dim S As integerDim k As integerS=0For k=1 to 6 step 2S=S+kNext kPrint s输出s的值是____________ (6分)18、阅读下列程序，写出运行结果（6分）当输入x=8,y=10时，输出x=______,y=_____。
