典型考题解析(1)

常用算法累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。图形打印（金字塔形、杨辉三角形等）素数判定、求fib数列前n项的和数组求最值、冒泡法和选择法排序、数组元素的增加和删除函数过程和子过程基本控件属性顺序文件操作下载由正整数组成的数据文件{wj002.txt}到自己的机器中，编写程序，统计出该数据文件中，在第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下列程序的功能是：计算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*下列程序的功能是：求个位数是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*下载由正整数组成的数据文件{wj002.txt}到自己的计算机中，编写程序，求出该数据文件里的前1000个数中个位、十位、百位数字的和是奇数的数据的个数。把结果写入试卷中指定位置。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,xg%,xs%,xb%________d:\wj002.txt_______Input______#10Fori=1To1000Input_______,_____xg=xMod10xb=x\100xs=(_____-______*100)\10If(xb+xs+xg)Mod2=1Andxb10Then_____=_____+1EndIfNextiPrinttEndSub程序运行的结果是_______1、Open2、For3、As4、#105、x6、x7、xb8、t9、t10、56*下列程序的功能是：求数列2,4,8,16,32,…前若干项之和。当和大于9000时，终止求和并输出结果。*请填空：OptionExplicitPrivateSubCommand1_Click()Dims%,i%_____=_____s=_____DoWhile_____=_____________=s+__________=i_____2LoopPrintsEndSub1、i2、23、04、s5、90006、s7、i8、i9、*10、16382下载由正整数组成的数据文件{wj011.txt}到自己的计算机中，编写程序，对该数据文件里的前600个数从小到大排序，求出第1到第500个数中大于1000的偶数的个数。OptionExplicitPrivateSubCommand1_Click()Dima%(1To600),t%,i%,j%Opend:\wj011.txtForInput______#5Fori=1To_______Input______,________NextiFori=1To600-1Forj=i+1To600Ifa(i)a(j)Then_____=a(i)a(i)=a(j)a(j)=_____EndIfNextjNexti_____=_____Fori=1To500Ifa(i)1000Anda(i)Mod2=0Thent=t+_____EndIfNextiPrinttEndSub程序运行的结果是_______1、As2、6003、#54、a(i)5、t6、t7、t8、09、110、231*读取文件{wj013.txt}中的字符，统计其英文字母个数。把结果写入试卷中指定位置。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimzm%,cAsString*1,st$,i%Opend:\wj013.txtForInputAs#_____DoWhileNot_______(2)Line_________#2,stFori=1ToLen(______)_____=_______(______,_____,_____)Ifc=aAndc=zOrc=AAndc=ZThenzm=zm+1EndIfNextLoopPrintzmEndSub程序运行的结果是________1、22、EOF3、Input4、st5、c6、Mid7、st8、i9、110、1242下列程序的功能是：计算1-2+3-4+5-6…-20的值。*请填空：OptionExplicitPrivateSubCommand1_Click()Dims%,_____%s=____________i_____1______20_____=_____+(-1)_____(i+1)*_____NextiPrintsEndSub程序运行的结果是_______1、i2、03、For4、=5、To6、s7、s8、^9、i10、-10下载由正整数组成的文件{wj003.txt}，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是素数）*请填空：OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,m%Opend:\wj003.txt_______InputAs#1t=_____DoWhile_______EOF(1)Input______,_____For_____=2Tox-1IfxMod_____=_____ThenExitForNextmIfm=_____Thent=t+1LoopPrinttEndSub程序运行的结果是_______1、For2、03、Not4、#15、x6、m7、m8、09、x10、209*编写一个登录的程序，如图{x_1.jpg}所示。*运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。PrivateSubForm_Load()Text2.PasswordChar=*_________.Text=Text1=EndSubPrivateSubCommand1_Click()DimIAsIntegerIfText2.Text=________ThenMsgBox登录成功Else_________.Text=Text2.SetFocusEndIfEndSub1、Text22、Gong3、Text2*大写字符转换小写字符，如图{x_4.jpg}所示PrivateSubText1_____________(KeyAsciiAsInteger)IfKeyAscii=Asc(A)AndKeyAscii=Asc(Z)ThenText2=Text2+Chr(KeyAscii_____32)ElseText2.________=Text2+Chr(KeyAscii)EndIfEndSub1、KeyPress2、+3、Text下列程序的功能是：有200元钱需要兑换成零钱，零钱有10元，5元，1元三种面额，输出所有的兑换方法。*请填空：OptionExplicitPrivateSubCommand1_Click()Dimn%,i%,j%,k%n=0Fori=_____To______Forj=_____To______Fork=_____To_______Ifi*10+j*5+_____=_______Thenn=n+_____EndIfNextk1、02、203、04、405、06、2007、k8、2009、110、441PrivateSubCommand1_Click()IfCommand1.Caption=字号ThenLabel1.___________=30Command1.Caption=颜色________Label1._____________=vbRedCommand1.Caption=字号EndIfEndSub1、fontsize2、Else3、ForeColor*设计一个求两个数的最大公约数的函数过程。*程序代码如下：OptionExplicitPrivateFunction_______(ByValm%,ByValn%)AsIntegerDimr%Dor=mModnIfr=0ThenExitDom=nn=rLoop_______=_____EndFunctionPrivateSubCommand1_Click()Dimx%,y%x=Val(InputBox(x=?))y=Val(InputBox(y=?))Printgcd(x,y)EndSub1、gcd2、gcd3、n*用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。*程序代码如下：PrivateSubCommand1_Click()Dims&,a%,b%,c%a=0:b=1_____=a+bPrintaPrintbFori=1To18fiba,b,cprint_____s=s+cNextiPrintFibonacci（斐波那契）数列的前20项的和为：;_____EndSubPrivateSubfib(a,b,c)c=a+ba=bb=cEndSub1、s2、c3、s*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(_____)thensum=sum+_____NextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i\100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEnd____________1、n2、n3、Function*下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。*程序代码如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsInteger______=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa(_____)sum=sum+______NextnPrintsumEndSub1、nt2、n3、n