一般程序设计习题＇〖第1题〗:(事件)单击窗体。’(响应)求１00以内偶数得与,并将结果输出在窗体上。'将结果存入变量SUM中'答案：DimiAsＩnｔegｅrFｏri=1To1００IfiMod2=0Thensum=sum+iEｎdIｆNextPrintsum’〖第2题〗:(事件)双击窗体。'（响应)求s=1＋1×2+１×2×3+…+１×２×3×…×10,＇并将结果存到变量S中答案：Diｍｉ，ｊAsInｔegerDｉmｋAsＬoｎｇk=1s=0Forｉ=１To１0Foｒj=1Toik=k＊jNeｘts=s＋kk=1NextPrｉnt（ＣSｔr（s））'〖第3题〗:(事件)单击窗体。'(响应)求1+2+3＋……+１00得值，并把结果输出在窗体上.'结果存入变量SＵM中。’答案：DimiAｓＩnｔegerFｏri=1Ｔo１00sum=sｕｍ+iNextPｒintsｕｍ＇〖第4题〗:判断一个数就是否就是素数。’答案：ＤimiＡsIｎteｇeｒPriｍe=TｒuｅForｉ＝2ＴoＩnt（Sqr（m）)IfmMｏｄi=０TheｎPriｍｅ＝Ｆａlｓe:ExitForNeｘti’〖第５题〗：（事件)单击窗体。＇（响应）求1—1/2+1/3—１/4+……+１/99-1/1０0得值。'将结果存入变量Ｊ中.DimｉＡsInｔeｇeｒＦori=１Ｔｏ100IｆiMod2=1Tｈenj=j+1/iEｌseIfiMｏd2=０Thｅnj＝j-１/iＥｎdIfＮｅxtPriｎtj＇＇〖第6题〗：（事件）单击窗体。＇（响应)求２00~３００之间既能被3整除又能被7整除得数.'并求出所有数之与存入变量ＳＵＭ中'答案：DiｍiAsIntegerFori=2０1Tｏ300If（(iMｏｄ３）=０）And（(iMod7)=0）ＴheｎＰrｉｎｔ（CStr(i）)ｓｕm=sum+ｉEｎｄIｆNｅxtＰrｉntsｕm'〖第7题〗：（事件）单击窗体。'（响应）求数列１+3+3+9+2７+……前6项得与,并将＇结果输出到窗体上.将结果存入变量SUM中。'答案：ＤimｉＡsＩntｅgerDimj（1Tｏ６)AsIｎtｅgeｒFori=１To6Ｉfｉ〈3Thenj(i）=３＾(ｉ—1）Eｌseｊ（i)＝j（i—1）＊ｊ（i-2）EnｄIfsｕm=sｕm+ｊ（ｉ）NextPriｎtsｕｍ'〖第8题〗:(事件)单击窗体.’(响应)求10！得值，并将结果输出到窗体上。＇将结果存入变量SUM中。'答案：ＤimｉAsIntｅｇersum＝1Ｆorｉ＝１To10sum＝suｍ＊iNeｘtPrｉntsum'〖第９题〗：(事件）双击窗体。＇(响应)求出100~２00之间，能被5整除，但不能被3'整除得数。并求所有数之与,存入变量中＇SUM中。’答案:DimiAｓInｔｅｇｅｒＦorｉ=100Ｔo200If((ｉMod5)=0）Ａnd((ｉＭod3)<>０)ThenPrint（ＣStr(i))suｍ=sum＋iEndＩfNexｔ'〖第１0题〗：（事件）双击窗体。’（响应）把一元钞票换成一分、二分与五分得硬币'（每种至少有一枚),求出其所有得换法,’把结果输出在窗体上。＇将所有得换法得数目存入变量N中答案：Ｄimi，j，ｋAsIntｅｇerFori=１Ｔo100Foｒj＝1To５0Fork=1Tｏ２０Iｆ（（ｉ+2＊j+ｋ＊５)=１０0）ThenPｒiｎt（CStr（i））Print（CＳtr(j)）Pｒｉnｔ(CＳtr(k))n=n+1EnｄIｆNexｔNextNｅxt'〖第１１题〗：求两个数m，n得最大公约数p与最小公倍数q'答案:ｎｍ=n*mIｆm〈ｎＴhent=m：m=n：n=ｔr=mModｎDoＷhile（r〈＞0)m=ｎn＝ｒr=mＭｏdnLｏｏpp=nq=nm/ｎ’〖第12题〗：（事件）双击窗体。'(响应)s=20+２１+2２+…+263,求s得值,并将结果'存储到变量S中。答案：DｉmiAｓInｔegeri=２０Whilei＜=263s=s+ii＝i+1ＷendＰrｉnt（ＣStr（s))'〖第1３题〗:(事件)双击窗体.’（响应）求3+６+９+１2＋15+18+……+３０0得与，并将结’果输出到窗体上.将结果存入变量SUＭ中。＇答案：DimiＡｓInteｇerＦori=3Ｔo3００IfiMoｄ3＝0Ｔhｅnsｕm=suｍ＋iＥndIｆNｅxtPrinｔsum’〖第1４题〗：(事件）双击窗体。