文档介绍：程序设计〖第1题〗『程序设计』(5分)(题号:148)'题目:(事件)单击窗体。'(响应)求10~20之间所有素数的乘积并输出在窗体上。'将结果存入变量L中。'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegerDimjAsIntegerDimbAsBooleanl=1b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)----------------------〖第2题〗『程序设计』(5分)(题号:150)'题目:(事件)单击窗体。'(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。'将结果存入变量J中。'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj----------------------〖第3题〗『程序设计』(5分)(题号:131)'【程序设计】'题目:(事件)单击窗体。'(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,'结果输出在窗体上。'将结果存入变量S中答案:----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)----------------------〖第4题〗『程序设计』(5分)(题号:152)'【程序设计】'题目:(事件)双击窗体。'(响应)求1+2+3+5+8+13+……前20项的和,并将结'果在窗体上输出。将结果存入变量SUM中。'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegerDimj(1To20)AsIntegerFori=1To20Ifi<3Thenj(i)=iElsej(i)=j(i-1)+j(i-2)EndIfsum=sum+j(i)NextPrintsum----------------------〖第5题〗『程序设计』(5分)(题号:157)'【程序设计】'题目:(事件)单击窗体。'(响应)求10!的值,并将结果输出到窗体上。'将结果存入变量SUM中。'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum----------------------〖第6题〗『程序设计』(5分)(题号:489)'题目:(事件)单击窗体。'(响应)已知sum=1-1/3!+1/5!-1/7!+1/9!,'请将sum结果值输出到窗体上。'使用dowhile...loop语句完成程序'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=10p=p*iIfiMod2=1Then n=n+1 sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum----------------------〖第7题〗『程序设计』(5分)(题号:154)'【程序设计】'题目:(事件)单击窗体。'(响应)求100以偶数的和,并将结果输出在窗体上。'将结果存入变量SUM中'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum----------------------〖第8题〗『程序设计』(5分)(题号:134)'【程序设计】'题目:(事件)双击窗体。'(响应)s=20+21+22+…+263,求s的值,并将结果'存储到变量S中。'注意:请在指定的事件编写代码。答案:----------------------DimiAsIntegeri=20Whilei<=263s=s+ii=i+1WendPrint(CStr(s))----------------------〖第9题〗『程序设计』(5分)(题号:142)'【程序设计】'题目:(事件)单击窗体。'(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果,'并将结果输出到窗体上。'将结果存入变量M中'注意:请在指定的事件编写代码。答案:--------------