2011年7月30日 星期六

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
張貼留言

LinkWithin

Related Posts Plugin for WordPress, Blogger...

熱門文章