Nyob nrog cov ntsiab lus ntawm "Ua Haujlwm" hauv VB? Yog Yog, nyeem phau ntawv qhia no kom paub cov npe hu ua "Function" hauv qhov piv txwv ntawm VB.
Cov kauj ruam
Kauj Ruam 1. Dab tsi yog Function?
- Siv Txoj Cai Txheej Txheem thaum koj xav tau rov qab tus nqi rau tus lej xov tooj.
- Ib txoj haujlwm nws tus kheej muaj hom, thiab kev ua haujlwm yuav rov qab tus nqi rau kev hu xov tooj subroutine raws li cov cai uas nws muaj.
Kauj Ruam 2. Yuav tshaj tawm li cas?
- Koj tuaj yeem txhais cov txheej txheem Kev ua haujlwm nkaus xwb ntawm qib module. Qhov no txhais tau tias kev tshaj tawm cov ntsiab lus rau kev ua haujlwm yuav tsum yog chav kawm, qauv, qauv, lossis cuam tshuam, thiab tsis tuaj yeem yog cov ntaub ntawv, npe chaw, txheej txheem, lossis thaiv.
- Ib txoj haujlwm tau tshaj tawm txoj hauv kev zoo ib yam li subroutine, tshwj tsis yog siv lo lus "Ua Haujlwm" lo lus "Sub".
- Cov txheej txheem ua haujlwm tsis raug rau pej xeem nkag mus. Koj tuaj yeem hloov kho lawv qib kev nkag mus nrog kev hloov kho nkag mus.
Kauj Ruam 3. Yuav Hu Li Cas?
- Koj hu rau Tus Txheej Txheem Kev Ua Haujlwm los ntawm kev siv lub npe txheej txheem, ua raws los ntawm cov npe sib cav hauv kab lus, hauv kab lus.
- Koj tuaj yeem tshem tawm cov kab lus tsuas yog tias koj tsis muab cov lus sib cav. Txawm li cas los xij, koj cov cai nyeem tau ntau dua yog tias koj ib txwm suav nrog cov npe.
- Ib txoj haujlwm tseem tuaj yeem hu ua siv Cov Lus Qhia Hu, nyob rau qhov twg tus nqi xa rov qab raug tsis quav ntsej.
- Yuav kom rov qab tus nqi, muab tus nqi ntawm yam tsim nyog rau lub luag haujlwm lub npe, zoo li nws tau hloov pauv.
Syntax
Tshaj tawm
[accessmodifier] [txheej txheem kev hloov pauv] [Sib Koom] Lub luag haujlwm lub npe [(Ntawm typeparamlist)] [(parameterlist)] [Raws li rov ua dua tshiab] [nqe lus] [Tawm Haujlwm] [nqe lus] Xaus Kev Ua Haujlwm
Hu
'Tsis Muaj Kev Hu Xov Tooj_Name ()' Nrog Hu Hu Ua Haujlwm_Name ()
Piv txwv
Ib qho piv txwv ntawm kev ua haujlwm uas ntxiv ob tus lej tau qhia hauv qab no
Kev Ua Haujlwm Ntiag Tug Ntxiv (ByVal x Raws Li Integer, ByVal y Raws Li Integer) Raws Li Integer Dim Res raws li integer Res = x + y Ntxiv = Res End Function Ntiag Tug Sub Form_Load () Dim Raws Li Integer Dim b Raws li Integer Dim c Raws li Integer a = 32 b = 64 c = Ntxiv (a, b) MsgBox ("Sum yog:" & c) Xaus Sub
