【正文】 “ i=“ , i )1( ?? ?步長 初值終值循環(huán)次數(shù) Int3 程序： Private Sub Form_Click() For i = 1 To 5 Print Tab(i)。 Print Spc(6)。 Sub mult() Dim sum As Integer Dim i as integer sum=0 For _______ to 50 If i Mod 2=_______ Then ______________ Next i Print sum End Sub !1019...35231 ????！！例題：i=2 0 sum=sum+i ??101!nn例題：（二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 21. Do… Loop循環(huán)語句 (用于控制循環(huán)次數(shù)未知 ) 形式 1：（當型循環(huán)） Do { While}條件 語句塊 [Exit Do] 語句塊 Loop 形式 2： (直到循環(huán)） Do 語句塊 [Exit Do] 語句塊 Loop { While} 條件 表達式列表 F T Exit Do 語句塊 語句塊 T F Exit Do 語句塊 語句塊 表達式列表 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 22. Do… Loop循環(huán)語句 (用于控制循環(huán)次數(shù)未知 ) 形式 1：（當型循環(huán)） Do {Until }條件 語句塊 [Exit Do] 語句塊 Loop 形式 2： (直到循環(huán)） Do 語句塊 [Exit Do] 語句塊 Loop {Until} 條件 表達式列表 T F Exit Do 語句塊 語句塊 F T Exit Do 語句塊 語句塊 表達式列表 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 例：下列程序段的運行結果是： Sub sel() Dim n as Integer i=21:n=3 Do Until i n i=in Loop Print “ i=“ 。 N = Val(InputBox(請輸入大于零的偶數(shù) )) s = 0 i = 1 c = 1 Do s = _______________ c = ________ i = i + 1 Loop While i = N Print s s + c*(i*10+2) c )...(35231 精度為！！例題： ???（二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 3. while… ..wend語句 使用格式如下： While 條件 循環(huán)塊 Wend 說明：該語句的功能與 Do While 條件 … .Loop實現(xiàn)的循環(huán)完全相同 。 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC ? Private Sub Command1_Click() ? 循序結構 —— 賦值語句、輸入輸出語句 ? 分支結構 —— 單分支結構（ if then） ? 雙分支結構（ if then else） 多分之結構 ? 循環(huán)結構 —— do… loop、 for … .next ? while … .wend ? End Sub 程序的基本結構與過程 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC ? 函數(shù)與過程定義及其相互調(diào)用 ? 形參與實參的相互關系及差別 ? 參數(shù)傳遞的 2種方式 ? 變量的作用域 ? 多種變量類型與參數(shù)傳遞的復雜程序分析 函數(shù)過程及作用域 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC （一）過程概述 在 ，除了系統(tǒng)提供的內(nèi)部函數(shù)過程和事件過程外，用戶可自定義過程下列兩種過程： ▲ “ Sub” 保留字開始的為子過程 ▲ “ Function” 保留字開始的為函數(shù)過程 子過程和函數(shù)過程的區(qū)別： ? 函數(shù)過程有返回值。 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC （二）子過程及函數(shù)過程的定義形式 [Static][Public|Private]Sub 子過程名 [(參數(shù)列表 )] 局部變量或常數(shù)定義 語句 End Sub [Static][Public|Private]Function 函數(shù)過程名 ([參數(shù)列表 ]) [As 類型 ] 局部變量或常數(shù)定義 語句 函數(shù)名 = 返回值 End Function 語句 [Exit Sub] 語句 語句 函數(shù)名 = 返回值 [Exit Function] 語句 函數(shù)名 = 返回值 例：課本 P96 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 過程的分類 ? 過程分為 自定義過程 與 事件過程 ，區(qū)分的關鍵在于過程的名稱。 父過程 中參數(shù)列表稱為 實參或?qū)嵲?，它必須與形參保持 個數(shù)相同 ， 位置與類型 一一對應。 ? 傳址與傳值 傳址： 形參得到的是實參的地址，當形參值的改變同時也改變實參的值。 形式一： Sub Change1(ByVal x%, ByVal y%) t% = x: x = y: y = t End Sub 形式二： Sub Change2(ByRef x%, ByRef y%) t% = x: x = y: y = t End Sub (圖示 ) （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 傳值 （形參前有 ByVal說明） 實參的值不隨形參的值變化而改變 Private Sub Command1_Click() a% = 10 b% = 20 call Swap1 (a, b) End Sub Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t End Sub 主過程中的變量的值不受影響 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 傳址 （形參前有 ByRef說明或者空缺） 實參的值隨形參值的改變而改變 Private Sub Command2_Click() a% = 10 b% = 20 call Swap1 (a, b) End Sub Sub Swap2(x%, y%) t% = x: x = y: y = t End Sub 主過程中的變量的值受到修改 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 例：單擊 Command1后的運行結果 Sub SS(ByVal X%, ByRef Y%, Z%) X = X + 1 Y = Y + 1 Z = Z + 1 End Sub Private Sub Command1_Click() Dim A%, B%, C% A = 1 B = 2 C = 3 Call SS(A, B, C) Print A。 C End Sub 1 3 4 （二） VB程序設計基礎 授課教師：葉夏 計算機應用基礎及 VBASIC 例：單擊 Command1后的運行結果 Sub SS(ByVal B%, ByRef C%, A%) A = A + 1 B = B + 2 C = C + 3 End Sub Private Sub Command1_Click() Dim A%, B%, C% A = 1 B = 2 C = 3 Call SS(A, B, C) Print A。 C End Sub 1 5 4 （二