Contoh program modular funsi dan prosedur

Contoh program modular funsi dan prosedur yang dibuat dengan visual basic

Sintaks :

Private Sub TulisTeks()
'PROGRAM MODULAR'
'DEKLARASI'
        
'DESKRIPSI'
    Label1.Caption = "Selamat datang di pemrograman modular"
End Sub

 Private Function JumlahAngka() As String
Dim angka1 As String, angka2 As String
Dim hasil As Single
angka1 = InputBox("Tulis angka 1 :", "Jumlah Angka")
angka2 = InputBox("Tulis angka 2 :", "Jumlah Angka")
If angka1 <> "" And angka2 <> "" Then
hasil = CSng(angka1) + CSng(angka2)
JumlahAngka = CStr(hasil)
End If
End Function

Private Sub Label1_DblClick()
Call TulisTeks("Hai", vbBlue)
End Sub

Private Sub Command1_Click()
Call TulisTeks
End Sub

Private Sub Command2_Click()
Label1.Caption = "Jumlah = " & JumlahAngka()
End Sub