正在进行安全检测...

发布时间：2023-10-30 17:30:14

一般程序设计习题'〖第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(mIfmModi=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=0And((iMod7=0ThenPrint(CStr(isum=sum+iEndIfNextPrintsum'〖第7题〗：(事件单击窗体。'(响应求数列1+3+3+9+27+……前6项的和，并将'结果输出到窗体上。将结果存入变量SUM中。'答案：DimiAsIntegerDimj(1To6AsIntegerFori=1To6Ifi<3Thenj(i=3^(i-1Elsej(i=j(i-1*j(i-2EndIfsum=sum+j(iNextPrintsum'〖第8题〗：(事件单击窗体。'(响应求10!的值，并将结果输出到窗体上。'将结果存入变量SUM中。
'答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum'〖第9题〗：(事件双击窗体。'(响应求出100~200之间，能被5整除，但不能被3'整除的数。并求所有数之和，存入变量中'SUM中。'答案：DimiAsIntegerFori=100To200If((iMod5=0And((iMod30ThenPrint(CStr(isum=sum+iEndIfNext'〖第10题〗：(事件双击窗体。'(响应把一元钞票换成一分、二分和五分的硬币'（每种至少有一枚），求出其所有的换法，'把结果输出在窗体上。'将所有的换法的数目存入变量N中答案：Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5=100ThenPrint(CStr(iPrint(CStr(jPrint(CStr(kn=n+1EndIfNextNextNext'〖第11题〗：求两个数m,n的最大公约数p和最小公倍数q'答案：nm=n*mIfmr=mModnDoWhile(r0m=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中。

正在进行安全检测...

推荐内容

相关推荐