般程序设计习题'〖第1题〗:(事件)单击窗体。
'(响应)求100以内偶数的和，并将结果输出在窗体上。
'将结果存入变量SUM中'答案：DimiAsIntegerFori=ITolOOlfiMod2=0Thensum=sum+iEndIfNextPrintsum'〖第2题〗:(事件)双击窗体。
'(响应)求s=1+1X 2+1 X 2X 3+…+1X 2 X 3X …X 10,'并将结果存到变量S中答案：DimijAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint(CStr(s))'〖第3题〗:(事件)单击窗体。
'(响应)求1+2+3+……+100的值，并把结果输出在窗体上。
'结果存入变量SUM中o'答案：DimiAsIntegerFori=1To100sum=sum+iNextPrintsum'〖第4题〗：判断一个数是否是素数。
'答案：DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))lfmModi=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=2 0仃o300If((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)=3F-1)Elsej(i)=j(i-1)*j(i-2)EndIfsum=sum+j(i)NextPrintsum' 〖第8 题〗：( 事件) 单击窗体。
'( 响应)求10!的值，并将结果输出到窗体上。
'将结果存入变量SUM中。
' 答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum' 〖第9 题〗：( 事件) 双击窗体。
'( 响应)求出1 00~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*mIfm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)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 题〗：（事件）单击窗体。
'（响应）编写程序求10X 11 X 12+11X 12X 13+…+15X 16X 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；'再以新值作为初值，即：X1T X0,重新按原来的方法求x1,重复这一过和'直到|X1-XO|V_(某一给定的精度)。
此时可将X1作为问题的解。
' 答案：DimX0AsSingle,X1AsSingleXO=a/2' 迭代初值X1=O.5*(XO+a/XO)DoXO=X1' 为下一次迭代作准备X1=O.5*(XO+a/XO)LoopWhileAbs(X1-XO)>O.OOOO1Fsqrt=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))lfjA2=iThenPrinti,sum=sum+iEndlfNeXt'〖第22题〗：(事件)双击窗体。
'( 响应)求100以内奇数的和，并将结果输出在窗体上。
'将结果存入变量SUM中答案：DimiAslntegerFori=1To100lfiMod2=1Thensum=sum+iEndlfNeXtPrintsum〖第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题〗：( 事件)单击窗体。
'( 响应)一球从1 00米高度自由落下，每次落地返回' 原高度的一半，求第10 次落地时，共经过多' 少米？并将结果在窗体上输出。
' 答案：Dimj,iAsIntegers=0j=100Fori=2To10j=j/2s=s+2*jNexts=100+sPrint(CStr(s))' 〖第26题〗：(事件)单击窗体。