用vb编程实现把1--80之间的所有能被3 整除的整数相加求和,并输出结果.

你好,可以这样编程]#includeintmain(){inti,sum=0;//定义循环变量和存放求和的变量sumfor(i=1;i

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

publicclasstest3{publicstaticvoidmain(String[]args){Scannerscan=newScanner(System.in);System.out.pri

1su=0;fori=1:100ifmod(i,5)==0su=su+i;endendfprintf('所求和为：%d',su);2a=1;b=10;disp('x(1)=1\nx(2)=10');f

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

话说楼上的已经很好了,还要在做什么?算了,给你个实例吧,添加一个command按钮,输入以下代码OptionExplicitPrivateSubCommand1_Click()DimresultAsL

privatesubform_click()dimnaslongdimxasstringdimyasstringfori=1000to9999x=mid(i,1,2)y=mid(i,4,1)&mid(

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

1.不明白你是什么意思2.逆序输出PrivateSubText1_Change()Text2=Right(Text1,1)&Left(Text1,1)EndSub3.华氏转摄氏PrivateSubTe

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

sum=0fori=1to13product=0forj=1toiproduct=product*jnextjsum=sum+jnexti再答：不好意思，Pad打错了，product=0应改为prod

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc

#include#includevoidmain(){inta[10];inti,j,temp;cout

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS

t=[-1:0.001:1];y=sin(1/t);plot(t,y)这样就行了!再问：还是提示有错误我自己也是这样编的关键是t=0的时候怎么弄再答：>>y=1./t;>>t=[-1:0.001:1]

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton