VisualBasic程序過程與函數第12課時,學習重點：1、理解程序設計的特點2、掌握程序過程的概念3、自定義函數的設計與運用,1、理解VB程序設計的特點,VB應用程序設計：程序模塊化；按模塊化的方式組成。,將一個大的程序按功能分割成相對獨立、功能單一的小模塊；,請問該VB程序中有幾個模塊：,P77背,各個模塊中的事件名是何義？,5？,請問該VB程序中有幾個模塊：,1,注釋程序中的注釋是以單引號（）開頭的一串文字，對語句進行解釋說明作用，注意：注釋的作用僅僅是為了增加程序的可讀性，注釋對程序執行的效果沒有任何影響。,2、過程和函數程序模塊分為過程和函數兩種，過程強調的是動作，而函數強調的是值的計算。,過程分兩類：事件處理過程通用過程,事件處理過程格式：Sub對象名_事件的標準名（）變量定義和常量定義語句塊EndSub注：事件處理過程名（參考P77表）,PrivateSubCommand1_Click()Dimr,x,yAsDoubler=Val(Text1.Text)x=2*3.14*ry=3.14*r2Text2.Text=Str(x)Text3.Text=Str(y)EndSub,事件處理過程格式：Sub對象名_事件的標準名（）變量定義和常量定義語句塊EndSub注：事件處理過程名（參考P77表）,常用的標準函數P52,Val(x):字符串（文本）類型轉換成數值類型Str(x)：數值類型轉換成字符串（文本）類型,Abs(x):求x的絕對值Int(x):求不大于x的最大整數Fix(x):求去掉x的小數部分（保留整數部分）Sqr(x):求x的算術平方根,Asc(x):把字符x轉換成ASCII碼Chr(x)：把ASCII碼轉換成字符（這兩個函數跟ASCII碼表有關）,Asc(“A”)=65,Chr(65)=“A”,Abs(-23)=,23,Fix(3.124)=,3,Int(4.3)=,4,Int(-4.3)=,-5,Sqr(16)=,4,Asc(“a”)=,97,Rnd():在【0，1）的區間的隨機數,Len(x):求字符串x的長度(字節數),Mid(X,n,k):取字符串x中第n個字符開始，長度為k的子串,因為VB程序內部已定義好了，就可直接拿來運算,那我們能不能自己也定義個函數也直接調用呢？,2、函數函數強調的是值的計算。通常稱為自定義函數模塊。,函數格式：Function函數名（參數表）As類型名變量定義和常量定義語句語句塊函數名=表達式EndFunction注：在語句塊中，至少要有一個形如函數名=表達式的語句,用Function開頭定義,Abs(x):求x的絕對值,Function函數名（參數表）As類型名變量定義和常量定義語句語句塊函數名=表達式EndFunction,FunctionAbs(xAsDouble)AsDoubleIfx0Andx0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x)EndSub,自定義函數,Abs(x):,那我能不能自己定義一個“求x的平方”的函數呢？,求x的絕對值,Function函數名（參數表）As類型名變量定義和常量定義語句語句塊函數名=表達式EndFunction,FunctionAbs(xAsDouble)AsDoubleIfx0Andx0ThenAbs=xElseAbs=0EndIfEndFunctionPrivateSubCommand1_Click()DimxAsDoublea=Val(Text1.Text)Text2.Text=Str(Abs(x)EndSub,Abs(x):求x的絕對值,那我能不能自己定義一個“求x的平方”的函數呢？,函數格式：Function函數名（參數表）As類型名變量定義和常量定義語句語句塊函數名=表達式EndFunction,Function,Pf,(),xasdouble,ASDouble,Pf=x2,EndFunction,Pf(x):求x的平方值,求Pf(5)=,25,例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,實戰練習18：用函數語句來求平方值1、運行VB,建立一個標準EXE工程。2、在窗體中添加相應的控件對象，界面如（圖一）所示；3、并通過編輯代碼語句，實現以下效果：當在文本框Text1中輸入任何數，點擊“計算”按鈕后，該輸入數值的平方的結果就會顯示在標簽Label1上.4、保存窗體和工程到自己文件夾中，文件名分別為“函數求平方.frm”和“函數求平方.vbp”。5、生成“函數求平方.exe”可執行文件，保存在自己文件夾下。,Functionpf(xAsDouble)AsDoublepf=x2EndFunctionPrivateSubCommand1_Click()DimaAsDoublea=Val(Text1.Text)Label1.Caption=Str(pf(a)EndSub,實戰練習18：用函數語句來求平方值1、運行VB,建立一個標準EXE工程。2、在窗體中添加相應的控件對象，界面如（圖一）所示；3、并通過編輯代碼語句，實現以下效果：當在文本框Text