典型考题解析(1).pptx

典型考题解析(1).pptx

ID:59040760

大小:110.80 KB

页数:26页

时间:2020-10-29

典型考题解析(1).pptx_第1页
典型考题解析(1).pptx_第2页
典型考题解析(1).pptx_第3页
典型考题解析(1).pptx_第4页
典型考题解析(1).pptx_第5页
资源描述:

《典型考题解析(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程序运行的结果是______

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。