新觀念的VB6教本ppt課件

1、GoTo L40Print 10Print 20Print 30Print 40L40:跳到標記為 L40 的敘述標記為 L40 的敘述標記Label_1： Print Hello, VB!用 : 號將標記與敘述分開標記名稱Private Sub Command1_Click()L10: A = 100 B = A*3 GoTo L10 GoTo 跳到前面的敘述End SubPrivate Sub Command1_Click()L10: A = 100 B = A*3 GoTo L10 GoTo 跳到前面的敘述End SubPrivate Sub Command1_Click()I% = 1

2、L20:Print I%I% = I% + 1 無窮迴圈GoTo L20End Sub這是什麼意思呢？Private Sub Command1_Click() I = 1L10: Print I I = I + 1 If I = 10 Then GoTo L10End SubI 小於等於 10 才跳回 L10，不然就向下執(zhí)行L10: A = Val(InputBox(請輸入數(shù)學(xué)成績(0100) If A 100 Then Goto L10If 條件式 Then 敘述 1 敘述 2 敘述區(qū)塊 ： End If將整個敘述區(qū)塊後退幾格，讓程式更容易閱讀If I 10 Then Print I I =

3、 I + 1 GoTo L10End IfIf 條件式 Then 敘述 Else 敘述條件式成立否則If 條件式 Then 敘述區(qū)塊 1Else 敘述區(qū)塊 2End If條件式成立否則 End IfEnd SubIf 條件式 1 Then If 條件式 2 Then 敘述區(qū)塊 1-1 Else 敘述區(qū)塊 1-2 End If 其他敘述 ：Else 敘述區(qū)塊 2End If敘述區(qū)塊 1If 裡面又有 If, 形成了巢狀 If 敘述Private Sub Command1_Click()L10: N = Val(InputBox(“請輸入一正整數(shù)) If N 0 Then MsgBox “請輸入正

4、整數(shù)! : Goto L10 If N 100 Then 判斷能否小於三位數(shù) If N 10 Then 判斷能否為一位數(shù) Print N; “一位數(shù) 敘述區(qū)塊 1-1 Else Print N; “二位數(shù) 敘述區(qū)塊 1-2 End If Else Print N; “三位數(shù)(含)以上 敘述區(qū)塊 2 End IfEnd SubIf 條件式 1 Then 敘述區(qū)塊 1ElseIf 條件式 2 Then 敘述區(qū)塊 2：ElseIf 條件式 N Then 敘述區(qū)塊 NElse 敘述區(qū)塊 N+1End If條件 1 成立，執(zhí)行敘述區(qū)塊 1條件 1 不成立，但條件 2 成立，執(zhí)行敘述區(qū)塊 2條件 1N-1

5、 都不成立，但條件 N 成立，執(zhí)行敘述區(qū)塊 N以上條件都不成立，執(zhí)行敘述區(qū)塊 N+1If N 10 Then Print N; 一位數(shù)ElseIf N 100 Then Print N; 二位數(shù)ElseIf N = 18 age 18，都符合這個條件，都符合這個條件 S = 限制級限制級 End Select Print age; 歲可看歲可看; S; 電影電影End Sub For I = 1 To 10 Print INext IFor 計次變數(shù)計次變數(shù) = 起始值起始值 To 終止值終止值 Step 步進值步進值 敘述區(qū)塊敘述區(qū)塊Next 計次變數(shù)計次變數(shù) For I = 1 To 10

6、Next I步進值終止值I+1I10?I10?I+1I+1I+1I+12I10?I10?I10?111093I 值起始值1I10?脫離迴圈For I = 3 To 25 Step 6 Print INext I For I = 10 To 1 Step -1 Print INext IFor I = 10 To 1 Step -1 Print INext IFor I = 10 To 1Step -1Next I步進值終止值I+(-1)I1?I1?I+(-1)I+(-1)I+(-1)9I1?I1?012I 值起始值10I1?脫離迴圈Sum = 1+2+3+4+5+6+7+8+9+10+11+1

7、2+13+14+15+16+17+18+19+20Print Sum)Sum = 0Sum = Sum + 1Sum = Sum + 2KSum = Sum + 20Sum = Sum + 1 + 2 + K 20Sum = 0 For I = 1 To 20 Sum = Sum + I Next IPrint Sum Sum = 0 For I = 1 To 301 Step 3 Sum = Sum + I Next IPrint Sum While 條件式 敘述區(qū)塊WendI = 1While I = 10 只需只需 I 10，就繞迴圈執(zhí)行，就繞迴圈執(zhí)行 Print I I = I + 1

8、WendPrivate Sub Command1_Click() N = 0 先假設(shè)是先假設(shè)是 0 次方次方 While 2N 2048 2 的的 N 次方還沒達到次方還沒達到 2048 N = N + 1 添加添加 1 次方，再試試看次方，再試試看 Wend Print 2048 是是 2 的的; N; 次方次方End Sub Private Sub Command1_Click() X = InputBox(“請輸入指令請輸入指令) While X “quit 假設(shè)輸入假設(shè)輸入 “quit，即，即進入迴圈進入迴圈 MsgBox “您輸入了您輸入了 + X X = InputBox(“請輸入

9、指令請輸入指令) 繼續(xù)讀取繼續(xù)讀取資料資料 Wend MsgBox 您輸入了您輸入了 quit，再見！，再見！End SubWhile 條件式 敘述區(qū)塊Wend脫離迴圈或繼續(xù)執(zhí)行的條件式 敘述繞行迴圈 敘述Do 敘述區(qū)塊Loop作用是回到 Do 的位置，即繞行迴圈I = 1I = 1DoDo Print I Print I I = I + 1 I = I + 1LoopLoopWhile 表示表示 只需只需，就，就Until 表示表示 做做，直到，直到 Do While 條件式條件式 敘述區(qū)塊敘述區(qū)塊Loop Do 敘述區(qū)塊敘述區(qū)塊Loop Until 條件式條件式 I = 1Do While

10、 I 10 直到直到 I 10 為止，為止， 也就是也就是 I 10 時，脫離迴圈。時，脫離迴圈。 I = 11Do While I 10 也是第一次判斷也是第一次判斷, 條件式就不成立條件式就不成立, 但迴圈內(nèi)的敘述至少執(zhí)行過一次。但迴圈內(nèi)的敘述至少執(zhí)行過一次。 Do ： Exit Do ： Loop直接脫離迴圈，不再執(zhí)行 Exit Do 及 Loop之間的敘述Do ： If 條件式條件式 Then Exit Do ：LoopI = 1Do Print I If I = 10 Then Exit Do 當(dāng)當(dāng)I=10 時時,立刻跳出立刻跳出,不再執(zhí)行不再執(zhí)行以下敘述以下敘述 I = I + 1

11、LoopFor I = 1 To 3 Print 外迴圈變數(shù); I For J = 1 To 3 Print , 內(nèi)迴圈變數(shù); J Next J PrintNext I內(nèi)迴圈外迴圈外迴圈變數(shù)外迴圈變數(shù) 1 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 1 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 2 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 3外迴圈變數(shù)外迴圈變數(shù) 2 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 1 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 2 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 3外迴圈變數(shù)外迴圈變數(shù) 3 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 1 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 2 內(nèi)迴圈變數(shù)內(nèi)迴圈變數(shù) 3 For I = 1 To 5 Print I =; I, J =; For J = 1 To I 內(nèi)迴圈的執(zhí)行次

12、數(shù)，由內(nèi)迴圈的執(zhí)行次數(shù)，由外迴圈外迴圈 Print J; 變數(shù)變數(shù) I 的值來控制。的值來控制。 Next J PrintNext II = 1 J = 1I = 2 J = 1 2I = 3 J = 1 2 3I = 4 J = 1 2 3 4I = 5 J = 1 2 3 4 5Private Sub Command1_Click() V = 10000 本金本金 I = 0.07 年利率年利率 S = V * (1 + I) 計算總金額計算總金額 Print SEnd Sub箭號表示下一個執(zhí)行的敘述按下 F8,箭號即會移到下一個敘述。Private Sub Command1_Click() V = 10000 I = 0.07 S = V *