资源描述：
《典型考题解析(1).pptx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、常用算法累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。图形打印（金字塔形、杨辉三角形等）素数判定、求fib数列前n项的和数组求最值、冒泡法和选择法排序、数组元素的增加和删除函数过程和子过程基本控件属性顺序文件操作典型考点下载由正整数组成的数据文件{}到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。把结果写入试卷中指定位置。OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,j%Open"d
2、:wj002.txt"For_________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。*请填空：OptionExplicitPrivateSub
3、Command1_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___
4、__=1000To9999If_________(i,1)=6AndiMod3=0Then_____=s__________EndIfNextiPrintsEndSub程序运行的结果是___________1、Option2、Dim3、i4、05、i6、Right7、s8、+9、i10、1653300*下载由正整数组成的数据文件{}到自己的计算机中，编写程序，求出该数据文件里的前1000个数中个位、十位、百位数字的和是奇数的数据的个数。把结果写入试卷中指定位置。*请填空：OptionExplicitPrivateSubCo
5、mmand1_Click()Dimx%,t%,i%,xg%,xs%,xb%________"d:wj002.txt"_______Input______#10Fori=1To1000Input_______,_____xg=xMod10xb=x100xs=(_____-______*100)10If(xb+xs+xg)Mod2=1Andxb<10Then_____=_____+1EndIfNextiPrinttEndSub程序运行的结果是_______1、Open2、For3、As4、#105、x6、x7、xb8、t9、t10、56*下列
6、程序的功能是：求数列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下载由正整数组成的数据文件{}到自己的计算机中，编写程序，对该数据文件里的前600
7、个数从小到大排序，求出第1到第500个数中大于1000的偶数的个数。OptionExplicitPrivateSubCommand1_Click()Dima%(1To600),t%,i%,j%Open"d:wj011.txt"ForInput______#5Fori=1To_______Input______,________NextiFori=1To600-1Forj=i+1To600Ifa(i)>a(j)Then_____=a(i)a(i)=a(j)a(j)=_____EndIfNextjNexti_____=_____Fori=1To5
8、00Ifa(i)>1000Anda(i)Mod2=0Thent=t+_____EndIfNextiPrinttEndSub程序运行的结果是______
