搜索
常用算法累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。图形打印（金字塔形、杨辉三角形等）素数判定、求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