1、2.2.4常用語句與函數(shù)2,第二課時 函數(shù),五種函數(shù)：,與用戶交互的函數(shù) 數(shù)學函數(shù) 字符串函數(shù) 日期函數(shù) 常用轉(zhuǎn)換函數(shù),請同學們觀察如下程序,我們想取得4:59:36 AM和4:59:39 AM之間的時間差：,Private Sub Command1_Click() a = #4:59:36 AM# b = #4:59:39 AM# c=b-a print c End Sub,輸出結果為3.47222222222277E-05，比較晦澀難懂,Private Sub Command1_Click() a = #4:59:36 AM# b = #4:59:39 AM# c = DateDiff(s

2、, a, b) Print c End Sub,輸出結果 3,總結 通過以上例子，我們知道，datediff實現(xiàn)了一定的功能。具體的功能為：算出2個時間之間的差值，用秒來表示。程序段中沒有任何對datediff的說明，顯然，它是程序默認接受的。,我們常常利用VB提供的內(nèi)部函數(shù)來解決問題。VB中函數(shù)的概念與數(shù)學中函數(shù)的概念沒本質(zhì)的區(qū)別。內(nèi)部函數(shù)稱為標準函數(shù)，它們是VB系統(tǒng)為了實現(xiàn)常用功能而提供的內(nèi)部函數(shù)。 函數(shù)可以有零個或多個輸入，一般都有一個確定的返回值。,一、用戶交互函數(shù),1、inputbox()函數(shù),通過對比，得出 InputBox(請輸入半徑, 輸入框, 3)實現(xiàn)了text1的功能，而且

3、，是以彈出窗口的形式，并有默認值。,r = Val(Text1.Text),r = Val(InputBox(請輸入半徑, 輸入框, 3),vb通過inputbox（）函數(shù)實現(xiàn)人機交互 格式 inputbox(提示,標題,默認值,x坐標,y坐標),r = InputBox(請輸入半徑, 輸入框, 3),r = InputBox(“請輸入r”, “輸入圓的面積, 3),2、msgbox( )函數(shù),語法格式：,MsgBox(提示，按鈕標題),按鈕參數(shù)：這里的按鈕參數(shù)一般用VB內(nèi)部符號常量；,vbOkOnly (是) vbOkCancel (確定、退出) vbYesNo (是、否) vbYesNoC

4、ancel (是、否、退出),這里的“登錄”按鈕參數(shù)用VB內(nèi)部哪個符號常量,二、數(shù)學函數(shù)：,在具體編程過程中，各類數(shù)學函數(shù)會被使用，數(shù)學函數(shù)用于數(shù)學計算，包括三角函數(shù)、求平方根函數(shù)、求絕對值函數(shù)、對數(shù)函數(shù)、指數(shù)函數(shù)等。它們與相應的數(shù)學定義相同。,Private Sub Command1_Click() a = -4 Print abs(a) a = 4 Print Sqr(a) a = 30 30度 Print Sin(a * 3.14 / 180) 三角函數(shù)內(nèi)必須為弧度 Print Cos(a * 3.14 / 180) Print Tan(a * 3.14 / 180) a = 2 Pri

5、nt Exp(a) a = 10 Print Log(a) a = 99.8 Print Int(a) int為取整作用 a = 99.2 Print Int(a) a = 99.5 print cint(a) End Sub,Private Sub Command1_Click() a = Rnd() Print a End Sub,Private Sub Command1_Click() Randomize a = Rnd() Print a End Sub,randomize作用：初始化隨機數(shù)生成器，可以達到每次產(chǎn)生不同隨機數(shù)的目的。,三、字符串函數(shù)：,在“打字測試軟件”程序中，計算輸入

6、字符數(shù)時就使用了Len 函數(shù)。 intWordCount Len(txtInput.Text) 其含義是求出文本框中的字符數(shù)并賦給變量intWordCount。,Private Sub Command1_Click() a = 2008奧運在北京舉辦 Print Len(a) Print Left(a, 4) Print Right(a, 4) Print Mid(a, 3, 2) Print String(3, 9) End Sub,實踐題請同學們在”2008奧運在北京舉辦”中截取出北京,方法1： Private Sub Command1_Click() a = 2008奧運在北京舉辦 a

7、= Right(a, 4) a = Left(a, 2) Print a End Sub,方法2：Private Sub Command1_Click() a = 2008奧運在北京舉辦 a = Mid(a, 8, 2) Print a End Sub,四、日期函數(shù),Now()函數(shù)返回當前的年-月-日 時-分-秒,Private Sub Command1_Click() a = Now() Print Year(a) Print Month(a) Print Day(a) End Sub,五、常用轉(zhuǎn)換函數(shù),Private Sub Command1_Click() a = 33 Print a Print Val(a) b = 44 Print b Print Str(b) End Sub,注意，str(44)轉(zhuǎn)換后，前面依然有空格。,Private Sub Command1_Click() a = 22hello Print Val(a) End Sub,輸出22,Private Sub Command1_Click() a = hello22 Print Val(a) End Sub,輸出0,小結 str()函數(shù)和val()函數(shù)是一對反函數(shù)，前者將數(shù)字轉(zhuǎn)化為字符串，后者將字符串轉(zhuǎn)化為數(shù)字。VAL()函數(shù)從前向后截取出參數(shù)的數(shù)字部分，如前無數(shù)字，則返回0。,補充 AS