一、解决问题有解析法、穷举法、递ForI=1to10step214、计算1+1/2+„„„„+1/50的值归法、冒泡排序法，根据问题选S=s+iPrivateSubForm-Activate()择选择合适的算法。NextiDimI,SAsInteger1.列举所有可能的情况，逐个判断有Print“s=”;sS=0哪些是符合问题所需要的条件，运行的结果是：s=25ForI=1to50从而是得到问题的解答，这是6、程序填空，计算1+1/3+1/5......S=S+1/I穷举法的思路。1/49的值NextI2.一个玻璃球从高处到自由落体运Fori=1to49step2Print“S=”;S动。在达到地面时，速度为S=S+1/iEndSub98m/s，请问玻璃求从高处开始Nexti15、实现函数：Y=︱X︱下落地面用多长时间？解析法7、计算1+3+5+7+„„+99的值PrivateSubForm-Activate()3、水仙花数是一个三位数，其各位DimI,sasintegerDimXasInteger,Yassingle立方和等于该数本身，如S=0Integer153=1*1*1+5*5*5+3*3*3选择的ForI=1to50Text1.text=””算法是穷举法S=s+(2*i-1)X=Inputer(“X=?”)4、一张单据上有一个5位数的号码NextIIfX>=0then67____8，其中百位和十位的数Print“s=”;sY=X字看不清楚了，但知道该数能够8、已知Ｓ=1+2+3+„+N，找出一个Else被78整除，也能被67整除，设最大的整数Ｎ，使得Ｓ<300.Y=―X计一个算法求出该号码。穷PrivateSubEndif举法S=0Text1.text=Y5.已知：f(1)=1f(2)=3当n>2时：N=0EndSubF(n)=2f(n-1)+3f(n-2)编程求fDowhileS<30016.PrivateSubForm_Activate()(100)的值。答案：递归法N=N+1DimiAsInteger,sumAs6.求解“百鸡问题”已知公鸡每只3S=S+NInteger元，母鸡每只5元，每3只小鸡Loopsum=01元，用100元买100只鸡，问N=N-1Fori=1To100每种鸡应各买多少？Endsubsum=sum+2答案：穷举法___9、PrivateSubForm-Activate()Nexti7.国内特快专递每200g为一个为一DimI,SAsIntegerPrint“sum=”;sum个计费单位。200g以内20元，S=1EndSub200g以上每续200g（不足200gForI=1to4该程序的输出结果是：sum=200按200g计算16元，现在要编写S=S*I17、写程序结果一个程序输入包裹自动计算出Print“S=”;SText2=“34”价格。答案：解析法EndSuba=(val(Text2)-32)*5/28.动员成绩进行公布现在要编写一个运行结果:S=24printa程序自动完成编排,请问最好采10、PrivateSubForm-Activate答案：_5____用哪种答案：冒泡排序法()18、完善程序：打印如下图形。二、分析程序写出运行结果或补全程DimIInteger,SAsPrivateSub序。IntegerCommand_Click()1.Dimaasinteger,basintergeForI=2To6Fori=1To6a=1:b=0S=S+IForj=1ToIDowhilea<=3NextIPrint“*”a=a+1Print“S=”;SNextjb=b+a*a运行结果:S=20print:NextILoop11、PrivateSubForm-LoadEndSubPrinta,bDimXAsInteger,YAS19PrivateSubCommand_Click()429IntegerDimaAsInteger,bAsInteger2、DimchAsString,iAsIntegerText1.Text=””a=1:b=0ch=”abc”X=99DoWhilea<=5i=1Y=98b=b+a*aDowhilei<=3M=Xa=a+1Ch=ch&Right(“DEF”,i)IfX<YthenM=YLoopi=i+2Text1.caption=MPrinta,bLoopEndSubEndSubPrintch运行结果：99输出结果为：a=6b=55Endsub12、PrivateSubForm-Activate20、写出程序结果运行结果是：abcFD()Privat