vb程序循环语句S＝1+2+3+4+5+6+7+8+9+10

用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.DimiAsInteger,nAsLong,sAsStringText8=""Adodc1.RecordSource

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

a是循环变量,b是初始值,c是步进数,即每循环一次a的值的变化量.n=Inputbox("n=")i=0s=0Fori=0toni=i+1s=s+iNextiPrintsPrivateSubComma

i=1j=1x=1i=2j=1x=2j=2x=3i=3j=1x=4j=2x=5j=3x=6i=4j=1x=7j=2x=8j=3x=9j=4x=10循环结束,此时x=10

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

inti,j;\x09intn,sum=0;\x09inttemp=1;\x09scanf("%d",&n);\x09for(i=1;i

OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI

s的初始值为32,经过若干次除以2之后变成2.32/2=1616/2=88/2=44/2=2也就是说要经过4次循环就可以了.如果步长为1,那么1to10一共要经过10次,超了.如果步长为2,那么1to

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

用什么语言,能用函数调用吗,还是只用for语句再问：给个答案怎么都成谢谢了再答：#include#includeusingnamespacestd;intmain(){unsignedintsum=0

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd

提问：1^2代表1的平方吧那下面照这个编.#include"stdio.h"voidmain(){longints=0;inti;for(i=1;i

dimsasdoubledimiaslongs=1.0fori=1to99if(imod2)=0thens=s/ielses=s*iendifnextiprints;

intindex=2;intcount=0;while(true){if(index%2==1&&index%3==1&&index%4==1)break;elseindex++;}总共count个

OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimaAsIntegerDimbAsIntegerDimcAsIntegerDimnAsIn

你没注明要什么语言.再问：matlab再答：MATLABfor(i=1:123)j=i+j;endj==================================================

第一种：s=0i=1dowhilei

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