vb编程循环结构

Ⅰ vb 循环结构

sum=0这句可以不写的
因为sum不写的时候系统给它的值就是0
fact=1这句必须的写
如果不写的话fact的值为0要知道0乘以任何一个数都是零
这样就得不到任意一个数的阶乘了
fact=fact
*
i
假如i为5
这句话的意思是
fact=1*1=1
fact=1*2=2
fact=2*3=6
fact=6*4=24
sum
=sum+fact
'这句的意思同上
只不过是把*改成了+

Ⅱ VB 循环结构

PrivateSubCommand1_Click()

DimnAsLong,iAsLong,jAsLong,sumAsLong

n=InputBox("输入N值")

j=2

sum=0

Fori=1Ton

sum=sum+j

j=j+2

Nexti

Print"前";n;"个正偶数的和为：";sum

EndSub

Ⅲ VB循环结构DO……LOOP

do while i>1 '当i>1的时候，循环体开始执行

i=i+1 ‘每次让i增加一个单位

if i>20 then ’增加i后判断i是否大于20

exit do ‘如果大于20，则跳出循环（exit do)

end if '不是，则绕出判断语句，继续执行循环

loop ’循环往复

Ⅳ VB程序里的循环结构怎么写

for i=起始值 to 终止值 step 阶值

next i
循环方式：判断起始值是否到终止值，每次在起始值上加 阶值（阶值 可正负），知道超出范围，退出；Exit for可中间退出for循环

dim i as integer
i=3
do while i>0（条件例：i>0,将会循环3次，然后结束退出）
i=i-1
loop

Ⅳ vb的几种循环结构是什么

1.While...Wend 语句
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第一种用法
用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True（非零）或 False（零）的表达式。
在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。
Do While condition
statements
..
Loop
2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：
Do
statements
Loop While condition
注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。
循环零次或多次
Do Until condition
statements
Loop
至少循环一次
Do
statements
Loop Until condition
3.For...Next
在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：
For counter = start To end [Step increment]
statements
Next [counter]
参数 Counter、Start、end 和 increment 都是数值型的。
注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。
实例：
以下代码打印出所有有效的屏幕字体名：
Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
Print Screen.Fonts (i)
Next
End Sub
4.For Each...Next
For Each...Next 循环与 For...Next 循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素， For Each...Next 循环非常有用。
For Each...Next 循环的语法如下：
For Each element In group
statements
Next elementt
例如，下面的子过程打开 Biblio.mdb，把每一个表的名字加到列表框中。
Sub ListTableDefs ()
Dim objDb As Database
Dim MyTableDef as TableDef
Set objDb = OpenDatabase("c:\vb\biblio.mdb", _
True, False)
For Each MyTableDef In objDb.TableDefs ()
List1.AddItem MyTableDef.Name
Next MyTableDef
End Sub
请记住使用 For Each...Next 时的几点限制：
对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。
对数组，element 只能是 Variant 变量。
For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。

Ⅵ 简单的VB编程，用循环结构

Private Sub Form_Click()
Dim n As Integer
Dim p As Double
n = 0
p = 0
While (1 / (2 * n + 1)) > 10 ^ (-4)
p = p + ((-1) ^ n) / (2 * n + 1)
n = n + 1
Wend
Form1.Print p * 4
End Sub

Private Sub Form_Click()
Dim n As Integer
Dim p As Double
n = 0
pi = 0
While (1 / (2 * n + 1)) > 10 ^ (-4)
If n Mod 2 = 0 Then
p = p+ 1 / (2 * n + 1)
Else
p = p - 1 / (2 * n + 1)
End If
n = n + 1
Wend
Form1.Print p * 4
End Sub

这里给你两种思路，你可以看着改一下，直接在窗体的click事件里写入代码就可以，p*4即为所得结果！希望对你有用，谢谢！

Ⅶ VB程序的循环结构，计算程序

结果是：
4
7
10
for
语句设置的i的步长为2，当i=2时，x=x+3即x=1+3=4,将此值打印出来，Next
i后，i的值为4，此时x=x+3=4+3=7,再将此值打印出来，再次Next
i后，i的值变为6，再次执行x=x+3=7+3=10，最后再将值打印出来，当再次next
i时，i的值已经编程8不满足
For语句的条件，i的值小于等于6的条件，所以退出For循环。

Ⅷ vb 编程循环结构

你这程序怎么这么乱 ，总共五层要循环六次，你到底想要几层，帮你改了一下
dim ceng as long
ceng=5 '层数，想要几层自己改
for i=1 to ceng
form1.print tab((i 加1)*2);’不知道你要什么效果，如果如你图所示，应去掉此行
for j=1 to (ceng-i)*2加1
form1.print "★";
next
form1.print
next
变态的网络，用手机加号发不上去，请自行替换

Ⅸ 计算机编程VB循环结构

For i = 3 To 1 Step -1 'i值从3减少到1，每次减少1
Print Spc(5-i); '打印5-i个空格，不换行
For j = 1 To 2*i - 1 'j值从1增加到(2*i-1)，每次增加1
Print"*"; '打印1个*，不换行
Next j '下一个j（1过后是2,2过后是3，……，2*i-1过后是2*i，然后循环结束）
Print '换行
Next i '下一个i（3过后是2,2过后是1,1过后是0，然后循环结束）