高三信息技术专题复习 经典算法程序实现专题练习 经典算法程序实现2(基础篇二：解析)答案

经典算法程序实现(基础篇二)班级：______

姓名：________【解析算法】1．解决某物理问题的算法描述如下：①输入线圈电阻值R，电压V，通过线圈电流I，时间T②计算电动机消耗的总电能W1←UIt③计算电流通过线圈产生的热量←I2Rt④计算电动机做的机械功W2←W1–P⑤输出W1、Q和W2上述算法属于

(B)A.枚举算法

B.解析算法C.查找算法

D.排序算法2．某超市打折促销，规定如下：①购物未超过500元按原价支付；②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；⑤购物超过3000元，超过3000元部分按6折优惠计价。根据购物货款求实付金额，解决这个问题，最适合的算法是

(B)A.枚举算法

B.解析算法C.查找算法

D.递归算法3．某商场营业员的月奖金计算方法如下：奖金＝基本奖金+加班费+提成费。

基本奖金500元；加班加发120元/天；本月营业额若超过5万元，则提成费为营业额的3%，若在5万元及以下，则提成费为营业额的2%。要求设计一个VB程序，在文本框Text1中输入本月加班天数，Text2中输入本月营业额，在文本框Text3中显示该营业员的本月奖金。以下是为解决该问题用VB设计的界面：(1)在设计应用程序界面时，要使按钮Command1上显示“计算”，在其对应的属性窗口中修改

属性的属性值为“计算”加以实现。(2)为实现上述功能，请在划线处填入合适代码。PrivateSubCommand1_Click()DimdayAsInteger’存储本月加班天数DimturAsSingle’存储本月营业额DimbonusAsSingle’存储本月奖金day=Val(Text1.Text)tur=Val(Text2.Text)bonus=500bonus=bonus+day*120Ifbonus>50000__

_Thenbonus=bonus+tur*0.03Elsebonus=bonus+tur*0.02EndIfText3.Text=Str(bonus)EndSub4．编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符，单击“统计”按钮Command1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如下－1图所示：(1)在设计应用程序界面时应使用-2图所示“控件工具箱”中的___2________(填写相应编号)添加“统计”按钮。(2)为实现上述功能，请在划线处填入合适代码PrivateSubCommand1_Click()DimsAsString,cAsStringDimIAsInteger,nAsInteger,numAsIntegers=

Text1.Textnum=0n=Len(s)Fori=1Ton_____c=Mid(s,i,1)_____Ifc>=″0″Andc<=″9″Thennum=num+1EndIfNextiLabel1.Caption=str(num)EndSub5、填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。PrivateSubCommand1_Click()Constpi=3.14

'定义符号常量DimcAsSingle

'定义周长c为单精度型DimrAsSingle

'定义半径r为单精度型r=Val(_Text1.Text)c=pi*2*r_Text2.Text__=Str(c)EndSub6、本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。PrivateSubCommand1_Click()DimhAsSingle,nAsIntegerh=Val(__Text1.Text_)Ifh>3ThenIf__hMod2=0________Thenn=h/2Elsen=(h-1)/2EndIfElsen=____1______EndIfText2.Text=____Str(n)________EndSub7、这是一个显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。'当输入一个小于60的数时，显示"不及格"；'当输入一个大于等于60且小于85的数，显示"良好"；'当输入一个大于等于85的数时，显示"优秀"。PrivateSubCommand1_Click()'定义变量Cj，值由文本框Text1读入DimCjAsSingleCj=Val(__Text1.Text____)IfCj__<60_______

thenLabel1.Caption="不及格"ElseIf

___Cj>=60AndCj<85

ThenLabel1.Caption="良好"ElseIfCj>=85ThenLabel1.Caption="优秀"EndIfEndSub8、有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，2个月后会生1对小兔子，以后每个月都会生1对小兔子；而生下来的小兔子，也是2个月后开始每月生1对小兔子，以此类推。试问：n个月以后，兔子的总数达到多少？问题分析：设第n月兔子数为地f(n),则f(n)=f(n-1)+f(n-2)PrivateSubCommand1_Click()DimiAsIntegerDima(1To20)AsInteger'定义存储20个整数的数组aList1.Cleara(1)=___1_______a(2)=___1_______List1.AddItemStr(a(1))List1.AddItemStr(