麻辣家族討論版版 - Powered by Discuz! Board

標題: Visual Basic 新手教學之程序與函數 [打印本頁]

作者: 呆呆 時間: 2010-5-24 23:21 標題: Visual Basic 新手教學之程序與函數

本帖最後由呆呆於 2010-5-29 18:09 編輯

程序與函數

程序
一般而言,如果我們常做某一件事,那這件事情的程式碼就可以寫在一個程序中,每當我們要做這件事時就可以呼叫這個程序
程序一般而言會有下列的語法
1. Sub 程序名稱()
2. '你要做的事
3. End
複製代碼
以下程式碼可以求出1+2+3....+10
1. Public Class Form1
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3. 求總和()
4. End Sub
6. Sub 求總和()
7. Dim 總和 As Integer = 0
8. For i As Integer = 0 To 10
9. 總和 = 總和 + i
10. Next
11. MessageBox.Show(總和.tostring)
12. End Sub
13. End Class
複製代碼
我們呼叫程序時只要在程式碼上鍵入程序名稱就可以了,這樣的話,如果我們想要1到10的加總,就可以一直利用求總和這個程序了,這樣不是很方便嗎
但就有人想到了,我這樣只能求1加到10,那麼我想一加到任意數呢或者是連續的整數總和呢那要怎麼辦,當然,這裡就裡供了定義這種程序的語法
Sub 程序名程(byval 變數1 as 型態 ,byval 變數2 as 型態,.........,byval 變數n as 型態 )
End sub

因此我們就可以在呼叫程序時利用傳入變數的方法讓程序內部可以利用這個變數來做事以下為範例
1. Public Class Form1
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3. 求總和(-10, 100)
4. End Sub
6. Sub 求總和(ByVal 起始值 As Integer, ByVal 終止值 As Integer)
7. Dim 總和 As Integer = 0
8. For i As Integer = 起始值 To 終止值
9. 總和 = 總和 + i
10. Next
11. MessageBox.Show(總和.ToString)
12. End Sub
14. End Class
複製代碼
事實上傳入變數分為二種,一種是傳值,另一種是傳址,我們上面用的是傳值,起始值是-10,終止值是100
這二種有什麼不同呢,以下為程式碼
1. Public Class Form1
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
4. Dim 起始值 As Integer = -10
5. Dim 終止值 As Integer = 100
6. Dim 總和 As Long = 0
8. 求總和(起始值, 終止值, 總和)
10. MessageBox.Show("起始值 =" & 起始值 & vbCrLf & "終止值 = " & 終止值 & vbCrLf & "總和=" & 總和.ToString)
12. End Sub
14. Sub 求總和(ByVal 起始值 As Integer, ByVal 終止值 As Integer, ByRef 總和 As Long)
16. For i As Integer = 起始值 To 終止值
17. 總和 = 總和 + i
18. Next
20. 起始值 = 1000
21. 終止值 = 1000
22. MessageBox.Show("起始值 =" & 起始值 & vbCrLf & "終止值 = " & 終止值 & vbCrLf & "總和=" & 總和.ToString)
23. End Sub
25. End Class
複製代碼
我們由結果很快的就可以了解,總和這個變數我們是傳址的,也就是說,在主按鈕程序中的總和變數其實是和程序求總和中的總和變數是共用同一位址
因此當我們修改了求總和程序中的總和變數那就會連同按鈕程序內的總和變數一起修改,也就是傳址(byref)
然而,傳值(byval)是不一樣的,我們在求總和程序中修改了起始值和終止值的值,結果按鈕內的起始值和終止值的結果依然不變 ,比較簡單的說法是
如果你想要你傳入程序中的變數值在程序結束後會改變其結果那就應該傳址(byref),如果不想,那就應該傳值(byval),另外,如果你傳的是參考型別,那不論是傳值或是傳址都一樣是參考到位址
1. Public Class Form1
3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
4. Dim 陣列() As Integer = {1, 2, 3, 4, 5}
5. 修改陣列值(陣列)
6. For Each 元素 As Integer In 陣列
7. MessageBox.Show(元素.ToString)
8. Next
9. End Sub
11. Sub 修改陣列值(ByVal 修改後陣列() As Integer)
12. For i As Integer = 0 To 修改後陣列.GetUpperBound(0)
13. 修改後陣列(i) = i + 10
14. Next i
15. End Sub
16. End Class
複製代碼
由以上的結果可知,就算是傳值,對於陣列而言,一樣會修改陣列中的值,只因為陣列是參考型別
函數
程序實際上並不能傳回值,我們有時候在程序執行完時想要有一些值回傳,這時候就需要函數
定義函數的語法如下

Function 函數名稱(ByVal 引數一 As 型態, ByVal 引數二 As 型態) As 型態
Return 變數
End Function
和程序不同的是,函數一定要傳回值,該回值的型態一定要和函數本身定義的型態相同
我們改寫上面的例子如下
1. Public Class Form1
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3. MessageBox.Show(求總和(-10, 100).ToString)
4. End Sub
5. Function 求總和(ByVal 起始值 As Integer, ByVal 終止值 As Integer) As Integer
6. Dim 總和 As Integer = 0
7. For i As Integer = 起始值 To 終止值
8. 總和 = 總和 + i
9. Next
10. Return 總和
11. End Function
12. End Class
複製代碼
很清楚的我們可以看到函數本身就可以有值

另外,函數本身亦回傳陣列以下為例
1. Public Class Form1
3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
5. For Each 元素 In 回傳多個值()
6. MessageBox.Show(元素.ToString)
7. Next
9. End Sub
11. Function 回傳多個值() As Integer()
13. Dim 回傳陣列() As Integer = {1, 2, 3, 4, 5}
14. Return 回傳陣列
16. End Function
18. End Class
複製代碼

程序和函數都可以有多載,所謂的多載就是同樣的函數/程序名稱 ,但內部定義不同
,會有這種的方法主要是方便我們只要定一個函數/程序名稱就可以做出不同的方法
多載的語法為只要在函數/程序之前加一個Overloads 就可以

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim 餐具 As String = "筷子"
飲食(餐具)
飲食()
End Sub
Sub 飲食(ByVal 餐具 As String)
MessageBox.Show("台灣人用" & 餐具 & "吃飯")
End Sub
Overloads Sub 飲食()
MessageBox.Show("印度人用右手將飯捏成一團來吃")
End Sub
End Class

複製代碼

作者: hugh0620 時間: 2011-6-20 13:32

其實我最近在新學vb2010
對於樓主文中提到的
Sub 程序名程(byval 變數1 as 型態 ,byval 變數2 as 型態,.........,byval 變數n as 型態 )
有些疑問~
這邊樓主的文中是將[byval 變數1 as 型態]先愛sub中先指定
這與在程式中去指定 Dim 變數1 as integer(型態)
有何差異性呢??

作者: alex_wu 時間: 2012-5-31 23:32

VB與Excel VBA 語法好像.
不好意思我是新手,請問二者差在那裡呢?

作者: alumi 時間: 2012-6-1 00:56

其實我最近在新學vb2010
對於樓主文中提到的
Sub 程序名程(byval 變數1 as 型態 ,byval 變數2 as 型態,.. ...
hugh0620 發表於 2011-6-20 13:32

sub 後面byval 接的變數, 是可以接受外來資料傳遞, 但變數值若在 sub 裡面有被異動, 是不會傳回去. 若要傳回去, 請改成 byRef.
而在 sub 裡面所宣告的變數, 大都是區域變數.

作者: vuptp6 時間: 2019-2-23 20:19

sub 後面byval 接的變數, 是可以接受外來資料傳遞, 但變數值若在 sub 裡面有被異動, 是不會傳回去. 若要傳 ...
alumi 發表於 2012-6-1 00:56

敢問大大
所以接在sub後面的變數是通用在全域的嗎
小的也是自學的新手
麻煩指教

作者: cslu37 時間: 2019-3-19 14:26

請問大大：
我複製了最後一個"餐具"的語法，並貼到Module1，但...在Excel表格都是空白的啊...
是有對應的格子(如A1 或 A2)嗎? 還是我需要按什麼按鍵嗎@@?

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)