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 )