Visual Basic 程式设计.pptVIP

Visual Basic 程式設計 講師：戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所 第六章 內建函數 字串函數 數學函數 日期與時間函數 字串函數 轉為小寫字串:LCase(字串) LCase(“AnB123”)?“anb123” 轉為大寫字串:UCase(字串) UCase(“AnB123”)?“ANB123” 計算字串長度:Len(型別) Len(“123”)=3 計算空間:LenB(字串) 字串函數(cont’d) 子字串搜尋： InStr([搜尋的位置],字串1,字串2[,比較法]) 傳回字串2在字串1出現的位置 找不到則傳回0 InStr(“abcdecd”,”cd”)?3 InStr(4,“abcdecd”,”cd”)?6 比較法: vbBinaryCompare?分大小寫 vbTextCompare?不分大小寫 字串函數(cont’d) 使用比較法時，起始位置要輸入 InStr(1,“abcd”,“Cd”,vbBinaryCompare)?0 InStr(1,“abcd”,“Cd”,vbTextCompare)?3 擷取子字串:Mid(字串,起始位置[,長度]) Mid(“test test”,6)?”test” Mid(“test test”,6,3)?”tes” 字串函數(cont’d) 從左邊取子字串:Left(字串,長度) Left(“test1 test2”,5)?“test1” 從右邊取子字串:Right(字串,長度) Right(“test1 test2”,5)?“test2” 去除左右空白字元:Trim(字串) Trim(“ test ”)?“test” LTrim(), RTrim() 字串函數(cont’d) 解答 數學函數 取整數:Int(數字) 找小於等於數字的最小整數 Int(1.9)?1 Int(-1.9)?-2 取整數:Fix(數字) 去除小數部份 Fix(1.9)?1 Fix(-1.9)?-1 數學函數(cont’d) 轉成整數:CInt(參數) 用來把其它型別(如字串)轉成整數 注意:當值為*.5時，結果不同 CInt(0.4)?0 CInt(0.6)?1 CInt(0.5)?0 CInt(1.5)?2 數學函數(cont’d) 取絕對值函數: ABS() X = ABS(-77) X = 77 SQR(), EXP(), Log() Sin()、Cos()、Tan()、Atn() Sin(30 * (3.14159265358979 / 180)) 檢查是否數字 返回 Boolean 值指明表達式的值是否為數字 IsNumeric(expression) 如果整個 expression 被識別為數字﹐IsNumeric 函數返回 True﹔否則函數返回 False。 取亂數 Rnd(種子數) 0?值1 程式重執行時，取出的亂數相同 取亂數(cont’d) 加入Randomize避免有次序的亂數 如何取某範圍的亂數 在1到100之間的整數 Int(((100-1)+1)*Rnd()+1) Int(((最大值-最小值)+1)*Rnd()+最小值) 猜數字 日期與時間函數 Date:取得目前的日期 Date?2000/10/20 Time:取得目前的日期 Time?上午 12:59:30 Now: 取得目前的日期與時間 Now?2000/10/20上午 12:59:30 此處的Date不是型別，是函式 日期與時間函數(cont’d) 設定日期: Date=#2000/1/1# Time=#1:10:00 PM# 取年、月、日 Year(Date變數) Month(Date變數) Day(Date變數) 日期與時間函數(cont’d) 取時、分、秒 Hour(Date變數) Minute(Date變數) Second(Date變數) 日期與時間函數(cont’d) 取得星期幾 Weekday(日期變數[,初始星期]) Weekday(Date,vbSunday)?6 Weekday(Date,vbMonday)?5 WeekDay(Date)?6 日期與時間函數(cont’d) DateSerial(intYr,intMo,intDay) DateAdd(strIntrvl,intN,dteDate) DateDiff(strIntrvl,dte1,dte2) DatePart(strIntrvl,dteDate) dteDue=DateSerial(2004, 2, 28) 日期與時間內定格式字串 日期與時間內定格式字串(cont’d) Dateadd(“yyyy”,1,Date) Datediff(“ww”,dt