计算机二级考试VB一般程序设计习题

一般程序设计习题'〖第1题〗：(事件)单击窗体。'(响应)求100以内偶数的和，并将结果输出在窗体上。'将结果存入变量SUM中'答案：DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum'〖第2题〗：(事件)双击窗体。'(响应)求s=1+1×2+1×2×3+…+1×2×3×…×10，'并将结果存到变量S中答案：Dimi,jAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint(CStr(s))'〖第3题〗：(事件)单击窗体。'(响应)求1+2+3+……+100的值，并把结果输出在窗体上。'结果存入变量SUM中。'答案：DimiAsIntegerFori=1To100sum=sum+iNextPrintsum'〖第4题〗：判断一个数是否是素数。'答案：DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False:ExitForNexti'〖第5题〗：(事件)单击窗体。'(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。'将结果存入变量J中。DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj''〖第6题〗：(事件)单击窗体。'(响应)求200~300之间既能被3整除又能被7整除的数。'并求出所有数之和存入变量SUM中'答案：DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum'〖第7题〗：(事件)单击窗体。'(响应)求数列1+3+3+9+27+……前6项的和，并将'结果输出到窗体上。将结果存入变量SUM中。'答案：DimiAsIntegerDimj(1To6)AsIntegerFori=1To6Ifi3Thenj(i)=3^(i-1)Elsej(i)=j(i-1)*j(i-2)EndIfsum=sum+j(i)NextPrintsum'〖第8题〗：(事件)单击窗体。'(响应)求10!的值，并将结果输出到窗体上。'将结果存入变量SUM中。'答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum'〖第9题〗：(事件)双击窗体。'(响应)求出100~200之间，能被5整除，但不能被3'整除的数。并求所有数之和，存入变量中'SUM中。'答案：DimiAsIntegerFori=100To200If((iMod5)=0)And((iMod3)0)ThenPrint(CStr(i))sum=sum+iEndIfNext'〖第10题〗：(事件)双击窗体。'(响应)把一元钞票换成一分、二分和五分的硬币'（每种至少有一枚），求出其所有的换法，'把结果输出在窗体上。'将所有的换法的数目存入变量N中答案：Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext'〖第11题〗：求两个数m,n的最大公约数p和最小公倍数q'答案：nm=n*mIfmnThent=m:m=n:n=tr=mModnDoWhile(r0)m=nn=rr=mModnLoopp=nq=nm/n'〖第12题〗：(事件)双击窗体。'(响应)s=20+21+22+…+263，求s的值，并将结果'存储到变量S中。答案：DimiAsIntegeri=20Whilei=263s=s+ii=i+1WendPrint(CStr(s))'〖第13题〗：(事件)双击窗体。'(响应)求3+6+9+12+15+18+……+300的和，并将结'果输出到窗体上。将结果存入变量SUM中。'答案：DimiAsIntegerFori=3To300IfiMod3=0Thensum=sum+iEndIfNextPrintsum'〖第14题〗：(事件)双击窗体。'(响应)编写代码功能如(图1)。'将结果存入变量S中''答案：DimiAsIntegers=1Fori=1To10s=s*i*iNextPrint(CStr(s))'〖第15题〗：(事件)双击窗体。'(响应)求1+5+10+15+……+500的和，并将结果输'出到窗体上。将结果存入变量SUM中。答案：DimiAsIntegerFori=1To500IfiMod5=0Thensum=sum+iEndIfNextPrintsum'〖第16题〗：(事件)单击窗体。'(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，'并将结果输出到窗体上。'将结果存入变量M中'答案：Dimi,jAsIntegerDimsAsLongFori=10To15s=1Forj=iToi+2s=s*jNextm=m+sNextPrint(CStr(m))'〖第17题〗：(事件)双击窗体。'(响应)求出50以内所有奇数的和。'将结果存入变量SUM中答案：DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum'〖第18题〗：用迭代法求某个数的平方根。已知求平方根的迭代公式如图：'算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一'迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；'再以新值作为初值，即：x1→x0,重新按原来的方法求x1,重复这一过和'直到|x1-x0|_(某一给定的精度)。此时可将x1作为问题的解。'答案：Dimx0AsSingle,x1AsSinglex0=a/2'迭代初值x1=0.5*(x0+a/x0)Dox0=x1'为下一次迭代作准备x1=0.5*(x0+a/x0)LoopWhileAbs(x1-x0)0.00001Fsqrt=x1'〖第19题〗：(事件)单击窗体。'(响应)求10~20之间所有素数的乘积并输出在窗体上。'将结果存入变量L中。答案：DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)〖第20题〗：编写函数fun其功能是:能计算从1开始到n的'自然数中偶数的平方的和，n由键盘输入，'(n是偶数)'答案：DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum'〖第21题〗：(事件)单击窗体。'(响应)求出1000-9999之间具有如下特点的四位数字，'它的平方根'恰好就是它中间的两位数字，例如，2500开'平方为50，恰为2500的中间两位，找出所有'这样的四位数。'并求出所有这样的数的和存入SUM中'答案：DimiAsIntegerDimjAsIntegerFori=1000To9999j=Val(Mid(Trim(Str(i)),2,2))Ifj^2=iThenPrinti,sum=sum+iEndIfNext'〖第22题〗：(事件)双击窗体。'(响应)求100以内奇数的和，并将结果输出在窗体上。'将结果存入变量SUM中答案：DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum〖第23题〗：(事件)单击窗体。'(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…'的前10项，并求其和。'答案：Dimi,j,k,mAsIntegers=0i=2j=1Fork=1To10m=jPrint(CStr(i))&/&CStr(j)j=ii=i+ms=s+i/jNext'〖第24题〗：(事件)双击窗体。'(响应)写程序解决百钱买百鸡问题：公鸡3元1只，'母鸡5元1只，小鸡一元3只，怎样用100元买'100只鸡。把结果输出到窗体上。'将答案数存放在变量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+1EndIfNextNextNext'〖第25题〗：(事件)单击窗体。'(响应)一球从100米高度自由落下，每次落地返回'原高度的一半，求第10次落地时，共经过多'少米？并将结果在窗体上输出。'答案：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))'〖第26题〗：(事件)单击窗体。'(响应)在窗体上输出100~200之间的所有合数。'求出所有数之和存入SUM中''答案：Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i))sum=sum+iExitForEndIfNextNextPrintsum'〖第27题〗：(事件)单击窗体。'(响应)求50以内所有偶数的和，并在窗体上输出出来。'将结果存入变量S中。'答案：DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))'〖第28题〗：(事件)单击窗体。'(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，'结果输出在窗体上。'答案：DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)''〖第29题〗：(事件)单击窗体。'(响应)编写代码功能如(图1)。'将结果存入变量S中答案：DimiAsIntegerFori=1To10s=s+i*iNextPrint(CStr(s))'〖第30题〗：(事件)单击窗体。'(响应)求1!+2!+3!+……+10!的值，并在窗体上输出。'结果存入变量L中。'答案：DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10s=s*il=l+sNextPrintStr(l)'〖第31题〗：将一张面值为100元的人民币等值换成100张5元、'1元和0.5元的零钞，要求每种零钞不少于1张，'问有哪几种组合？将组合数存入变量OUT中。答案：DimnAsIntegerDimi%,j%,k%Print5?1?0.5?Fori=1To20Forj=1To100-ik=100-i-jIf5#*i+1#*j+0.5*k=100ThenPrinti,j,kn=n+1EndIfNextjNextiout=n'〖第32题〗：(事件)双击窗体。'(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。'结果存入变量S中答案：Dimi,j,k,sAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))'〖第33题〗：(事件)单击窗体。'(响应)求出100以内所有素数的和，并将结果输出'到窗体上,并存入所给变量SUM中。'答案：DimiAsIntegerDimjAsIntegerDimkAsIntegerDim