典型考題解析

常用算法累加、累乘、窮舉法、遞推法、求最大值/最小值、求最大公約數(shù)/最小公倍數(shù)。圖形打印（金字塔形、楊輝三角形等）素數(shù)判定、求fib數(shù)列前n項(xiàng)的和數(shù)組求最值、冒泡法和選擇法排序、數(shù)組元素的增加和刪除函數(shù)過程和子過程基本控件屬性順序文件操作典型考點(diǎn)典型考題解析(1)下載由正整數(shù)組成的數(shù)據(jù)文件{<wj002.txt>}到自己的機(jī)器中，編寫程序，統(tǒng)計出該數(shù)據(jù)文件中，在第51個-第1000個數(shù)據(jù)之間，末位數(shù)字是4的數(shù)據(jù)的個數(shù)。把結(jié)果寫入試卷中指定位置。OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,j%Open"d:\wj002.txt"For_________As#1Fori=1To50Input______,_____NextiFori=51To1000Input______,_____IfxMod______=_____Then_____=_____+1NextiPrinttEndSub程序運(yùn)行的結(jié)果是______1、Input2、#13、x4、#15、x6、107、48、t9、t10、92典型考題解析(1)下列程序的功能是：計算1+(1+2)+(1+2+3)+……，求累加到第幾項(xiàng)的時候它的和超過50000。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dimi%,_____%,s!i=0t=0s=0______While_____<=50000_____=i+__________=t+__________=s+_____LoopPrintiEndSub程序運(yùn)行的結(jié)果是______1、t2、Do3、s4、i5、16、t7、i8、s9、t10、66典型考題解析(1)*下列程序的功能是：求個位數(shù)是6，且能被3整除的所有四位數(shù)之和。*請?zhí)羁眨?/p>

__________ExplicitPrivateSubCommand1_Click()_______s!,_____%s=_____For_____=1000To9999If_________(i,1)=6AndiMod3=0Then_____=s__________EndIfNextiPrintsEndSub程序運(yùn)行的結(jié)果是___________1、Option2、Dim3、i4、05、i6、Right7、s8、+9、i10、典型考題解析(1)*下載由正整數(shù)組成的數(shù)據(jù)文件{<wj002.txt>}到自己的計算機(jī)中，編寫程序，求出該數(shù)據(jù)文件里的前1000個數(shù)中個位、十位、百位數(shù)字的和是奇數(shù)的數(shù)據(jù)的個數(shù)。把結(jié)果寫入試卷中指定位置。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dimx%,t%,i%,xg%,xs%,xb%________"d:\wj002.txt"_______Input______#10Fori=1To1000Input_______,_____xg=xMod10xb=x\100xs=(_____-______*100)\10If(xb+xs+xg)Mod2=1Andxb<10Then_____=_____+1EndIfNextiPrinttEndSub程序運(yùn)行的結(jié)果是_______1、Open2、For3、As4、#105、x6、x7、xb8、t9、t10、56典型考題解析(1)*下列程序的功能是：求數(shù)列2,4,8,16,32,…前若干項(xiàng)之和。當(dāng)和大于9000時，終止求和并輸出結(jié)果。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dims%,i%_____=_____s=_____DoWhile_____<=_____________=s+__________=i_____2LoopPrintsEndSub1、i2、23、04、s5、90006、s7、i8、i9、*10、16382典型考題解析(1)下載由正整數(shù)組成的數(shù)據(jù)文件{<wj011.txt>}到自己的計算機(jī)中，編寫程序，對該數(shù)據(jù)文件里的前600個數(shù)從小到大排序，求出第1到第500個數(shù)中大于1000的偶數(shù)的個數(shù)。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=1To500Ifa(i)>1000Anda(i)Mod2=0Thent=t+_____EndIfNextiPrinttEndSub程序運(yùn)行的結(jié)果是_______1、As2、6003、#54、a(i)5、t6、t7、t8、09、110、231典型考題解析(1)*讀取文件{<wj013.txt>}中的字符，統(tǒng)計其英文字母個數(shù)。把結(jié)果寫入試卷中指定位置。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dimzm%,cAsString*1,st$,i%Open"d:\wj013.txt"ForInputAs#_____DoWhileNot_______(2)Line_________#2,stFori=1ToLen(______)_____=_______(______,_____,_____)Ifc>="a"Andc<="z"Orc>="A"Andc<="Z"Thenzm=zm+1EndIfNextLoopPrintzmEndSub程序運(yùn)行的結(jié)果是________1、22、EOF3、Input4、st5、c6、Mid7、st8、i9、110、1242典型考題解析(1)下列程序的功能是：計算1-2+3-4+5-6…-20的值。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dims%,_____%s=____________i_____1______20_____=_____+(-1)_____(i+1)*_____NextiPrintsEndSub程序運(yùn)行的結(jié)果是_______1、i2、03、For4、=5、To6、s7、s8、^9、i10、-10典型考題解析(1)下載由正整數(shù)組成的文件{<wj003.txt>}，編寫程序，統(tǒng)計該文件中素數(shù)（質(zhì)數(shù)）的個數(shù)。把結(jié)果寫入試卷中指定位置。（在大于1的自然數(shù)中，除了1和此整數(shù)自身外，無法被其他自然數(shù)整除的數(shù)是素數(shù)，1不是素數(shù)）*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dimx%,t%,m%Open"d:\wj003.txt"_______InputAs#1t=_____DoWhile_______EOF(1)Input______,_____For_____=2Tox-1IfxMod_____=_____ThenExitForNextmIfm=_____Thent=t+1LoopPrinttEndSub程序運(yùn)行的結(jié)果是_______1、For2、03、Not4、#15、x6、m7、m8、09、x10、209典型考題解析(1)*編寫一個登錄的程序，如圖{<x_1.jpg>}所示。*運(yùn)行過程：點(diǎn)擊確定按鈕時判斷密碼是否為“Gong”，如果是則使用msgbox顯示“歡迎你！”，如果不是則清空密碼輸入框，焦點(diǎn)重新定位到密碼輸入框。

PrivateSubForm_Load()Text2.PasswordChar="*"_________.Text=""Text1=""EndSubPrivateSubCommand1_Click()DimIAsIntegerIfText2.Text="________"ThenMsgBox"登錄成功"Else_________.Text=""Text2.SetFocusEndIfEndSub1、Text22、Gong3、Text2典型考題解析(1)*大寫字符轉(zhuǎn)換小寫字符，如圖{<x_4.jpg>}所示

PrivateSubText1_____________(KeyAsciiAsInteger)IfKeyAscii>=Asc("A")AndKeyAscii<=Asc("Z")ThenText2=Text2+Chr(KeyAscii_____32)ElseText2.________=Text2+Chr(KeyAscii)EndIfEndSub1、KeyPress2、+3、Text典型考題解析(1)下列程序的功能是：有200元錢需要兌換成零錢，零錢有10元，5元，1元三種面額，輸出所有的兌換方法。*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_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、441典型考題解析(1)PrivateSubCommand1_Click()IfCommand1.Caption="字號"ThenLabel1.___________=30Command1.Caption="顏色"________Label1._____________=vbRedCommand1.Caption="字號"EndIfEndSub1、fontsize2、Else3、ForeColor典型考題解析(1)*設(shè)計一個求兩個數(shù)的最大公約數(shù)的函數(shù)過程。*程序代碼如下：

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典型考題解析(1)*用子過程輸出Fibonacci（斐波那契）數(shù)列（0、1、1、2、3、5、8...）的前20項(xiàng)及前20項(xiàng)的和。*程序代碼如下：

PrivateSubCommand1_Click()Dims&,a%,b%,c%a=0:b=1_____=a+bPrintaPrintbFori=1To18fiba,b,cprint_____s=s+cNextiPrint"Fibonacci（斐波那契）數(shù)列的前20項(xiàng)的和為：";_____EndSubPrivateSubfib(a,b,c)c=a+ba=bb=cEndSub1、s2、c3、s典型考題解析(1)*利用判斷一個三位數(shù)是否為對稱數(shù)（如：343）的函數(shù)過程，求出所有三位對稱數(shù)之和。*程序代碼如下：

PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(_____)thensum=sum+_____NextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i\100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEnd____________1、n2、n3、Function典型考題解析(1)*下面程序計算1!+3!+5!+...+9!的值，請將其補(bǔ)充完整。*程序代碼如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsInteger______=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa(_____)sum=sum+______NextnPrintsumEndSub1、nt2、n3、nt典型考題解析(1)*下面程序用來輸出如下圖案，請?zhí)羁铡?/p>

1333555557777777999999999PrivateSubCommand1_Click()Dimi%,j%,t%Fori=1To5_____=2*_____-1PrintSpc(10-i);Forj=1To2*i-1PrintTrim(t);NextjPrintNextEndSub1、t2、i典型考題解析(1)*判斷輸入的正整數(shù)n是否為素數(shù)。*程序代碼如下：PrivateSubCommand1_Click()Dimk%,n%,f%n=InputBox("請輸入正整數(shù)n")f=1Fork=2Ton/_____IfnModk=0Thenf=0ExitForEndIfNextkIf_____=0ThenPrintn;"不是素數(shù)"ElsePrintn;"是素數(shù)"EndIfEndSub1、22、f典型考題解析(1)*刪除已知數(shù)組a中的某個元素。

PrivateSubCommand1_Click()Dima()AsVariant,nAsInteger,KeyAsIntegera=Array(1,6,8,3,5,9,10,2,7,4)n=UBound(a)Key=InputBox("請輸入要刪除的數(shù)")Fori=0TonIfKey=a(i)ThenExitForNextiIfi=n+1ThenMsgBox("找不到此數(shù)")_____ExitSubForj=i+1Tona(j-1)=a(j)Nextjn=_____-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEndSub1、:2、n典型考題解析(1)使用InputBox函數(shù)接收一批字符，將其中的數(shù)字字符進(jìn)行累加并輸出累加和。PrivateSubForm_Click()DimsAsString,iAsIntegers=InputBox("請輸入一個帶數(shù)字的字符串")i=1Sum=_____DoWhilei<=Len(s)IfMid(s,i,1)>="0"AndMid(s,i,1)<="9"ThenSum=Sum+

(s,i,1)EndIfi=i+1LoopPrintSumEndSub1、02、Mid典型考題解析(1)使用雙循環(huán)實(shí)現(xiàn)三角形輸出********************

PrivateSubCommand1_Click()For_____=1To5PrintTab(25-i);Forj=_____ToiPrint"*";NextjPrintNextiEndSub1、i2、1典型考題解析(1)*下載由正整數(shù)組成的文件{<wj003.txt>}，編寫程序，統(tǒng)計該文件中素數(shù)（質(zhì)數(shù)）的個數(shù)。把結(jié)果寫入試卷中指定位置。（在大于1的自然數(shù)中，除了1和此整數(shù)自身外，無法被其他自然數(shù)整除的數(shù)是素數(shù)，1不是素數(shù)）*請?zhí)羁眨篛ptionExplicitPrivateSubCommand1_Click()Dimx%,t%,m%Open"d:\wj003.txt"_______InputAs#1t=_____DoWhile_______EOF(1)Input______,_____For_____=2Tox-1IfxMod_____=_____Then