一般程序设计习题'〖第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=1To6Ifi<3Thenj(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*mIfm0)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|<_(某一给...
