资源描述：
《VB期末考试编程题覆盖范围》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、VB期末考试编程题覆盖范围第一题要求（15分）：不用过程，覆盖以下算法：1．求随机10个整数的最大值、最小值、平均值以及和；2．求水仙花数；3．百元买百鸡问题；4．求1000以内的所有完数；5．求各位数字之和;6．求最小公倍数；7．求逆序数；8．级数有限项求和问题；9．求质因子问题；10． 字符统计。第二题要求（25分）：指定编写过程并调用此过程，覆盖以下算法:1．判定素数过程；2．求最大公约数过程；3．冒泡排序过程；4．顺序查找过程；5．判断回文数过程；6．递归函数求阶乘；7．递归函数求
2、Fibonacci数列；8．矩阵靠边元素之和；9．矩阵不靠边元素之和；10． 矩阵转置。 理论题型：单选题40题，每题1分共40分，填空题20空，每空1分，共20分。 1、求随机10个整数的最大值、最小值、平均值以及和PrivateSubForm_click()DimiAsInteger,sAsInteger,averAsSingle,maxAsInteger,minAsIntegerDima(10)AsIntegermin=100:max=0Print"10个数为："Fori=1To10
3、a(i)=Int(Rnd*90)+10Ifmaxa(i)Thenmin=a(i)s=s+a(i)Printa(i);Nextiaver=s/(i-1)PrintPrint"10个数的最大值为：";maxPrint"10个数的最小值为：";minPrint"10个数的和为：";sPrint"10个数的平均值为：";averEndSub 2、求水仙花数PrivateSubForm_click()DimiAsInteger,sAsInteger,xAsInteger,s
4、tAsStringForx=100To999st=CStr(x):s=0Fori=1ToLen(st)s=s+Val(Mid(st,i,1))^Len(st)NextiIfs=xThenPrintxNextxEndSub 3、百元买百鸡问题PrivateSubForm_click()DimxAsInteger,yAsInteger,zAsIntegerForx=1To20Fory=1To33z=100-x-yIf5*x+3*y+z/2=100ThenPrintx,y,zNextyNextxEndSub 4、求1
5、000以内的所有完数；PrivateSubForm_click()DimxAsInteger,iAsIntegerForx=1To1000s=0Fori=1Tox-1IfxModi=0Thens=s+iNextiIfs=xThenPrintxNextxEndSub 5、求各位数字之和PrivateSubForm_click()DimxAsInteger,iAsIntegerx=Val(Text1)Fori=1ToLen(CStr(x))s=s+Val(Mid(CStr(x),i,1))NextiPrintx;"
6、的各位数字之和为：";sEndSub 6、求最小公倍数PrivateSubForm_click()DimmAsInteger,nAsInteger,LcmAsLongm=Val(Text1)n=Val(Text2)Lcm=mDoUntilLcmModn=0Lcm=Lcm+mLoopPrintm;"和";n;"的最小公倍数为：";LcmEndSub 7、求逆序数PrivateSubForm_click()DimxAsInteger,pAsInteger,kAsInteger,nxAsIntegerx=Val(Te
7、xt1)p=10^(Len(CStr(x))-1)DoWhilex<>0k=xMod10nx=nx+k*pp=p10x=x10LoopText2=nxEndSub 9、求质因子问题PrivateSubForm_click()DimxAsInteger,iAsInteger,kAsIntegerDimpfac()AsIntegerx=Val(Text1)Text2=Str(x)+"="i=2DoWhilex<>1IfxModi=0Thenk=k+1ReDimPreservepfac(k)pfac(k)=ix=
8、xiElsei=i+1EndIfLoopFori=1ToUBound(pfac)-1Text2=Text2+Str(pfac(i))+"*"NextiText2=Text2+Str(pfac(i))+"*"EndSub 二、基本过程1、素数PrivateFunctionp(xAsInteger)AsBooleanDimiAsIntegerFori=2Tox-1IfxModi=0The
