vb设计程序,求1~100之间自然数的平方和.

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

.不是16是多少,你自己看啊.6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96正好16个啊

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

PrivateSubForm_Load()DimS,SUMAsIntegerDimiAsIntegerS=0SUM=0Fori=1To10S=S+(2*i-1)SUM=SUM+SNextDebug.P

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

dimiasintegerdimsumasintegeri=1方法1dowhilei100sum=sum+ii=i+1loop方法3dosum=sum+ii=i+1loopwhilei<100

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

Subtest()DimiAsInteger,sAsInteger,nAsIntegerFori=1To100s=s+iIfiMod19=0Thenn=n+1NextiMsgBox"1到100所有数的

#include"stdio.h"voidmain(){inti=1,m=0;for(i=1;i

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

给你自然语言和PASCAL语言各来一段吧.PASCAL的vari,j,sum:longint;beginfori:=1to100doifimod2=1thenbeginwriteln(i);//不想换

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

2500再问：过程，谢谢再答：1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500

1公尺=1m=3市尺=3.2808英尺PrivateSubCommand1_Click()Text2.Text=Text1.Text*3.2808EndSu

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo