VisualBasic程序過程與函數(shù)第12課時(shí)學(xué)習(xí)重點(diǎn)：

1、了解程序設(shè)計(jì)特點(diǎn)

2、掌握程序過程概念

3、自定義函數(shù)設(shè)計(jì)與利用第1頁

1、了解VB程序設(shè)計(jì)特點(diǎn)VB應(yīng)用程序設(shè)計(jì)：程序模塊化；按模塊化方式組成。將一個(gè)大程序按功效分割成相對獨(dú)立、功效單一小模塊；請問該VB程序中有幾個(gè)模塊：P77背各個(gè)模塊中事件名是何義？5？第2頁請問該VB程序中有幾個(gè)模塊：1第3頁①

注釋

程序中注釋是以單引號（’）開頭一串文字，對語句進(jìn)行解釋說明作用，注意：注釋作用僅僅是為了增加程序可讀性，注釋對程序執(zhí)行效果沒有任何影響。第4頁2、過程和函數(shù)

程序模塊分為過程和函數(shù)兩種，

過程強(qiáng)調(diào)是動(dòng)作，而函數(shù)強(qiáng)調(diào)是值計(jì)算。過程分兩類：①事件處理過程②通用過程

事件處理過程格式：

Sub對象名_事件標(biāo)準(zhǔn)名（）

變量定義和常量定義語句塊

EndSub

注：事件處理過程名（參考P77表）PrivateSubCommand1_Click()Dimr,x,yAsDoubler=Val(Text1.Text)x=2*3.14*ry=3.14*r^2Text2.Text=Str(x)Text3.Text=Str(y)EndSub第5頁事件處理過程格式：

Sub對象名_事件標(biāo)準(zhǔn)名（）

變量定義和常量定義語句塊

EndSub

注：事件處理過程名（參考P77表）第6頁慣用標(biāo)準(zhǔn)函數(shù)P52Val(x):字符串（文本）類型轉(zhuǎn)換成數(shù)值類型Str(x)：數(shù)值類型轉(zhuǎn)換成字符串（文本）類型Abs(x):求x絕對值Int(x):求小于x最大整數(shù)Fix(x):求去掉x小數(shù)部分（保留整數(shù)部分）Sqr(x):求x算術(shù)平方根Asc(x):把字符x轉(zhuǎn)換成ASCII碼Chr(x)：把ASCII碼轉(zhuǎn)換成字符（這兩個(gè)函數(shù)跟ASCII碼表相關(guān)）Asc(“A”)=65Chr(65)=“A”Abs(-23)=23Fix(3.124)=3Int(4.3)=4Int(-4.3)=-5Sqr(16)=4Asc(“a”)=97Rnd():在【0，1）區(qū)間隨機(jī)數(shù)Len(x):求字符串x長度(字節(jié)數(shù))Mid(X,n,k):取字符串x中第n個(gè)字符開始，長度為k子串因?yàn)閂B程序內(nèi)部已定義好了，就可直接拿來運(yùn)算那我們能不能自己也定義個(gè)函數(shù)也直接調(diào)用呢？第7頁2、

函數(shù)函數(shù)強(qiáng)調(diào)是值計(jì)算。通常稱為自定義函數(shù)模塊。

函數(shù)格式：

Function

函數(shù)名（參數(shù)表）As類型名

變量定義和常量定義語句語句塊

函數(shù)名=表示式

EndFunction

注：在語句塊中，最少要有一個(gè)形如

函數(shù)名=表示式

語句

用Function開頭定義

第8頁Abs(x):求x絕對值Function

函數(shù)名（參數(shù)表）As類型名

變量定義和常量定義語句語句塊

函數(shù)名=表示式

EndFunctionFunctionAbs(xAsDouble)AsDoubleIfx<>0Andx<0ThenAbs=-xElseIfx>0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x))EndSub自定義函數(shù)第9頁Abs(x):那我能不能自己定義一個(gè)“求x平方”函數(shù)呢？求x絕對值Function

函數(shù)名（參數(shù)表）As類型名

變量定義和常量定義語句語句塊

函數(shù)名=表示式

EndFunctionFunctionAbs(xAsDouble)AsDoubleIfx<>0Andx<0ThenAbs=-xElseIfx>0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x))EndSub第10頁Abs(x):求x絕對值那我能不能自己定義一個(gè)“求x平方”函數(shù)呢？函數(shù)格式：

Function

函數(shù)名（參數(shù)表）As類型名

變量定義和常量定義語句語句塊

函數(shù)名=表示式

EndFunctionFunctionPf()xasdoubleASDoublePf=x^2EndFunctionPf(x):求x平方值求Pf(5)=25第11頁例2：Functionf(rasdouble,hasdouble)asdoublef=2*3.14*r*hEndFunction求f（10，2）值例1：

Functionx(aasdouble)asdoublex=2*aEndFunction請問x（10）值f（10，2）=2*3.14*10*2=125.6第12頁實(shí)戰(zhàn)練習(xí)18：用函數(shù)語句來求平方值1、運(yùn)行VB,建立一個(gè)標(biāo)準(zhǔn)EXE工程。2、在窗體中添加對應(yīng)控件對象，界面如（圖一）所表示；3、并經(jīng)過編輯代碼語句，實(shí)現(xiàn)以下效果：當(dāng)在文本框Text1中輸入任何數(shù)，點(diǎn)擊“計(jì)算”按鈕后，該輸入數(shù)值平方結(jié)果就會(huì)顯示在標(biāo)簽Label1上.4、保留窗體和工程到自己文件夾中，文件名分別為“函數(shù)求平方.frm”和“函數(shù)求平方.vbp”。5、生成“函數(shù)求平方.exe”可執(zhí)行文件，保留在自己文件夾下。第13頁Functionpf(xAsDouble)AsDoublepf=x^2EndFunctionPrivateSubCommand1_Click()DimaAsDoublea=Val(Text1.Text)Label1.Caption=Str(pf(a))EndSub實(shí)戰(zhàn)練習(xí)18：用函數(shù)語句來求平方值1、運(yùn)行VB,建立一個(gè)標(biāo)準(zhǔn)EXE工程。2、在窗體中添加對應(yīng)控件對象，界面如（圖一）