Ako Volanie podprogramu priamo v systéme v jazyku Visual Basic

Rekurzia je jedným z najmocnejších myšlienok v celej počítačovej vedy . Často odvolával sa na ako prístup "rozdeľuj a panuj " , k riešeniu problémov , rekurzia vám umožní vyriešiť problém tým , že rieši jeden alebo viac " menšie " verzie toho istého problému , a potom robí malé množstvo dodatočných alebo kombinujúci prácu . Týmto spôsobom , mnohé veľmi zložité problémy možno riešiť s neuveriteľne elegantné algoritmy . Veci , ktoré budete potrebovať v Microsoft Visual Basic
Zobraziť ďalšie inštrukcie Cestuj 1

Vytvorenie novej funkcie jazyka Visual Basic . Napríklad :

funkcia GCD ( ByVal x As Integer , ByVal y As Integer ) Ako IntegerEnd Funkcia

Táto funkcia bude počítať najväčší spoločný deliteľ dvoch čísel
2.

Pridať test medzi funkciou a End Function linky rozlišovať medzi " základnom prípade " a " rekurzívne prípad . " Prípady Základné sú veľmi dôležité v rekurzívnych funkcií - bez neho , bude váš kód obvykle spôsobí nekonečnú slučku a pravdepodobne pád programu . Napríklad , základný scenár pre funkciu " GCD " vyzerá takto :

ak y = 0 Then ' To bude základom caseElse " To bude rekurzívne caseEnd Ak

3

Pridať základné veci . To je hodnota , ktorá vaše funkcia vráti , keď narazí na problém , tak malý , že nemôže vyraziť ďalej. Pre funkciu " GCD " , vyzerá to , že toto :

Návrat x
4

Pridať rekurzívne prípad . Keď sa vaše funkcie opakuje , že vyvolá sa s jednoduchším problémom , ktorý pomôže to vyriešiť väčší problém . V prípade funkcie " GCD " , jednoduchšie problém je volená tak , aby jeho výsledkom je v skutočnosti výsledkom pre celý zložitý problém . Vyzerá to , že toto :

Späť GCD ( y , x Mod y )
5

Otestujte si svoje funkciu . Je vždy dôležité vyskúšať rekurzívne funkcie pomocou základné veci a niektoré rekurzívne prípady ako vstup . Snažte sa myslieť na testy , ktoré by mohli byť mimo normu , ako je napríklad záporných čísel .

• Predchádzajúca strana: Ako sa k nám zoznamu tlačiarní v VB6 
• Ďalšia strana: Ako previesť Visual Basic 5.0 na Visual Basic 6.0