Visual Basic 2010 建立Sub程序－電腦學習園地

程序是使用Sub和End Sub包圍的程式區塊，在Sub關鍵字後是程序名稱，程序並沒有傳回值。

在Visual Basic程式建立程序的語法，如下所示：

[Public | Private] Sub 名稱

程式區塊

End Sub

上述Sub指令前的Public或Private是存取修飾子。

程序名稱的命名和變數名稱相同，在同一個模組不能使用相同的程序名稱。例如：顯示書名的程序，如下所示：

Sub ShowTitle()
Dim msg As String
        msg = "Visual Basic 2010程式設計"
lblOutput.Text = msg & vbNewLine
End Sub

在程式碼呼叫程序是使用Call指令，只需在其後加上程序名稱即可，如下所示：

Call ShowTitle()

上述程序呼叫因為程序沒有參數，也可以省略括號，或不使用Call關鍵字也可以，如下所示：

ShowTitle

範例：

所以在Form1_Load寫入：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call Sum100() '呼叫程序
    End Sub
End Class
或省略Call關鍵字也可以：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Sum100() '省略Call也能呼叫程序
    End Sub
End Class
因此完整的程式碼如下：
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Sum100() '呼叫程序
    End Sub
    Sub Sum100()
        Dim S As Integer
        For i As Integer = 1 To 100
            S += i
        Next
        MsgBox(S)
    End Sub
End Class