10级vb程序设计题

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

1、VB程序设计题（10级2、3班程序汇总2013—01--28）第一部分三大结构基本程序1．编一个程序，打印出下面图形****************FORI=1TO4PRINTTAB（10-I）；FORJ=1TO2*I-1PRINT“*“；NEXTJPrintNEXTI2.编一段程序，从键盘输入3个整数，找出其中绝对值最小的数。A=INPUTBOX("A=")B=INPUTBOX("B=")C=INPUTBOX("C=")MIN=ABS(A)IFABS(B)

2、INTHENMIN=ABS(C)PRINT"MIN=";MIN3.编一个程序，打印出下面图形：********************************FORI=1TO4PRINTTAB（10+I）；FORJ=1TO816PRINT“*“；NEXTJPRINTNEXTI4.编程序，输出如下图形：AABABCABCDABCDEs$="ABCDE"FORn=1to5PRINTLEFT$(s$,n)NEXTn5.编写程序，任意输入一个整数，判定该整数的奇偶性。n=InputBox("请输入一个数")IfnMod2

3、=0ThenPrintn;"是偶数"ElsePrintn;"是奇数"EndIf6.编写程序求1+2+3+…+1000的结果。i=1DoWhilei<=1000s=s+ii=i+1LoopPrints7.将一个字符串中的字符按倒序输出。DIMA，BASSTRINGA=INPUTBOX（“”）16L=LEN（A）FORI=LTO1STEP-1B=B+MID（A，L，1）NEXTIPRINTB8.编写一个程序，用InputBox函数输入3个数，选出其中的最大数和最小数，显示于窗体上。a=Val(InputBox("请输

4、入第一个数："))b=Val(InputBox("请输入第二个数："))c=Val(InputBox("请输入第三个数："))Ifa>bThenm=aElsem=bIfc>mThenm=cPrint"最大数：";mIfa

5、enPrintNextiPrint"和为：";Sum10.编程求出100～200之间的全部素数。Forn=101To200Step2k=INT(SQR(n))i=216flag=0Whilei<=kANDflag=0IfnMODi=0thenflag=1Elsei=i+1EndIfWendIfflag=0ThenPrintn,Nextn11.编写程序求出S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值。n=InputBox("请输入n的值")Fori=1TonForj=1Toim=m+jNext

6、js=s+mNextiPrintm12.某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递增率调整到8%，试计算常量翻一翻（基数的2倍）所需的最少年数。S=1：N=0DON=N+1IFN>5THENS=S*(1+.08)ELSES=S*(1+.05)ENDIFIFS>=2THENEXITDOLOOP16PRINTN13.如果一个数的因子之和等于这个数本身，则称为“完全数”。例如，整数28的因子有1、2、4、7、14，其和等于28，因此28是一个完全数。编写程序求出1000以内的所有完全数Fori=

7、2To1000s=0Forj=1Toi-1IfiModj=0Thens=s+jEndIfNextjIfs=iThenPrinti;Nexti14.输出200～300之间不能被5整除的数。要求每行输出10个数。n=0Fori=200To300IfiMod5<>0ThenPrinti;n=n+1IfnMod10=0ThenPrintNexti15.编写程序:计算SUM=1+(1+3)+(1+3+5)+…+（1+3+5+7+…+39）。M=1：SUM=0：T=0DOWHILEM<=39T=T+MSUM=SUM+TM=M

8、+2LOOPPRINT“SUM=”;SUM16.找出1～1000之间的全部“水仙花数“。“水仙花数”是这样一个整数，它的每一位数字的立方之和正好等于这个三位数。如：153是水仙花数，因为13+53+33=153。FORI=100TO99916J=I100K=(I-100*J)10M=IMOD10N=J^3+K^3+M^3IFI=NTHENPRINTINEXTI17.给