BB平臺日常測試循環(huán)

-.z.問題1得0分，滿分20分

單擊窗體，找出10~99之間所有的同構數，顯示在窗體上。所謂同構數是指一個數出現在它的平方數的右端，如25在25的平方625的右端，則25為同構數，窗體上顯示“25是同構數”。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger-[未給定]3.Fori=10To99-[未給定]4.Ifi=(i^2)Mod100Then-[未給定]5.Printi&"是同構數"-[未給定]6.EndIf-[未給定]7.Ne*ti-[未給定]8.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n≤15)，然后在窗體上打印如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do

n=Val(InputBo*("n="))-[未給定]4.LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1Ton-[未給定]8.Print"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題3得0分，滿分20分

編制Form_Click()過程，有10元、20元、50元紙幣若干，從中取出20紙幣使其面額總值為600元，求出取法的總數量以及每一種取法的10元、20元、50元紙幣數，并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.Dim*AsInteger,yAsInteger,zAsInteger,nAsInteger-[未給定]3.For*=0To600\50-[未給定]4.Fory=0To20-*-[未給定]5.z=20-*-y-[未給定]6.Ifz*10+y*20+**50=600Then-[未給定]7.Print"10元:";z,"20元:";y,"50元:";*-[未給定]8.n=n+1-[未給定]9.EndIf-[未給定]10.Ne*ty-[未給定]11.Ne*t*-[未給定]12.Print"總共有："&n&"種取法"-[未給定]13.EndSub-[未給定]

問題4得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入*和n，并計算下列表達式的值，結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger-[未給定]3.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

s=1-[未給定]4.a=1-[未給定]5.Fori=1Ton-[未給定]6.a=a**/i-[未給定]7.s=s+a-[未給定]8.Ne*t-[未給定]9.Print"s=";s-[未給定]10.EndSub-[未給定]

問題5得0分，滿分20分

從輸入框InputBo*輸入n，再從輸入框輸入這n個整數，要求以每行5個的形式輸出這n個數（其中的偶數用紅色顯示），計算它們的平均值并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,aveAsSingle,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton

*=Val(InputBo*("*"))-[未給定]5.If*Mod2=0Then-[未給定]6.Form1.ForeColor=vbRed-[未給定]7.Else-[未給定]8.Form1.ForeColor=vbBlack-[未給定]9.EndIf-[未給定]10.Print*;

IfiMod5=0ThenPrint

s=s+*-[未給定]11.Ne*ti-[未給定]12.ave=s/n

Print-[未給定]13.Print"平均值為："&ave-[未給定]14.EndSub-[未給定]問題1得0分，滿分20分

實現文本框的復制（mand1）、剪切（mand2）、粘貼（mand3）、刪除（mand4）功能。

編制Form_Click()過程，從輸入框InputBo正確答案所選答案1.PrivateSubmand1_Click()-[未給定]2.Clipboard.Clear

Clipboard.SetTe*tTe*t1.SelTe*t

EndSub-[未給定]3.PrivateSubmand2_Click()-[未給定]4.Clipboard.Clear

Clipboard.SetTe*tTe*t1.SelTe*t-[未給定]5.Te*t1.SelTe*t=""

EndSub-[未給定]6.PrivateSubmand3_Click()-[未給定]7.Te*t1.SelTe*t=Clipboard.GetTe*t

EndSub-[未給定]8.PrivateSubmand4_Click()

Te*t1.SelTe*t=""-[未給定]9.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，計算下式的和并顯示在窗體上，變量*與n的數值用輸入對話框InputBo*輸入。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger-[未給定]3.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

a=1

s=0-[未給定]4.Fori=2Ton+1-[未給定]5.a=a**/i-[未給定]6.s=s+a-[未給定]7.Ne*t-[未給定]8.Print"s=";s-[未給定]9.EndSub-[未給定]

問題3得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入整數n，求n!的值，并把結果打印在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,sAsLong-[未給定]3.n=Val(InputBo*("請輸入n"))

s=1-[未給定]4.Fori=1Ton-[未給定]5.s=s*i-[未給定]6.Ne*ti-[未給定]7.Print"n!="&s-[未給定]8.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))

LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1To2*i-1-[未給定]8.Print

"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題5得0分，滿分20分

單擊窗體，用輸入對話框InputBo*輸入一個正整數n，計算n的各位數字之和并輸出在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,sAsInteger-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.DoWhilen>0-[未給定]5.*=nMod10-[未給定]6.s=s+*-[未給定]7.n=n\10-[未給定]8.Loop-[未給定]9.Prints-[未給定]10.EndSub-[未給定]

問題1得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出n層數字金字塔。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))-[未給定]5.LoopUntiln>=5Andn<10-[未給定]6.Fori=1Ton-[未給定]7.PrintTab(n+1-i);-[未給定]8.Forj=1To2*i-1-[未給定]9.Print

Trim(Str(i));-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題2得0分，滿分20分

單擊窗體，顯示出所有的水仙花數。所謂水仙花數，是指一個3位正整數，其各位數字的立方和等于該數字本身。例如：153是水仙花數，因為153=13+53+33。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,bAsInteger,sAsInteger,gAsInteger-[未給定]3.Fori=100To999-[未給定]4.b=i\100

s=(iMod100)\10

g=iMod10-[未給定]5.Ifi=b^3+s^3+g^3Then-[未給定]6.Printi&"是水仙花數"-[未給定]7.EndIf-[未給定]8.Ne*ti-[未給定]9.EndSub-[未給定]

問題3得0分，滿分20分

單擊窗體，

求s=1!+2!+3!+...+10!

的值，并把結果顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,aAsLong,sAsLong-[未給定]3.a=1

s=0-[未給定]4.Fori=1To10-[未給定]5.a=a*i-[未給定]6.s=s+a-[未給定]7.Ne*ti-[未給定]8.Prints-[未給定]9.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))

LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1To2*i-1-[未給定]8.Print

"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題5得0分，滿分20分

單擊窗體，產生20個從1到600之間的隨機整數，并以每行5個把數據顯示在窗體上，最后在窗體上顯示20個數據中的所有偶數之和。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,*AsInteger,sasLong-[未給定]3.s=0-[未給定]4.Fori=1To20-[未給定]5.Randomize

*=Int(600*Rnd+1)

Print*;-[未給定]6.Ifimod5=0ThenPrint

If*Mod2=0Thens=s+*-[未給定]7.Ne*ti-[未給定]8.Print"s=";s-[未給定]9.EndSub-[未給定]問題1得0分，滿分20分

單擊窗體，輸出下列數字圖案（行數從輸入框InputBo*輸入）。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger-[未給定]3.n=InputBo*("請輸入行數")-[未給定]4.Fori=1Ton

Forj=1Ton-[未給定]5.Ifj<iThen-[未給定]6.Printn+1-j;-[未給定]7.Else-[未給定]8.Printj-i+1;-[未給定]9.EndIf-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出n層數字金字塔。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))-[未給定]5.LoopUntiln>=5Andn<10-[未給定]6.Fori=1Ton-[未給定]7.PrintTab(n+1-i);-[未給定]8.Forj=1To2*i-1-[未給定]9.Print

Trim(Str(i));-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題3得0分，滿分20分

已知下列公式，單擊窗體，編程求pi的近似值（保留五位小數），并把結果顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle-[未給定]3.a=1

s=1

i=1-[未給定]4.DoWhilea>=10^(-5)-[未給定]5.a=1/(2*i+1)

s=s+(-1)^i*a-[未給定]6.i=i+1-[未給定]7.Loop-[未給定]8.Print"pi=";4*s-[未給定]9.EndSub-[未給定]

問題4得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入一個整數，判斷其是否為素數。例如輸入7，則屏幕上顯示“7是素數”；如果輸入的是9則屏幕上顯示“9不是素數”。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,nAsInteger,PrimeAsString-[未給定]3.n=Val(InputBo*("n="))-[未給定]4.Ifn<2Then

Prime="不是素數"-[未給定]5.Else

Fori=2Ton-1-[未給定]6.IfnModi=0ThenE*itFor-[未給定]7.Ne*ti-[未給定]8.Ifi>n-1Then-[未給定]9.Prime="是素數"-[未給定]10.Else-[未給定]11.Prime="不是素數"

EndIf-[未給定]12.EndIf-[未給定]13.Printn&Prime-[未給定]14.EndSub-[未給定]

問題5得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入兩個任意正整數n和m，求出它們的最大公約數，并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimmAsInteger,nAsInteger,iAsInteger,divAsInteger-[未給定]3.Do-[未給定]4.m=Val(InputBo*("m="))

n=Val(InputBo*("n="))-[未給定]5.LoopWhilem<=0Orn<=0-[未給定]6.Ifn<mThen-[未給定]7.div=n-[未給定]8.Else-[未給定]9.div=m-[未給定]10.EndIf-[未給定]11.DoUntilmModdiv=0AndnModdiv=0-[未給定]12.div=div+1-[未給定]13.Loop-[未給定]14.Form1.Printm;"和";n;"的最大公約數是：";div-[未給定]15.EndSub-[未給定]

問題1得0分，滿分20分

單擊窗體，

求s=1!+2!+3!+...+10!

的值，并把結果顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,aAsLong,sAsLong-[未給定]3.a=1

s=0-[未給定]4.Fori=1To10-[未給定]5.a=a*i-[未給定]6.s=s+a-[未給定]7.Ne*ti-[未給定]8.Prints-[未給定]9.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click過程，求下列算式的值，并把結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,aAsSingle,sAsSingle-[未給定]3.a=1

s=1-[未給定]4.Fori=2To19-[未給定]5.a=(-1)^(i-1)/(i*(i+1))-[未給定]6.s=s+a-[未給定]7.Ne*ti-[未給定]8.Prints-[未給定]9.EndSub-[未給定]

問題3得0分，滿分20分

有30個人在用餐，其中有男士、女士和小孩；男士花30元，女士花20元，小孩花了10元，30人共花了500元。單擊窗體，計算出男士、女士、小孩各有幾位，并把結果顯示在窗體上。例如“男士1位，女士18位，小孩11位”。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.Dim*AsInteger,yAsInteger,zAsInteger-[未給定]3.For*=1To500\30

Fory=1To500\20-[未給定]4.z=30-*-y-[未給定]5.If

30**+20*y+10*z=500Then-[未給定]6.Print"男士"&*&"位,";"女士"&y&"位";"小孩"&z&"位"-[未給定]7.EndIf-[未給定]8.Ne*ty-[未給定]9.Ne*t*-[未給定]10.EndSub-[未給定]

問題4得0分，滿分20分

單擊窗體，輸出下列圖案（行數n從輸入框InputBo*輸入）。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger-[未給定]3.n=InputBo*("請輸入行數")-[未給定]4.Fori=1Ton

Forj=1Ton-[未給定]5.Ifj<iThen-[未給定]6.Print0;-[未給定]7.Else-[未給定]8.Print1;-[未給定]9.EndIf-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題5得0分，滿分20分

從輸入框InputBo*輸入n，再從輸入框輸入這n個整數，要求以每行5個的形式輸出這n個數（其中的偶數用紅色顯示），計算它們的平均值并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,aveAsSingle,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton

*=Val(InputBo*("*"))-[未給定]5.If*Mod2=0Then-[未給定]6.Form1.ForeColor=vbRed-[未給定]7.Else-[未給定]8.Form1.ForeColor=vbBlack-[未給定]9.EndIf-[未給定]10.Print*;

IfiMod5=0ThenPrint

s=s+*-[未給定]11.Ne*ti-[未給定]12.ave=s/n

Print-[未給定]13.Print"平均值為："&ave-[未給定]14.EndSub-[未給定]

問題1得0分，滿分20分

單擊窗體，從輸入框輸入一個10進制正整數，在窗體上打印出相應的二進制數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsString,*AsString,sAsString-[未給定]3.n=InputBo*("請輸入一個10進制數")-[未給定]4.Do

*=nMod2-[未給定]5.n=n\2

s=*&s-[未給定]6.LoopWhilen>0-[未給定]7.Prints-[未給定]8.EndSub-[未給定]

問題2得0分，滿分20分

單擊窗體，從輸入框輸入一個字符串，判斷其是否為“回文”（Wrapte*t）并在窗體上打印結果?！盎匚摹笔侵缸址樧x與倒讀都是一樣的，如“潮起潮落，落潮起潮”。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsString,nasInteger-[未給定]3.s=InputBo*("請輸入字符串")

n=Len(s)-[未給定]4.Fori=1Ton\2-[未給定]5.IfMid(s,i,1)<>Mid(s,n+1-i,1)ThenE*itFor-[未給定]6.Ne*ti-[未給定]7.Ifi<=n\2Then-[未給定]8.Prints&"不是回文"-[未給定]9.Else-[未給定]10.Prints&"是回文"-[未給定]11.EndIf-[未給定]12.EndSub-[未給定]

問題3得0分，滿分20分

編制Form_Click過程，求下列算式的值，并把結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,aAsSingle,sAsSingle-[未給定]3.a=1

s=1-[未給定]4.Fori=2To19-[未給定]5.a=(-1)^(i-1)/(i*(i+1))-[未給定]6.s=s+a-[未給定]7.Ne*ti-[未給定]8.Prints-[未給定]9.EndSub-[未給定]

問題4得0分，滿分20分

單擊窗體，打印1～1000之間所有被3、5、7除都余1的整數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger-[未給定]3.Fori=1To1000-[未給定]4.IfiMod3=1AndiMod5=1AndiMod7=1Then-[未給定]5.Printi-[未給定]6.EndIf-[未給定]7.Ne*ti-[未給定]8.EndSub-[未給定]

問題5得0分，滿分20分

編制Form_Click()過程，在窗體上輸出九九乘法表。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,jAsInteger-[未給定]3.Fori=1To9-[未給定]4.Forj=1Toi-[未給定]5.Printi;"*";j;"=";i*j;-[未給定]6.Ne*tj-[未給定]7.Print-[未給定]8.Ne*ti-[未給定]9.EndSub-[未給定]

問題1得0分，滿分20分

單擊窗體，用輸入對話框InputBo*輸入一個正整數n，計算n的各位數字之和并輸出在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,sAsInteger-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.DoWhilen>0-[未給定]5.*=nMod10-[未給定]6.s=s+*-[未給定]7.n=n\10-[未給定]8.Loop-[未給定]9.Prints-[未給定]10.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n≤15)，然后在窗體上打印如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do

n=Val(InputBo*("n="))-[未給定]4.LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1Ton-[未給定]8.Print"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題3得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入*和n，并計算下列表達式的值，直至末項小于10-5

為止，結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle-[未給定]3.*=Val(InputBo*("輸入*"))

a=1

s=1

i=0-[未給定]4.Do-[未給定]5.i=i+1-[未給定]6.a=a**/i-[未給定]7.s=s+a-[未給定]8.LoopWhile

a>=0.00001-[未給定]9.Print"s=";s-[未給定]10.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n≤15),然后在窗體上輸出如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))-[未給定]5.LoopUntiln>=5Andn<10-[未給定]6.Fori=1Ton-[未給定]7.PrintTab(n+1-i);-[未給定]8.Forj=1To2*i-1-[未給定]9.PrintChr(Asc("A")+i-1);-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題5得0分，滿分20分

單擊窗體，從輸入框輸入一個10進制正整數，在窗體上打印出相應的二進制數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsString,*AsString,sAsString-[未給定]3.n=InputBo*("請輸入一個10進制數")-[未給定]4.Do

*=nMod2-[未給定]5.n=n\2

s=*&s-[未給定]6.LoopWhilen>0-[未給定]7.Prints-[未給定]8.EndSub-[未給定]

問題1得0分，滿分20分

單擊窗體，用輸入對話框InputBo*輸入一個正整數n，計算n的各位數字之和并輸出在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,sAsInteger-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.DoWhilen>0-[未給定]5.*=nMod10-[未給定]6.s=s+*-[未給定]7.n=n\10-[未給定]8.Loop-[未給定]9.Prints-[未給定]10.EndSub-[未給定]

問題2得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入整數n，求下列表達式的值，并把計算結果輸出到窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton-[未給定]5.s=s+(-1)^(i-1)/i-[未給定]6.Ne*ti-[未給定]7.Prints-[未給定]8.EndSub-[未給定]

問題3得0分，滿分20分

單擊窗體，從輸入框輸入一個10進制正整數，在窗體上打印出相應的二進制數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsString,*AsString,sAsString-[未給定]3.n=InputBo*("請輸入一個10進制數")-[未給定]4.Do

*=nMod2-[未給定]5.n=n\2

s=*&s-[未給定]6.LoopWhilen>0-[未給定]7.Prints-[未給定]8.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，有10元、20元、50元紙幣若干，從中取出20紙幣使其面額總值為600元，求出取法的總數量以及每一種取法的10元、20元、50元紙幣數，并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.Dim*AsInteger,yAsInteger,zAsInteger,nAsInteger-[未給定]3.For*=0To600\50-[未給定]4.Fory=0To20-*-[未給定]5.z=20-*-y-[未給定]6.Ifz*10+y*20+**50=600Then-[未給定]7.Print"10元:";z,"20元:";y,"50元:";*-[未給定]8.n=n+1-[未給定]9.EndIf-[未給定]10.Ne*ty-[未給定]11.Ne*t*-[未給定]12.Print"總共有："&n&"種取法"-[未給定]13.EndSub-[未給定]

問題5得0分，滿分20分

單擊窗體，打印1～1000之間所有被3、5、7除都余1的整數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger-[未給定]3.Fori=1To1000-[未給定]4.IfiMod3=1AndiMod5=1AndiMod7=1Then-[未給定]5.Printi-[未給定]6.EndIf-[未給定]7.Ne*ti-[未給定]8.EndSub-[未給定]問題1得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入兩個任意正整數n和m，求出它們的最大公約數，并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimmAsInteger,nAsInteger,iAsInteger,divAsInteger-[未給定]3.Do-[未給定]4.m=Val(InputBo*("m="))

n=Val(InputBo*("n="))-[未給定]5.LoopWhilem<=0Orn<=0-[未給定]6.Ifn<mThen-[未給定]7.div=n-[未給定]8.Else-[未給定]9.div=m-[未給定]10.EndIf-[未給定]11.DoUntilmModdiv=0AndnModdiv=0-[未給定]12.div=div+1-[未給定]13.Loop-[未給定]14.Form1.Printm;"和";n;"的最大公約數是：";div-[未給定]15.EndSub-[未給定]

問題2得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入*和n，并計算下列表達式的值，直至末項小于10-5

為止，結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle-[未給定]3.*=Val(InputBo*("輸入*"))

a=1

s=1

i=0-[未給定]4.Do-[未給定]5.i=i+1-[未給定]6.a=a**/i-[未給定]7.s=s+a-[未給定]8.LoopWhile

a>=0.00001-[未給定]9.Print"s=";s-[未給定]10.EndSub-[未給定]

問題3得0分，滿分20分

從輸入框InputBo*輸入n，再從輸入框輸入這n個整數，要求以每行5個的形式輸出這n個數（其中的偶數用紅色顯示），計算它們的平均值并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,aveAsSingle,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton

*=Val(InputBo*("*"))-[未給定]5.If*Mod2=0Then-[未給定]6.Form1.ForeColor=vbRed-[未給定]7.Else-[未給定]8.Form1.ForeColor=vbBlack-[未給定]9.EndIf-[未給定]10.Print*;

IfiMod5=0ThenPrint

s=s+*-[未給定]11.Ne*ti-[未給定]12.ave=s/n

Print-[未給定]13.Print"平均值為："&ave-[未給定]14.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，計算下式的和并顯示在窗體上，變量*與n的數值用輸入對話框InputBo*輸入。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger-[未給定]3.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

a=1

s=0-[未給定]4.Fori=2Ton+1-[未給定]5.a=a**/i-[未給定]6.s=s+a-[未給定]7.Ne*t-[未給定]8.Print"s=";s-[未給定]9.EndSub-[未給定]

問題5得0分，滿分20分

編制Form_Click()過程，在窗體上打印如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger

DimkAsInteger,pAsInteger-[未給定]3.Fori=1To5-[未給定]4.PrintTab(6-i);-[未給定]5.Forj=1To2*i-1-[未給定]6.Print"*";

Ne*tj-[未給定]7.Print

Ne*ti-[未給定]8.Fork=4To1Step-1-[未給定]9.PrintTab(6-k);-[未給定]10.Forl=1To2*k-1-[未給定]11.Print"*";-[未給定]12.Ne*tl

Print-[未給定]13.Ne*tk-[未給定]14.EndSub-[未給定]問題1得0分，滿分20分

單擊窗體，打印1～1000之間所有被3、5、7除都余1的整數。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger-[未給定]3.Fori=1To1000-[未給定]4.IfiMod3=1AndiMod5=1AndiMod7=1Then-[未給定]5.Printi-[未給定]6.EndIf-[未給定]7.Ne*ti-[未給定]8.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))

LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1To2*i-1-[未給定]8.Print

"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題3得0分，滿分20分

從輸入框InputBo*輸入n，再從輸入框輸入這n個整數，要求以每行5個的形式輸出這n個數（其中的偶數用紅色顯示），計算它們的平均值并顯示在窗體上。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,*AsInteger,aveAsSingle,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton

*=Val(InputBo*("*"))-[未給定]5.If*Mod2=0Then-[未給定]6.Form1.ForeColor=vbRed-[未給定]7.Else-[未給定]8.Form1.ForeColor=vbBlack-[未給定]9.EndIf-[未給定]10.Print*;

IfiMod5=0ThenPrint

s=s+*-[未給定]11.Ne*ti-[未給定]12.ave=s/n

Print-[未給定]13.Print"平均值為："&ave-[未給定]14.EndSub-[未給定]

問題4得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出n層數字金字塔。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))-[未給定]5.LoopUntiln>=5Andn<10-[未給定]6.Fori=1Ton-[未給定]7.PrintTab(n+1-i);-[未給定]8.Forj=1To2*i-1-[未給定]9.Print

Trim(Str(i));-[未給定]10.Ne*tj-[未給定]11.Print-[未給定]12.Ne*ti-[未給定]13.EndSub-[未給定]

問題5得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入*和n，并計算下列表達式的值，結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger-[未給定]3.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

s=1-[未給定]4.a=1-[未給定]5.Fori=1Ton-[未給定]6.a=a**/i-[未給定]7.s=s+a-[未給定]8.Ne*t-[未給定]9.Print"s=";s-[未給定]10.EndSub-[未給定]

問題1得0分，滿分20分

編制Form_Click過程，求下列算式的值，并把結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,aAsSingle,sAsSingle-[未給定]3.a=1

s=1-[未給定]4.Fori=2To19-[未給定]5.a=(-1)^(i-1)/(i*(i+1))-[未給定]6.s=s+a-[未給定]7.Ne*ti-[未給定]8.Prints-[未給定]9.EndSub-[未給定]

問題2得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n<10)，然后在窗體上輸出如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do-[未給定]4.n=Val(InputBo*("n="))

LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1To2*i-1-[未給定]8.Print

"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]

問題3得0分，滿分20分

單擊窗體，從輸入框InputBo*輸入整數n，求下列表達式的值，并把計算結果輸出到窗體。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,sAsSingle-[未給定]3.n=Val(InputBo*("n"))-[未給定]4.Fori=1Ton-[未給定]5.s=s+(-1)^(i-1)/i-[未給定]6.Ne*ti-[未給定]7.Prints-[未給定]8.EndSub-[未給定]

問題4得0分，滿分20分

從文本框Te*t1輸入一個二進制正整數，單擊窗體，在窗體上打印出相應的十進制數；且文本框中只允許輸入0和1。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsString,aAsString,nAsInteger,*AsLong-[未給定]3.s=Te*t1.Te*t

n=Len(s)-[未給定]4.Fori=1Ton-[未給定]5.a=Mid(s,n+1-i,1)-[未給定]6.*=*+Val(a)*2^(i-1)-[未給定]7.Ne*ti-[未給定]8.Print*-[未給定]9.EndSub-[未給定]10.PrivateSubTe*t1_KeyPress(KeyAsciiAsInteger)-[未給定]11.IfKeyAscii<Asc("0")OrKeyAscii>Asc("1")Then-[未給定]12.KeyAscii=0-[未給定]13.EndIf-[未給定]14.EndSub-[未給定]

問題5得0分，滿分20分

編制Form_Click()過程，在窗體上輸出九九乘法表。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimiAsInteger,jAsInteger-[未給定]3.Fori=1To9-[未給定]4.Forj=1Toi-[未給定]5.Printi;"*";j;"=";i*j;-[未給定]6.Ne*tj-[未給定]7.Print-[未給定]8.Ne*ti-[未給定]9.EndSub-[未給定]問題1得20分，滿分20分

單擊窗體，從輸入框InputBo*輸入*和n，并計算下列表達式的值，結果顯示在窗體。

正確答案所選答案1.PrivateSubForm_Click()1.PrivateSubForm_Click()2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger2.DimsAsSingle,*AsSingle,aAsSingle,nAsInteger3.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

s=13.*=Val(InputBo*("請輸入*"))

n=Val(InputBo*("請輸入n"))

s=14.a=14.a=15.Fori=1Ton5.Fori=1Ton6.a=a**/i6.a=a**/i7.s=s+a7.s=s+a8.Ne*t8.Ne*t9.Print"s=";s9.Print"s=";s10.EndSub10.EndSub

問題2得0分，滿分20分

編程，從輸入框InputBo*輸入一串字符串，統(tǒng)計其中所包含的數字字符、大寫英文字母、小寫英文字母以及其他字符的個數，在窗體上輸出統(tǒng)計結果。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsString,*AsString,aAsSingle-[未給定]3.s=InputBo*("請輸入字符串")-[未給定]4.Fori=1ToLen(s)-[未給定]5.*=Mid(s,i,1)-[未給定]6.If*>="0"And*<="9"Then-[未給定]7.shuzi=shuzi+1

ElseIf*>="A"And*<="Z"Then-[未給定]8.da*ie=da*ie+1-[未給定]9.ElseIf*>="a"And*<="z"Then-[未給定]10.*iao*ie=*iao*ie+1-[未給定]11.Else-[未給定]12.qita=qita+1-[未給定]13.EndIf-[未給定]14.Ne*ti-[未給定]15.Print"數字字符有"&shuzi&"個"

Print"大寫英文字符有"&da*ie&"個"

Print"小寫英文字符有"&*iao*ie&"個"

Print"其他字符有"&qita&"個"-[未給定]16.EndSub-[未給定]

問題3得0分，滿分20分

實現文本框的復制（mand1）、剪切（mand2）、粘貼（mand3）、刪除（mand4）功能。

正確答案所選答案1.PrivateSubmand1_Click()-[未給定]2.Clipboard.Clear

Clipboard.SetTe*tTe*t1.SelTe*t

EndSub-[未給定]3.PrivateSubmand2_Click()-[未給定]4.Clipboard.Clear

Clipboard.SetTe*tTe*t1.SelTe*t-[未給定]5.Te*t1.SelTe*t=""

EndSub-[未給定]6.PrivateSubmand3_Click()-[未給定]7.Te*t1.SelTe*t=Clipboard.GetTe*t

EndSub-[未給定]8.PrivateSubmand4_Click()

Te*t1.SelTe*t=""-[未給定]9.EndSub-[未給定]

問題4得0分，滿分20分

從文本框Te*t1輸入一個二進制正整數，單擊窗體，在窗體上打印出相應的十進制數；且文本框中只允許輸入0和1。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimsAsString,aAsString,nAsInteger,*AsLong-[未給定]3.s=Te*t1.Te*t

n=Len(s)-[未給定]4.Fori=1Ton-[未給定]5.a=Mid(s,n+1-i,1)-[未給定]6.*=*+Val(a)*2^(i-1)-[未給定]7.Ne*ti-[未給定]8.Print*-[未給定]9.EndSub-[未給定]10.PrivateSubTe*t1_KeyPress(KeyAsciiAsInteger)-[未給定]11.IfKeyAscii<Asc("0")OrKeyAscii>Asc("1")Then-[未給定]12.KeyAscii=0-[未給定]13.EndIf-[未給定]14.EndSub-[未給定]

問題5得0分，滿分20分

編制Form_Click()過程，從輸入框InputBo*輸入行數n(5≤n≤15)，然后在窗體上打印如下圖形。

正確答案所選答案1.PrivateSubForm_Click()-[未給定]2.DimnAsInteger,iAsInteger,jAsInteger-[未給定]3.Do

n=Val(InputBo*("n="))-[未給定]4.LoopUntiln>=5Andn<10-[未給定]5.Fori=1Ton-[未給定]6.PrintTab(n+1-i);-[未給定]7.Forj=1Ton-[未給定]8.Print"*";-[未給定]9.Ne*tj-[未給定]10.Print-[未給定]11.Ne*ti-[未給定]12.EndSub-[未給定]問題1得20分，滿分20分

單擊窗體，從輸入框輸入一個10進制正整數，在窗體上打印出相應的二進制數。

正確答案所選答案1.PrivateSubForm_Click()1.PrivateSubForm_Click()2.DimnAsString,*AsString,sAsString2.DimnAsString,*AsString,sAsString3.n=InputBo*("請輸入一個10進制數")3.n=InputBo*("請輸入一個10進制數")4.Do

*=nMod24.Do

*=nMod25.n=n\2

s=*&s5.n=n\2

s=*&s6.LoopWhilen>06.LoopWhilen>07.Prints7.Prints8.EndSub8.EndSub

問題2得20分，滿分20分

編制Form_Click()過程，在窗體上打印如下圖形。

正確答案所選答案1.PrivateSubForm_Click()1.PrivateSubForm_Click()2.DimnAsInteger,iAsInteger,jAsInteger

DimkAsInteger,pAsInteger2.DimnAsInteger,iAsInteger,jAsInteger

DimkAsInteger,pAsInteger3.Fori=1To53.Fori=1To54.PrintTab(6-i);4.PrintTab(6-i);5.Forj=1To2*i-15.Forj=1To2*i-16.Print"*";

Ne*tj6.Print"*";

Ne*tj7.Print

Ne*ti7.Print

Ne*ti8.Fork=4To1Step-18.Fork=4To1Step-19.PrintTab(6-k);9.PrintTab(6-k);10.Forl=1To2*k-110.Forl=1To2*k-111.Print"*";11.Print"*";12.Ne*tl

Print12.Ne*tl

Print13.Ne*tk13.Ne*tk14.EndSub14.EndSub

問題3得20分，滿分20分

單擊窗體，找出10~99之間所有的同構數，顯示在窗體上。所謂同構數是指一個數出現在它的平方數的右端，如25在25的平方625的右端，則25為同構數，窗體上顯示“25是同構數”。

正確答案所選答案1.PrivateSubForm_Click()1.PrivateSubForm_Click()2.DimiAsInteger2.DimiAsInteger3.Fori=10To993.Fori=10To994.Ifi=(i^2)Mod100Then4.Ifi=(i^2)Mod100Then5.Printi&"是同構數"5.Printi&"是同構數"6.EndIf6.EndIf7.Ne*ti7.Ne*ti8.EndSub8.EndSub

問題4得20分，滿分20分

有30個人在用餐，其中有男士、女士和小孩；男士花30元，女士花20元，小孩花了10元，30人共花了500元。單擊窗體，計算出男士、女士、小孩各有幾位，并把結果顯示在窗體上。例如“男士1位，女士18位，小孩11位”。

正確答案所選答案1.PrivateSubForm_Click()1.PrivateSubForm_Click()2.Dim*AsInteger,yAsInteger,zAsInteger2.Dim*AsInteger,yAsInteger,zAsInteger3.For*=1To500\30

Fory=1To500\203.For*=1To500\30

Fory=1To500\204.z