Įstrigote „funkcijų“sąvokose VB? Jei taip, perskaitykite šį vadovą, kad sužinotumėte apie vadinamąsias „Funkcijos“konstrukcijas VB paradigmoje.
Žingsniai
1 žingsnis. Kas yra funkcija?
- Naudokite funkcijų procedūrą, kai reikia grąžinti skambinančiojo kodo vertę.
- Pati funkcija turi tipą, ir funkcija grąžins reikšmę skambinančiai paprogramei pagal joje esantį kodą.
Žingsnis 2. Kaip deklaruoti funkciją?
- Funkcijų procedūrą galite apibrėžti tik modulio lygiu. Tai reiškia, kad funkcijos deklaravimo kontekstas turi būti klasė, struktūra, modulis ar sąsaja ir negali būti šaltinio failas, vardų sritis, procedūra ar blokas.
- Funkcija deklaruojama lygiai taip pat, kaip ir paprogramė, išskyrus tai, kad vietoj „Sub“naudojamas raktinis žodis „Function“.
- Funkcijų procedūros pagal numatytuosius nustatymus yra prieinamos visuomenei. Jų prieigos lygius galite koreguoti naudodami prieigos modifikatorius.
Žingsnis 3. Kaip iškviesti funkciją?
- Funkcijos procedūrą iškviečiate naudodami procedūros pavadinimą, po kurio išraiškoje pateikiamas argumentų sąrašas skliausteliuose.
- Skliaustelius galite praleisti tik tuo atveju, jei nepateikiate jokių argumentų. Tačiau jūsų kodas yra geriau įskaitomas, jei visada įtraukiate skliaustus.
- Funkcija taip pat gali būti iškviesta naudojant skambučio sakinį, tokiu atveju grąžinimo vertė nepaisoma.
- Norėdami grąžinti vertę, funkcijos pavadinimui priskirkite tinkamo tipo vertę, tarsi ji būtų kintamasis.
Sintaksė
Deklaracija
[prieigos modifikatorius] [procedūrų modifikatoriai] [Bendras] Funkcijos pavadinimas [(Iš tipo parametrų sąrašo)] [(parametrų sąrašas)] [Kaip grįžimo tipas] [teiginiai] [Išeiti iš funkcijos] [teiginiai] Pabaigos funkcija
Skambina
„Be skambučio funkcijos_pavadinimas ()“Su skambučio skambučio funkcija_pavadinimas ()
Pavyzdys
Funkcijos, pridedančios du skaičius, pavyzdys pateiktas žemiau
Privati funkcija Pridėti (ByVal x kaip sveikasis skaičius, ByVal y kaip sveikasis skaičius) Kaip sveikasis skaičius Res Res kaip sveikas skaičius Res = x + y Add = Res End Function Private Sub Form_Load () Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Pridėti (a, b) MsgBox ("Sum is:" & c) End Sub