資源描述:
《vbsession6TP北大青鳥(vb)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、過程和函數(shù)第六章回顧使用圖片框控件和圖像控件使用框架中的復(fù)選框和選項按鈕使用列表框和組合框控件使用Timer控件創(chuàng)建Timer應(yīng)用程序目標使用過程和函數(shù)掌握程序中過程和函數(shù)的作用范圍使用參數(shù)和在函數(shù)及過程中傳遞參數(shù)的規(guī)則使用VisualBasic支持的內(nèi)部函數(shù)使用SUBMAIN過程過程和函數(shù)為了簡化應(yīng)用程序的編程,可以將整個程序分成稱為過程或函數(shù)的小段在程序中使用過程或函數(shù)的主要優(yōu)點允許將程序分成獨立的邏輯單元提高程序的可讀性程序更容易維護或調(diào)試提高代碼的可重用性過程VisualBasic中的過程通常稱為Sub過程或子
2、例程過程是一組用來執(zhí)行某項任務(wù)的語句語句被放在Sub/EndSub中過程被調(diào)用時,將執(zhí)行過程中的語句,沒有返回值定義過程定義過程的語法:Sub([argument1,argument2,…..argumentn])….….EndSub過程–示例PrivateSubForm_Load()CallshowtimeEndSubSubshowtime()MsgBoxTimeEndSub在VB環(huán)境中進行演示定義過程調(diào)用過程函數(shù)函數(shù)是一組被命名的語句,用戶通過指定名稱來調(diào)用它
3、時,它將被執(zhí)行,并返回值函數(shù)的語句放在Function/EndFunction語句內(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)境中進行演示定義函數(shù)調(diào)用函數(shù)過程和函數(shù)的作用范圍2-1應(yīng)用于變量的作用范圍規(guī)則同樣應(yīng)用于函數(shù)和過程函數(shù)和過程可以使用如下關(guān)鍵字進行定義PublicPrivateStatic例如,PublicSubadd()StaticFunctionCalc_Salary()asSingle過程和函數(shù)的作用范圍2-2聲明為Public的函數(shù)或過程:可以從應(yīng)用程序的任何地方被訪問聲明為Private的函數(shù)或過程:只能在聲明函數(shù)或
5、過程的窗體內(nèi)的進行訪問聲明為Static的函數(shù)或過程可以在應(yīng)用程序的任何地方訪問和Public的區(qū)別:在聲明的過程或函數(shù)內(nèi)的變量將在程序運行的整個過程中保留它們的值過程和函數(shù)的作用范圍–示例在Form1窗體中創(chuàng)建函數(shù)showDate(),并聲明為Public函數(shù)PublicSubshowDate()MsgBoxDateEndSub在Form2窗體中調(diào)用showDate()函數(shù):callForm1.showDateExit關(guān)鍵字VisualBasic提供了退出過程的“ExitSub”語句和退出函數(shù)的“ExitFuncti
6、on”語句,提早退出子例程或函數(shù)在遇到ExitSub或ExitFunction語句時,函數(shù)或過程當前的處理會停止Exit關(guān)鍵字–示例PrivateSubForm_Load()MsgBoxcalc_sqr(0)EndSubPrivateFunctioncalc_sqr(numAsInteger)AsIntegerDimsqrAsIntegerIfnum<=0Thencalc_sqr=0ExitFunctionElsecalc_sqr=num*numEndIfEndFunction在VB環(huán)境中進行演示過程和函數(shù)的參數(shù)參數(shù)不
7、是必需的過程中的代碼通常需要某些關(guān)于程序狀態(tài)的信息才能完成它的工作在調(diào)用過程時,傳遞到過程內(nèi)的變量稱為參數(shù)帶參數(shù)的過程示例'計算圓的面積PublicSubarea_circ(radiusAsInteger)DimareaAsDoublearea=3.14*radius*radiusMsgBoxareaEndSubPrivateSubForm_Load()Callarea_circ(5)EndSub在VB環(huán)境中進行演示帶參數(shù)的函數(shù)示例'計算一個整數(shù)的平方PublicFunctioncalc_sqr(numAsIntege
8、r)DimsqrAsIntegercalc_sqr=num*numEndFunctionPrivateSubForm_Load()DimsqrAsIntegersqr=calc_sqr(5)MsgBoxsqrEndSub在VB環(huán)境中進行演示傳遞參數(shù)的規(guī)則通過引用傳遞通過值傳遞VB應(yīng)用程序傳遞參數(shù)的缺省方法不是缺省方法傳遞參數(shù)時,過