Pozivanje potprograma

Kada pišete program bitno je da uočite koji od njegovih delova mogu biti ponovo upotrebljeni, pa da na osnovu njih kreirate potprograme koji će biti pozivani u okviru glavnog programa. Potprogrami mogu da budu funkcije i procedure. Funkcije pozivamo tako što navedemo naziv promenljive, znak jednakosti, pa zatim navedemo ime funkcije sa argumentima. Procedure pozivamo pomoću naredbe Call, nakon koje navodimo ime procedure sa argumentima.

Kreirali smo jedan jednostavan program koji se sastoji iz glavnog programa (Main) koji poziva funkciju (P2) i proceduru (Swap). Funkcija P2 računa kvadrat zadate promenljive, dok funkcija Swap menja mesta dve zadate promenljive. U glavnom programu najpre treba da dodelimo vrednosti dvema promenljivim, gde je druga kvadrat od broja dva. Zatim pozivamo proceduru Swap kako bi smo im zamenili mesta, a rezultat vidimo nakon prikaza njihovih vrednosti.

Function P2 (a As Integer)

a = a ^ 2
P2 = a

End Function

Sub Swap (a, b As Integer)

Dim temp As Integer
temp = a
a = b
b = temp

End Sub

Sub Main ()

Dim x, y As Integer
x = 3
y = P2(2)
Call Swap(x, y)
MsgBox x
MsgBox y

End Sub