vb中一个简单for循环的问题

K=10的时候仍然符合循环要求，要进行一轮循环的。

vb的for循环语句 vb的for循环语句运行太慢vb的for循环语句 vb的for循环语句运行太慢


vb的for循环语句 vb的for循环语句运行太慢


vb的for循环语句 vb的for循环语句运行太慢


只有到了11时才不符合循环要求，继续执行Next之后的作。

因为k等于10时条件满足，循环继续执行，执行next k ，这时k的值等于11，不满足条件，循环结束。

初值为1，运行了十次，就是11

VB中的循环语句中的for... 是怎么用的?

for语句是循环语句，它的格式是：

For

变量=初值

To

终值

〔Step

步长]

循环体

Next

变量

如：

For

i=0

to

999

'这里省略Step说明步长为1

循环体

Next

i说明从0到999，循环1000次。

又如：

For

i=20

to

Step

-2

循环体

Next

i说明从20到0，以步长为-2，循环10次

你现在明白“For…To…”表示什么了吧！

VB语句中的for循环语句这么运用？

FOR 循环变量=初始值 TO 终止值 STEP 步长

语句内容

NEXT 循环变量

for a=1 to 10 step 2

msgbox "现在A="&a

next a

for i=0 to 11

msgbox "i=" & i

next

for i=11 to 0 step -1

msgbox "i=" & i

next i

在VB中 for 循环嵌套语句的用法语解释(必须清楚！！)

for

i=1

to

3for

n=1

to

2s=s+n

next

s=s+i

next

嵌套循环就是先把内循环执行完在执行外循环！

正如上面的代码所示，首先i=1

,然后n=1

to

3，s=0+1+2+3=6，然后通过next，s=6+i=6+1=7，通过第二个next，i=2，然后n=1

to

2，s=7+1+2+3=13，通过next，s=13+i=13+2=15s就是15了！

其实说的好记一点for是一个条件，next的意思就是返回到for那句和for的值加1，这个你可以理解吧。语言都是顺序执行的，next只是返回到它对应的for开头，知道超出for的范围就执行next下面的语句！

现在举例了，注意听讲：

形如：

For

i=0

to

3这里面是放置你要执行的代码(比如：Print

i)

Next

循环变量是i,初值=0，终值=3，步长也默认为1，循环次数也就是从0到3，为4.

在循环圈的时候，i为0，然后执行循环内的代码，当遇见Next后，又在循环.每循环一次，执行一次循环圈内的代码。此时的i为1了，一直这样，遇见Next后就循环回来。当i循环到终值时，也即是i=3后，就退出了循环圈。

vb,怎么算for循环，求举例详细解答

VB中的FOR语句比while语句和do-while都要灵活，是一种功能更大、更常用的循环语句，它的一般语法格式为：

for（表达式1;表达式2;表达式3）

循环体

Next

有两种流程：

流程1：

For i=0 to 9 '从1到9循环

Print i

Next i

流程2：

For i=0 to 9 setp2 '从1到9循环，步长为2

Print i

Next i

Jichi=0

For a= 1 to 3

For b= 1 to 3

Jichi=jichi+1

Next a

Next b

开始循环

A=1:b=1:jichi=1

A=1:b=2:jichi=2

A=1:b=3:jichi=3---B循环结束，继续A循环

A=2:b=1:jichi=4

A=2:b=2:jichi=5

A=2:b=3:jichi=6---B循环结束,继续A循环

A=3:b=1:jichi=7

A=3:b=2:jichi=8

A=3:b=3:jichi=9---B循环结束,A循环结束

双重循环jichi=9

VB的for循环该怎么写?

for…next循环如下：（在C盘根目录建立一个名字为1的文件夹，反复10次）Private Sub Command2_Click()

Dim i As Integer

For i = 1 To 10

Set

fso

=CreateObject("Scripting.fileobject")

fso.CreateFolder

("c:1")

Next

End Sub

Private Sub Command1_Click()

Text1 = ""

Dim a()

k = InputBox("请输入上限")

For i = 1 To k

If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0 Then

j = j + 1

ReDim Preserve a(j)

a(j) = i

End If

Next i

For i = 1 To j

Text1 = Text1 & a(i) & " "

Next i

End Sub

For i = 1 To k

If (i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0) Then

Debug.Print i

End If

Next i

For i = 0 To 100

If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <> 0) Then

MsgBox i

End If

Next i

关于vb for循环语句

很久没研究vb了，试着 给你解答下 吧，错了也别怨我

dim i%,s% ‘定义两个变量i跟s

s=0 ’初始化变量s

for i=1to100 step2 ‘指定i从1到100的循环运算，步进为2

s=s+i ’s循环累加i的值

next i ‘单步循环结束后继续下一次循环

计算结果就是1+3+5+7.....一直加到99的值

他已经解释了，我就不多说了

要显示可以有几种方法

最简单的就是print

可以加上一句：print s

或者新建一个label控件

在加上：

label1.caption =s

又或者新建一个text控件

在加上：

text1.text=s

dim i%,s% ‘ 定义两个变量i与s

s=0 ’初始化变量s

for i=1to100 step2 ‘指定i从1到100的循环运算，步长为2，也就是循环50次

s=s+i ’s循环求和，i每次加2，刚好是奇数

next i ‘继续下一次循环

text1.text=s ’在窗体中定义个文本框TEXT1，将求和的结果s赋给TEXT1的TEXT属性。就可以在窗体中显示出来了。