典型考题解析(1)ppt课件

常用算法累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。图形打印（金字塔形、杨辉三角形等）素数判定、求fib数列前n项的和数组求最值、冒泡法和选择法排序、数组元素的增加和删除函数过程和子过程基本控件属性顺序文件操作,典型考点,1,下载由正整数组成的数据文件到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。把结果写入试卷中指定位置。OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,j%Opend:wj002.txtFor_As#1Fori=1To50Input_,_NextiFori=51To1000Input_,_IfxMod_=_Then_=_+1NextiPrinttEndSub程序运行的结果是_,1、Input2、#13、x4、#15、x6、107、48、t9、t10、92,2,下列程序的功能是：计算1+(1+2)+(1+2+3)+，求累加到第几项的时候它的和超过50000。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimi%,_%,s!i=0t=0s=0_While_=50000_=i+_=t+_=s+_LoopPrintiEndSub程序运行的结果是_,1、t2、Do3、s4、i5、16、t7、i8、s9、t10、66,3,*下列程序的功能是：求个位数是6，且能被3整除的所有四位数之和。*请填空：_ExplicitPrivateSubCommand1_Click()_s!,_%s=_For_=1000To9999If_(i,1)=6AndiMod3=0Then_=s_EndIfNextiPrintsEndSub程序运行的结果是_,1、Option2、Dim3、i4、05、i6、Right7、s8、+9、i10、1653300,4,*下载由正整数组成的数据文件到自己的计算机中，编写程序，求出该数据文件里的前1000个数中个位、十位、百位数字的和是奇数的数据的个数。把结果写入试卷中指定位置。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,xg%,xs%,xb%_d:wj002.txt_Input_#10Fori=1To1000Input_,_xg=xMod10 xb=x100 xs=(_-_*100)10If(xb+xs+xg)Mod2=1Andxb1000Anda(i)Mod2=0Thent=t+_EndIfNextiPrinttEndSub程序运行的结果是_,1、As2、6003、#54、a(i)5、t6、t7、t8、09、110、231,7,*读取文件中的字符，统计其英文字母个数。把结果写入试卷中指定位置。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimzm%,cAsString*1,st$,i%Opend:wj013.txtForInputAs#_DoWhileNot_(2)Line_#2,stFori=1ToLen(_)_=_(_,_,_)Ifc=aAndc=AAndc=Asc(A)AndKeyAscii=Asc(Z)ThenText2=Text2+Chr(KeyAscii_32)ElseText2._=Text2+Chr(KeyAscii)EndIfEndSub,1、KeyPress2、+3、Text,12,下列程序的功能是：有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，输出所有的兑换方法。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimn%,i%,j%,k%n=0Fori=_To_Forj=_To_Fork=_To_Ifi*10+j*5+_=_Thenn=n+_EndIfNextk,1、02、203、04、405、06、2007、k8、2009、110、441,13,PrivateSubCommand1_Click()IfCommand1.Caption=字号ThenLabel1._=30Command1.Caption=颜色_Label1._=vbRedCommand1.Caption=字号EndIfEndSub,1、fontsize2、Else3、ForeColor,14,*设计一个求两个数的最大公约数的函数过程。*程序代码如下：OptionExplicitPrivateFunction_(ByValm%,ByValn%)AsIntegerDimr%Dor=mModnIfr=0ThenExitDom=nn=rLoop_=_EndFunctionPrivateSubCommand1_Click()Dimx%,y%x=Val(InputBox(x=?)y=Val(InputBox(y=?)Printgcd(x,y)EndSub,1、gcd2、gcd3、n,15,*用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8.）的前20项及前20项的和。*程序代码如下：PrivateSubCommand1_Click()Dims_EndSubPrivateSubfib(a,b,c)c=a+ba=bb=cEndSub,1、s2、c3、s,16,*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(_)thensum=sum+_NextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEnd_,1、n2、n3、Function,17,*下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。*程序代码如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsInteger_=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa(_)sum=sum+_NextnPrintsumEndSub,1、nt2、n3、nt,18,*下面程序用来输出如下图案，请填空。1333555557777777999999999PrivateSubCommand1_Click()Dimi%,j%,t%Fori=1To5_=2*_-1PrintSpc(10-i);Forj=1To2*i-1PrintTrim(t);NextjPrintNextEndSub,1、t2、i,19,*判断输入的正整数n是否为素数。*程序代码如下：PrivateSubCommand1_Click()Dimk%,n%,f%n=InputBox(请输入正整数n)f=1Fork=2Ton/_IfnModk=0Thenf=0ExitForEndIfNextkIf_=0ThenPrintn;不是素数ElsePrintn;是素数EndIfEndSub,1、22、f,20,*删除已知数组a中的某个元素。PrivateSubCommand1_Click()Dima()AsVariant,nAsInteger,KeyAsIntegera=Array(1,6,8,3,5,9,10,2,7,4)n=UBound(a)Key=InputBox(请输入要删除的数)Fori=0TonIfKey=a(i)ThenExitForNextiIfi=n+1ThenMsgBox(找不到此数)_ExitSubForj=i+1Tona(j-1)=a(j)Nextjn=_-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEndSub,1、:2、n,21,使用InputBox函数接收一批字符，将其中的数字字符进行累加并输