程序设计大赛vb试卷

《程序设计大赛vb试卷》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、程序设计大赛VB试卷时间:120分钟学院姓名班级学号一、填空题(50分，2分/空)1、下列程序求100到500之间所有能被4整除但不能被8整除的数的个数，请填空。PrivateSubForm_Click()Dimi%,sum%sum=0Fori=100To500IfiMod4=0]iMod8<>0Thensum=2+1NextiPrin「满足条件的数的个数是：”；sumEndSub2、填入正确内容，使得下列程序能够找出50以内的所有能构成直角三角形的整数。PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsSingleFo

2、ra=1To50Forb=3To50c=Sqr(a*a+b*b)If4And5ThenPrinta,b,cNextbNextaEndSub3、下而程序是用辗转相除法求两个自然数m,n的最大公约数和最小公倍数，请填空。PrivateSubForm_Click()Dimm%,n%,mn%m=Val(InputBox(n请输入m的值:"))n=Val(InputBox(HiW输入n的值：”))Ifm<=0Orn<=0ThenMsgBox”数据出错”:Endmn=6Ifm

3、约数是“;nPrint”最小公倍数是”;mn/nEndSub4、下面程序是计算s=l+(1+2)+(1+2+3)+....+(1+2+3+3+...+20),请填空。PrivateSubForm_Click()Dimi%,j%,s%s=0Fori=1To20Forj=1To9s=10NextjNextiPrint“s=”;sEndSub5、下面程序是计算s=l・l/3+l/5・l/7+l/9•.…，当最后一项的绝对值小于0.000001时为止，请填空。PrivateSubForm_Click()Dimm!,s#,t#,k!k=11s~111=1:m=1DoWhileAb

4、s(t)110.000001k二12m二t=m/ks=s+tLoopPrintHs=M;sEndSub6、下血程序是将输入的一个数插入到按递增有序数列中，插入后使得该序列仍然有序PrivateSubForm_Click()Dimaa=Array(l,3,6,9,16,29,37)n=UBound(a)ReDimPreservea(n+1)m=Val(InputBox(n请输入要插入的数"))p=LBound(a)DoWhilem>a(p)Andp<=np=13LoopFori=nTopStep-1a(14)=a(15)Nextia(p)=mEndSub7、下面程序产生并

5、输出一个4x4的二维矩阵，将其转置后输出，请填空。PrivateSubForm_Click()Dima(lTo4,1To4)AsIntegerDimk%,i%,j%,t%Fori=1To4Forj=1To4a(i,j)=Int(Rnd*10)+1Printa(ij);NextjPrintNextiPrintFori=1To4Fo叮二］To16t=a(i,j)::18NextjNextiFori=1To4Forj=1To4Printa(i,j);NextjPrintNextiEndSub8、要使下面程序输出右边图形，请填空。PrivateSubFonn_Click()Di

6、mi%J%Fori=1To5Forj=1To19PrintChr$(_20_);NextjPrintNextiEndSub9、下面程序是判断输入的一个正整数是否是素数的的，请填空。PrivateSubForm_Click()Dimi%,n%»k%n=Val(I叩utBox("请输入一个正整数："))k=Int(Sqr(n))Fori=21TokIfn22i=0ThenExitForNextiIfi23kThenPrintn;”是素数”ElsePrintn;”不是素数”EndIfEndSub10、下面程序是求阶层fac(n)=n!的递归函数，请填空。PrivateFunc

7、tionfac(nAsInteger)AsIntegerIf24Thenfac=1Elsefac二n*fac(25)EndIfEndFunctionPrivateSubForm_Click()PrintH4!=H;fac(4)EndSub二、程序阅读题(50分，5分/每题)1、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序的代码。PrivateSubCommandl_Click()x二n*********“Fori=1To4PrintTab(10-i);Left(x,2*i-1)NextiFori=0To2PrintTa