vbsession6TP北大青鳥(vb)

vbsession6TP北大青鳥(vb)

ID:44270457

大小:367.00 KB

頁(yè)數(shù):34頁(yè)

時(shí)間:2019-10-20

vbsession6TP北大青鳥(vb)_第1頁(yè)
vbsession6TP北大青鳥(vb)_第2頁(yè)
vbsession6TP北大青鳥(vb)_第3頁(yè)
vbsession6TP北大青鳥(vb)_第4頁(yè)
vbsession6TP北大青鳥(vb)_第5頁(yè)
資源描述:

《vbsession6TP北大青鳥(vb)》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、過程和函數(shù)第六章回顧使用圖片框控件和圖像控件使用框架中的復(fù)選框和選項(xiàng)按鈕使用列表框和組合框控件使用Timer控件創(chuàng)建Timer應(yīng)用程序目標(biāo)使用過程和函數(shù)掌握程序中過程和函數(shù)的作用范圍使用參數(shù)和在函數(shù)及過程中傳遞參數(shù)的規(guī)則使用VisualBasic支持的內(nèi)部函數(shù)使用SUBMAIN過程過程和函數(shù)為了簡(jiǎn)化應(yīng)用程序的編程,可以將整個(gè)程序分成稱為過程或函數(shù)的小段在程序中使用過程或函數(shù)的主要優(yōu)點(diǎn)允許將程序分成獨(dú)立的邏輯單元提高程序的可讀性程序更容易維護(hù)或調(diào)試提高代碼的可重用性過程VisualBasic中的過程通常稱為Sub過程或子

2、例程過程是一組用來執(zhí)行某項(xiàng)任務(wù)的語(yǔ)句語(yǔ)句被放在Sub/EndSub中過程被調(diào)用時(shí),將執(zhí)行過程中的語(yǔ)句,沒有返回值定義過程定義過程的語(yǔ)法:Sub([argument1,argument2,…..argumentn])….….EndSub過程–示例PrivateSubForm_Load()CallshowtimeEndSubSubshowtime()MsgBoxTimeEndSub在VB環(huán)境中進(jìn)行演示定義過程調(diào)用過程函數(shù)函數(shù)是一組被命名的語(yǔ)句,用戶通過指定名稱來調(diào)用它

3、時(shí),它將被執(zhí)行,并返回值函數(shù)的語(yǔ)句放在Function/EndFunction語(yǔ)句內(nèi)函數(shù)可以將值返回給調(diào)用程序定義函數(shù)Function([arguments1,argument2,…..argumentn])as….….=函數(shù)–示例PrivateSubForm_Load()Dimnew_dAsDatenew_d=newday()MsgBoxnew_dEn

4、dSubFunctionnewday()AsDatenewday=Date+5EndFunction在VB環(huán)境中進(jìn)行演示定義函數(shù)調(diào)用函數(shù)過程和函數(shù)的作用范圍2-1應(yīng)用于變量的作用范圍規(guī)則同樣應(yīng)用于函數(shù)和過程函數(shù)和過程可以使用如下關(guān)鍵字進(jìn)行定義PublicPrivateStatic例如,PublicSubadd() StaticFunctionCalc_Salary()asSingle過程和函數(shù)的作用范圍2-2聲明為Public的函數(shù)或過程:可以從應(yīng)用程序的任何地方被訪問聲明為Private的函數(shù)或過程:只能在聲明函數(shù)或

5、過程的窗體內(nèi)的進(jìn)行訪問聲明為Static的函數(shù)或過程可以在應(yīng)用程序的任何地方訪問和Public的區(qū)別:在聲明的過程或函數(shù)內(nèi)的變量將在程序運(yùn)行的整個(gè)過程中保留它們的值過程和函數(shù)的作用范圍–示例在Form1窗體中創(chuàng)建函數(shù)showDate(),并聲明為Public函數(shù)PublicSubshowDate()MsgBoxDateEndSub在Form2窗體中調(diào)用showDate()函數(shù):callForm1.showDateExit關(guān)鍵字VisualBasic提供了退出過程的“ExitSub”語(yǔ)句和退出函數(shù)的“ExitFuncti

6、on”語(yǔ)句,提早退出子例程或函數(shù)在遇到ExitSub或ExitFunction語(yǔ)句時(shí),函數(shù)或過程當(dāng)前的處理會(huì)停止Exit關(guān)鍵字–示例PrivateSubForm_Load()MsgBoxcalc_sqr(0)EndSubPrivateFunctioncalc_sqr(numAsInteger)AsIntegerDimsqrAsIntegerIfnum<=0Thencalc_sqr=0ExitFunctionElsecalc_sqr=num*numEndIfEndFunction在VB環(huán)境中進(jìn)行演示過程和函數(shù)的參數(shù)參數(shù)不

7、是必需的過程中的代碼通常需要某些關(guān)于程序狀態(tài)的信息才能完成它的工作在調(diào)用過程時(shí),傳遞到過程內(nèi)的變量稱為參數(shù)帶參數(shù)的過程示例'計(jì)算圓的面積PublicSubarea_circ(radiusAsInteger)DimareaAsDoublearea=3.14*radius*radiusMsgBoxareaEndSubPrivateSubForm_Load()Callarea_circ(5)EndSub在VB環(huán)境中進(jìn)行演示帶參數(shù)的函數(shù)示例'計(jì)算一個(gè)整數(shù)的平方PublicFunctioncalc_sqr(numAsIntege

8、r)DimsqrAsIntegercalc_sqr=num*numEndFunctionPrivateSubForm_Load()DimsqrAsIntegersqr=calc_sqr(5)MsgBoxsqrEndSub在VB環(huán)境中進(jìn)行演示傳遞參數(shù)的規(guī)則通過引用傳遞通過值傳遞VB應(yīng)用程序傳遞參數(shù)的缺省方法不是缺省方法傳遞參數(shù)時(shí),過

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動(dòng)畫的文件,查看預(yù)覽時(shí)可能會(huì)顯示錯(cuò)亂或異常,文件下載后無此問題,請(qǐng)放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫(kù)負(fù)責(zé)整理代發(fā)布。如果您對(duì)本文檔版權(quán)有爭(zhēng)議請(qǐng)及時(shí)聯(lián)系客服。
3. 下載前請(qǐng)仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動(dòng)等原因無法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶請(qǐng)聯(lián)系客服處理。