vb循环语句55555 4444 333 22 1

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

你是要找出100以内被4整除的数吗下面是这样的例子（用VBA写的）：Subtest()DimiAsIntegeri=4DoWhilei

iffornext

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

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

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

我也才学vb假如是fort=1to10step1那么t的取值就是1、2、3、4、5、6、7、8、9、10；如果step2那么t的取值是1、3、5、7、9；如果是step3那么t取值是1、4、7、10；

fori=3to10000‘查找质数forj=2toi-1x=imodjifi<>0thenexitfor'如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

i=100dowhilei

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

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

'第1题：DimxAsIntegerDimMaxIAsIntegerDimiAsIntegerx=InputBox("请输入第1个整数")MaxI=xFori=2To10x=InputBox("请输入

forx(循环变量)=1(初始值)to10(终止值)step2(步进)next以上为完整的循环结构1.没有终止值所以错3.初始值比终止值小所以步进应该为整数而它是负数所以也错4.初始值大于终止值默认步

给你做到第4题吧：Private Sub Command1_Click()    Dim i As Long,

1、行IF语句在一行中写完的IF语句,称为行IF语句.语句格式：IFTHEN[ELSE]命令功能：当条件满足时,执行语句1,条件不满足时,则执行语句2.例子：输入x,判断x的正负.程序编制如下：Dim

sqr(n)是指n的平方跟从2到根号n,用来找素数素数肯定从2开始,然后a=根号a*根号a超过根号a就重复计算了再问：那使用sqr(n)有什么好处？或者说和其他的取值方式比有什么区别？为什么不用for

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

数值0等同于布尔值常量的False,而DoUntil则是当表达式为真时跳出循环,这与DoWhile刚好相反,所以:DoUntil0相当于DoUntilFalse相当于DoWhileNot(False)

把If和Msgbox写在统一行,是默认为没有EndIf的条件句,把换行Msgbox写入If和EndIf中间即可ElseIf方式：IfCI=1ThenMsgBox"第五位数字是"&PcEElseIfCI