Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Vytvorte názov podprogramu . Každý sub potrebuje meno . Podprogramy sú krstné mená , ale sú tiež definovaná ako " súkromné " alebo " verejná " . Súkromné podprogramy sú prístupné iba v rámci súboru triedy . Verejné podprogramy sú prístupné odkiaľkoľvek vo vašom kóde . Následne vám ukážeme , ako vytvoriť podprogram : 
 
 Public Sub ExponentSub ( ) End Sub 
 2 
 Pridať parametre do podprogramu . Parametre sú odovzdané z kódu do podprogramu . Tieto parametre sa používajú k tomu výpočty . V tomto príklade , " ExponentSub " podprogram robí exponenciálny výpočty . To vyžaduje základné číslo a počet opakovaní základné číslo sa násobí . Nasledujúci kód nastaví parametre pre podprogram : 
 
 Public Sub ExponentSub ( base_number As Integer , raise_number As Integer ) End Sub 
 3 
 Pridajte príkazy výpočtov v podprograme . Príkazy v podprograme sú nejaký súbor inštrukcií , ktoré dokončí svoje výpočty . Nasledujúci kód ukazuje , ako zvýšiť počet a vypočítať jej exponenciálny hodnotu : 
 
 Public Sub ExponentSub ( base_number As Integer , raise_number As Integer ) Dim celkovej Ako Integertotal = base_number ^ raise_numberEnd Sub 
 4 
 Zavolajte podprogram . Teraz , keď je vytvorený podprogram , môžete volať vo svojom kóde . Následne vám ukážeme , ako poslať prevedenie do podprogramu : 
 
 Call ExponentSub ( 10 , 8 )