i)/b(i)s=s+c(i)NextPrints第十五题题目:(事件)单击窗体(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中。代码:DimsumAsIntegersum=0Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextPrintsum第十六题题目:(事件)双击窗体(响应)求出100~200之间,能被5整除,但不能被3整除的数。并求出所有数之和,存入变量SUM中代码:DimsumAsIntegersum=0Fori=100To200IfiMod5=0AndiMod3<>0Thensum=sum+iEndIfNextPrintsum第十七题题目:(事件)双击窗体(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中代码:DimsAsIntegers=0t=1Fori=1To5t=i*tSum=sum+tNextPrintSum第十八题题目:(事件)双击窗体(响应)求3+6+9+12+15+18+…..+300的和,并将结果输出到窗体上。将结果存入变量SUM中代码:DimsumAsIntegersum=0Fori=3To300Step3sum=sum+iNextiPrintsum第二种方法:当step为2的时候:DimsAsIntegerDimiAsIntegerFori=2To50Step2s=s+iNextiPrints第十九题题目:(事件)单击窗体(响应)求10!的值,并将结果输出在窗体上。将结果存入变量SUM中代码:DimsumAsLongDimiAsIntegersum=1Fori=1To10sum=i*sumNextPrintsum第二十题题目:(事件)单击窗体(响应)求出100以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中
全文预览
