vb程序设计题电子版

《vb程序设计题电子版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序设计题电子版1.（事件）单击事件。（响应）生成一个一维数组（10个数组元素依次为15、32、72、43、96、18、3、177、88、17），写程序求出这个数组的最大值、最小值和平均值，并输出在窗体上。将最大值、最小值、平均值分别存入变量Max、Min、Aver中。答案：Dima(9)AsIntegerDimi,sAsIntegera(0)=15a(1)=32a(2)=72a(3)=43a(4)=96a(5)=18a(6)=3a(7)=177a(8)=88a(9)=17Max=a(0)Min=a(0)s=0Fori

2、=0To9Ifa(i)>MaxThenMax=a(i)EndIfIfa(i)

3、NextiFori=1To10PrintTab(10);"@"Nexti3.（事件）单击窗体（响应）求200～300之间既能被3整除又能被7整除的数并打印。并求出所有数之和存入变量SUM中并打印。答案：DimiAsIntegerFori=201To300If((iMod3)=0And(iMod7)=0)ThenPrint(CStr(i))Sum=Sum+iEndIfNextPrintSum4.（事件）单击窗体（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8……的前10项，并求其和。答案：Dimi,j,k

4、,mAsIntegers=0i=2j=1Fork=1To10m=jPrint(CStr(i))&"/"&(CStr(j))j=ii=i+ms=s+i/jNextPrints5.（事件）单击窗体（响应）求出1000～9999之间具有如下特点的四位数字，它的算数平方根恰好就是它中间的两位数字，例如，2500开平方根为50，恰为2500的中间两位，找出所有这样的四位数并打印。并求出所有这样的数的和存入SUM中。答案：Dimi,jAsIntegerFori=1000To9999yearsmortgagehousing;4.mo

5、rtgageregistrationformalitiesarecompleted.(D)pledge1.borrower(includingthepledgor)between18-65yearsofage,withfullcivilcapacity;2.collateral-3-j=Val(Mid(Trim(Str(i)),2,2))Ifj^2=iThenPrint(CStr(i))Sum=Sum+iEndIfNextPrintSum3.（事件）单击窗体（响应）把一元钞票换成一分、二分和五分的硬币（每种至少一枚），

6、求出其所有的换法，把结果输出到窗体上。把所有的换法的数目存入变量n中。答案：Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If(i+j*2+k*5)=100ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNextPrint(Cstr(n))4.（事件）单击窗体（响应）写程序解决求百元买白鸡的问题：公鸡3元1只，母鸡5元1只，小鸡1元3只，怎么用100元买100只鸡。把结果输出到窗体上。将答案

7、数存放到变量N中。答案：Dimi,j,kAsIntegerFori=1To20'母鸡Forj=1To33'公鸡Fork=3To100'小鸡If(kmod3=0)And(i*5+j*3+k/3=100)And(i+j+k=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNextPrint(Cstr(n))5.（事件）单击窗体（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中。答案：Dimi,j,kAsInte

8、gerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))6.（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+…15*16*17的结果，并将结果输出到窗体上。将结果存入变量M中。Dimi,jAsIntegerDimsAsLongFori=10To15s=1