Örnek :
Form1_Declaration Event’ına aşağıdaki Kod’u yazalım.
Sub kare()
Dim a,
b As Integer
a = InputBox("Sayıyı
Gir")
b = a * a
MsgBox(a & " sayısının karesi :" & b
End Sub
Form’un
Load olayına da aşağıdaki kodu yazalım:
Call
kare()
=========================================================================
Şimdi de girilen üç sayının ortalamasını alan
Sub Procedure’ünü oluşturmak
için¸ Form1_Declaration Event’ına aşağıdaki
kodu yazalım;
Sub ortalama(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
Dim
ortalama As Integer
= (a + b + c) / 3
MsgBox(" Sayıların Ortlaması : " &
ortalama)
End Sub
Bu kodu
çağırmak için aşağıdaki kodu Button’un_Tıklama olayına yazalım.
ortalama(50, 30,
90)
================================KADİR SELEN==========================================