BB平台日常测试循环

-.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）并在窗体上打印结果。“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。

正确答案所选答案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*输入一串字符串，统计其中所包含的数字字符、大写英文字母、小写英文字母以及其他字符的个数，在窗体上输出统计结果。

正确答案所选答案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