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，然後循環結束）