我們可以采用一種辦法把Dir將當前搜索目錄的子目錄給保存下來，然后在自身的search(strPathName)遞歸函數(shù)中依次進行遞歸的調用，這樣就可以把指定的目錄搜索完畢。
成都創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站制作、成都網(wǎng)站建設、外貿營銷網(wǎng)站建設、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務平城,十載網(wǎng)站建設經驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:13518219792
具體代碼如下:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函數(shù)GetExtName
'功能:得到文件后綴名(擴展名)
'輸入:文件名
'輸出:文件后綴名(擴展名)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function GetExtName(strFileName As String) As String
Dim strTmp As String
Dim strByte As String
Dim i As Long
For i = Len(strFileName) To 1 Step -1
strByte = Mid(strFileName, i, 1)
If strByte "." Then
strTmp = strByte + strTmp
Else
Exit For
End If
Next i
GetExtName = strTmp
End Function
Public Function search(ByVal strPath As String, Optional strSearch As String = "") As Boolean
Dim strFileDir() As String
Dim strFile As String
Dim i As Long
Dim lDirCount As Long
On Error GoTo MyErr
If Right(strPath, 1) "\" Then strPath = strPath + "\"
strFile = Dir(strPath,vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
While strFile "" '搜索當前目錄
DoEvents
If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then '如果找到的是目錄
If strFile "." And strFile ".." Then '排除掉父目錄(..)和當前目錄(.)
lDirCount = lDirCount + 1 '將目錄數(shù)增1
ReDim Preserve strFileDir(lDirCount) As String
strFileDir(lDirCount - 1) = strFile '用動態(tài)數(shù)組保存當前目錄名
End If
Else
If strSearch = "" Then
Form1.List1.AddItem strPath + strFile
ElseIf LCase(GetExtName(strPath + strFile)) = LCase(GetExtName(strSearch)) Then
'滿足搜索條件，則處理該文件
Form1.List1.AddItem strPath + strFile '將文件全名保存至列表框List1中
End If
End If
strFile = Dir
Wend
For i = 0 To lDirCount - 1
Form1.Label3.Caption = strPath + strFileDir(i)
Call search(strPath + strFileDir(i), strSearch) '遞歸搜索子目錄
Next
ReDim strFileDir(0) '將動態(tài)數(shù)組清空
search = True '搜索成功
Exit Function
MyErr:
search = False '搜索失敗
End Function
名稱 類型 說明
abort 函數(shù) 引起放棄的意外處理
abs 函數(shù) 絕對值函數(shù)
addexitproc 函數(shù) 將一過程添加到運行時庫的結束過程表中
addr 函數(shù) 返回指定對象的地址
adjustlinebreaks 函數(shù) 將給定字符串的行分隔符調整為cr/lf序列
align 屬性 使控件位于窗口某部分
alignment 屬性 控件標簽的文字位置
allocmem 函數(shù) 在堆棧上分配給定大小的塊
allowgrayed 屬性 允許一個灰度選擇
ansicomparestr 函數(shù) 比較字符串（區(qū)分大小寫）
ansicomparetext 函數(shù) 比較字符串（不區(qū)分大小寫）
ansilowercase 函數(shù) 將字符轉換為小寫
ansiuppercase 函數(shù) 將字符轉換為大寫
append 函數(shù) 以附加的方式打開已有的文件
arctan 函數(shù) 余切函數(shù)
assignfile 函數(shù) 給文件變量賦一外部文件名
assigned 函數(shù) 測試函數(shù)或過程變量是否為空
autosize 屬性 自動控制標簽的大小
backgrounddi2001.jpg 屬性 背景色
beginthread 函數(shù) 以適當?shù)姆绞浇⒂糜趦却婀芾淼木€程
bevelinner 屬性 控件方框的內框方式
bevelouter 屬性 控件方框的外框方式
bevelwidth 屬性 控件方框的外框寬度
blockread 函數(shù) 讀一個或多個記錄到變量中
blockwrite 函數(shù) 從變量中寫一個或多個記錄
borderstyle 屬性 邊界類型
borderwidth 屬性 邊界寬度
break 命令 終止for、while、repeat循環(huán)語句
brush 屬性 畫刷
caption 屬性 標簽文字的內容
changefileext 函數(shù) 改變文件的后綴
chdir 函數(shù) 改變當前目錄
checked 屬性 確定復選框選中狀態(tài)
chr 函數(shù) 返回指定序數(shù)的字符
closefile 命令 關閉打開的文件
color 屬性 標簽的顏色
columns 屬性 顯示的列數(shù)
comparestr 函數(shù) 比較字符串（區(qū)分大小寫）
concat 函數(shù) 合并字符串
continue 命令 繼續(xù)for、while、repeat的下一個循環(huán)
copy 函數(shù) 返回一字符串的子串
cos 函數(shù) 余弦函數(shù)
ctl3d 屬性 是否具有3d效果
cursor 屬性 鼠標指針移入后的形狀
date 函數(shù) 返回當前的日期
datetimetofiledate 函數(shù) 將delphi的日期格式轉換為dos的日期格式
datetimetostr 函數(shù) 將日期時間格式轉換為字符串
datetimetostring 函數(shù) 將日期時間格式轉換為字符串
datetostr 函數(shù) 將日期格式轉換為字符串
dayofweek 函數(shù) 返回星期的數(shù)值
dec 函數(shù) 遞減變量值
decodedate 函數(shù) 將日期格式分解為年月日
decodetime 函數(shù) 將時間格式分解為時、分、秒、毫秒
delete 函數(shù) 從字符串中刪除子串
deletefile 命令 刪除文件
diskfree 函數(shù) 返回剩余磁盤空間的大小
disksize 函數(shù) 返回指定磁盤的容量
dispose 函數(shù) 釋放動態(tài)變量所占的空間
disposestr 函數(shù) 釋放字符串在堆棧中的內存空間
ditherbackgrounddi2001.jpg?使背景色的色彩加重或減少50%
dragcursor 屬性 當鼠標按下時光標的形狀
dragmode 屬性 按動的作用方式
dropdowncount 屬性 容許的顯示數(shù)據(jù)項的數(shù)目
editmask 屬性 編輯模式
enabled 屬性 是否使標簽呈現(xiàn)打開狀態(tài)
encodedate 函數(shù) 將年月日合成為日期格式
encodetime 函數(shù) 將時、分、秒、毫秒合成為時間格式
endmargin 屬性 末尾邊緣
eof 函數(shù) 對有類型或無類型文件測試是否到文件尾
eoln 函數(shù) 返回文本文件的行結束狀態(tài)
erase 命令 刪除外部文件
exceptaddr 函數(shù) 返回引起當前意外的地址
exclude 函數(shù) 從集合中刪除一些元素
exceptobject 函數(shù) 返回當前意外的索引
exit 命令 立即從當前的語句塊中退出
exp 函數(shù) 指數(shù)函數(shù)
expandfilename 函數(shù) 返回包含絕對路徑的字符串
extendedselect 屬性 是否允許存在選擇模式，true時，multiselect才有意義
extractfiledir 函數(shù) 返回驅動器和路徑
extractfileext 函數(shù) 返回文件的后綴
extractfilename 函數(shù) 返回文件名
extractfilepath 函數(shù) 返回指定文件的路徑
fileage 函數(shù) 返回文件已存在的時間
fileclose 命令 關閉指定的文件
filecreate 命令 用指定的文件名建立新文件
filedatetodatetime 函數(shù) 將dos的日期格式轉換為delphi的日期格式
fileexists 函數(shù) 檢查文件是否存在
filegatattr 函數(shù) 返回文件的屬性
filegetdate 函數(shù) 返回文件的dos日期時間標記
fileopen 命令 用指定的存取模式打開指定的文件
filepos 函數(shù) 返回文件的當前指針位置
fileread 命令 從指定的文件讀取
filesearch 命令 在目錄中搜索指定的文件
fileseek 函數(shù) 改變文件的指針
filesetattr 函數(shù) 設置文件屬性
filesetdate 函數(shù) 設置文件的dos日期時間標記
filesize 函數(shù) 返回當前文件的大小
filewrite 函數(shù) 對指定的文件做寫操作
fillchar 函數(shù) 用指定的值填充連續(xù)字節(jié)的數(shù)
findclose 命令 終止findfirst/findnext序列
findfirst 命令 對指定的文件名及屬性搜索目錄
findnext 命令 返回與文件名及屬性匹配的下一入口
floattodecimal 函數(shù) 將浮點數(shù)轉換為十進制數(shù)
floattostrf 函數(shù) 將浮點數(shù)轉換為字符串
floattostr 函數(shù) 將浮點數(shù)轉換為字符串
floattotext 函數(shù) 將給定的浮點數(shù)轉換為十進制數(shù)
floattotextfmt 函數(shù) 將給定的浮點數(shù)轉換為十進制數(shù)
flush 函數(shù) 將緩沖區(qū)的內容刷新到輸出的文本文件中
fmtloadstr 函數(shù) 從程序的資源字符串表中裝載字符串
fmtstr 函數(shù) 格式化一系列的參數(shù)，其結果以參數(shù)result返回
font 屬性 設置字體
format 函數(shù) 格式化一系列的參數(shù)并返回pascal字符串
formatbuf 函數(shù) 格式化一系列的參數(shù)
formatdatetime 函數(shù) 用指定的格式來格式化日期和時間
formatfloat 函數(shù) 指定浮點數(shù)格式
frac 函數(shù) 返回參數(shù)的小數(shù)部分
freemem 函數(shù) 按給定大小釋放動態(tài)變量所占的空間
getdir 返回指定驅動器的當前目錄
getheapstatus 返回內存管理器的當前狀態(tài)
getmem 建立一指定大小的動態(tài)變量，并將指針指向該處
getmemorymanager 返回內存管理器的入口點
glyph 函數(shù) 按鈕上的圖象
halt 停止程序的執(zhí)行并返回到操作系統(tǒng)
hi 返回參數(shù)的高地址位
high 返回參數(shù)的上限值
hint 屬性 提示信息
int 返回參數(shù)的整數(shù)部分
include 添加元素到集合中
insert 在字符串中插入子串
inttohex 將整型數(shù)轉換為十六進制數(shù)
inttostr 將整型數(shù)轉換為字符串
ioresult 返回最新的i/o操作完成狀態(tài)
isvalidident 測試字符串是否為有效的標識符
items 屬性 默認顯示的節(jié)點
kind 屬性 擺放樣式
largechange 屬性 最大改變值
layout 屬性 圖象布局
length 函數(shù) 返回字符串的動態(tài)長度
lines 屬性 缺省顯示內容
ln 函數(shù) 自然對數(shù)函數(shù)
lo 函數(shù) 返回參數(shù)的低地址位
loadstr 函數(shù) 從應用程序的可執(zhí)行文件中裝載字符資源
lowercase 函數(shù) 將給定的字符串變?yōu)樾?/p>
low 函數(shù) 返回參數(shù)的下限值
max 屬性 最大值
maxlength 屬性 最大長度
min 屬性 最小值
mkdir 命令 建立一子目錄
move 函數(shù) 從源到目標復制字節(jié)
multiselect 屬性 允許同時選擇幾個數(shù)據(jù)項
name 屬性 控件的名字
new 函數(shù) 建立新的動態(tài)變量并設置一指針變量指向他
newstr 函數(shù) 在堆棧上分配新的字符串
now 函數(shù) 返回當前的日期和時間
odd 測試參數(shù)是否為奇數(shù)
onactivate 事件 焦點移到窗體上時觸發(fā)
onclick 事件 單擊窗體空白區(qū)域觸發(fā)
ondblclick 事件 雙擊窗體空白區(qū)域觸發(fā)
onclosequery 事件 使用者試圖關閉窗體觸發(fā)
onclose 事件 窗體關閉后才觸發(fā)
oncreate 事件 窗體第一次創(chuàng)建時觸發(fā)
ondeactivate 事件 用戶切換到另一應用程序觸發(fā)
ondragdrop 事件 鼠標拖放操作結束時觸發(fā)
ondragover 事件 有其他控件從他上面移過觸發(fā)
onmousedown 事件 按下鼠標鍵時觸發(fā)
onmouseup 事件 釋放鼠標鍵時觸發(fā)
onmousemove 事件 移動鼠標時觸發(fā)
onhide 事件 隱藏窗體時觸發(fā)
onkeydown 事件 按下鍵盤某鍵時觸發(fā)
onkeypress 事件 按下鍵盤上的單個字符鍵時觸發(fā)
onkeyup 事件 釋放鍵盤上的某鍵時觸發(fā)
onpaint 事件 窗體上有新部分暴露出來觸發(fā)
onresize 事件 重新調整窗體大小觸發(fā)
onshow 事件 在窗體實際顯示之前瞬間觸發(fā)
ord 返回序數(shù)類的序數(shù)
outlinestyle 屬性 類型
outofmemoryerror 引起outofmemory意外
pageindex 屬性 頁索引
pages 屬性 頁
paramcount 函數(shù) 返回在命令行上傳遞給程序的參數(shù)數(shù)量
paramstr 函數(shù) 返回指定的命令行參數(shù)
pen 屬性 畫刷設置
pi 函數(shù) 返回圓周率pi
picture 屬性 顯示圖象
pictureclosed 屬性 設置closed位圖
pictureleaf 屬性 設置leaf位圖
pictureminus 屬性 設置minus位圖
pictureopen 屬性 設置open位圖
pictureplus 屬性 設置plus位圖
pos 函數(shù) 在字符串中搜索子串
pred 函數(shù) 返回先前的參數(shù)
random 函數(shù) 返回一隨機函數(shù)
randomize 函數(shù) 用一隨機數(shù)初始化內置的隨機數(shù)生成器
read 函數(shù) 對有格式的文件，讀一文件組件到變量中；
對文本文件，讀一個或多個值到一個或多個變量中
readln 函數(shù) 執(zhí)行read過程，然后跳到文件下一行
readonly 屬性 只讀屬性
reallocmem 函數(shù) 分配一動態(tài)變量
rename 函數(shù) 重命名外部文件
renamefile 函數(shù) 對文件重命名
reset 函數(shù) 打開已有的文件
rewrite 函數(shù) 建立并打開一新的文件
rmdir 函數(shù) 刪除空的子目錄
round 函數(shù) 將實數(shù)值舍入為整型值
runerror 函數(shù) 停止程序的執(zhí)行
scrollbars 屬性 滾動條狀態(tài)
seek 函數(shù) 將文件的當前指針移動到指定的組件上
seekeof 函數(shù) 返回文件的文件結束狀態(tài)
seekeoln 函數(shù) 返回文件的行結束狀態(tài)
selectedcolor 屬性 選中顏色
setmemorymanager 函數(shù) 設置內存管理器的入口點
settextbuf 函數(shù) 給文本文件指定i/o緩沖區(qū)
shape 屬性 顯示的形狀
showexception 函數(shù) 顯示意外消息與地址
sin 函數(shù) 正弦函數(shù)
sizeof 函數(shù) 返回參數(shù)所占的字節(jié)數(shù)
smallchange 屬性 最小改變值
sorted 屬性 是否允許排序
sqr 函數(shù) 平方函數(shù)
sqrt 函數(shù) 平方根函數(shù)
startmargin 屬性 開始邊緣
state 屬性 控件當前狀態(tài)
str 函數(shù) 將數(shù)值轉換為字符串
stralloc 函數(shù) 給以null結束的字符串分配最大長度-1的緩沖區(qū)
strbufsize 函數(shù) 返回存儲在由stralloc分配的字符緩沖區(qū)的最大字符數(shù)
strcat 函數(shù) 將一字符串附加到另一字符串尾并返回合并的字符串
strcomp 函數(shù) 比較兩個字符串
strcopy 函數(shù) 將一個字符串復制到另一個字符串中
strdispose 函數(shù) 釋放堆棧上的字符串
strecopy 函數(shù) 將一字符串復制到另一個字符串并返回結果字符串尾部的指針
strend 函數(shù) 返回指向字符串尾部的指針
stretch 屬性 自動適應控件的大小
strfmt 函數(shù) 格式化一系列的參數(shù)
stricomp 函數(shù) 比較兩個字符串（不區(qū)分大小寫）
stringtowidechar 函數(shù) 將ansi字符串轉換為unicode字符串
strlcat 函數(shù) 將一字符串中的字符附加到另一字符串尾并返回合并的字符串
strlcomp 函數(shù) 以最大長度比較兩個字符串
strlcopy 函數(shù) 將一個字符串中的字符復制到另一個字符串中
strlen 函數(shù) 返回字符串中的字符數(shù)
strlfmt 函數(shù) 格式化一系列的參數(shù)，其結果中包含有指向目標緩沖區(qū)的指針
strlicomp 函數(shù) 以最大長度比較兩個字符串（不區(qū)分大小寫）
strlower 函數(shù) 將字符串中的字符轉換為小寫
strmove 函數(shù) 將一個字符串中的字符復制到另一個字符串中
strnew 函數(shù) 在堆棧上分配一個字符串
strpas 函數(shù) 將以null結束的字符串轉換為pascal類的字符串
strpcopy 函數(shù) 將pascal類的字符串復制為以null結束的字符串
strplcopy 函數(shù) 從pascal類的最大長度字符串復制為以null結束的字符串
strpos 函數(shù) 返回一個字符串在另一個字符串中首次出現(xiàn)指針
strrscan 函數(shù) 返回字符串中最后出現(xiàn)字符的指針
strscan 函數(shù) 返回字符串中出現(xiàn)首字符的指針
strtodate 函數(shù) 將字符串轉換為日期格式
strtodatetime 函數(shù) 將字符串轉換為日期/時間格式
strtofloat 函數(shù) 將給定的字符串轉換為浮點數(shù)
strtoint 函數(shù) 將字符串轉換為整型
strtointdef 函數(shù) 將字符串轉換為整型或默認值
strtotime 函數(shù) 將字符串轉換為時間格式
strupper 函數(shù) 將字符串中的字符轉換為大寫
style 屬性 類型選擇
suce 函數(shù) 返回后繼的參數(shù)
swap 函數(shù) 交換參數(shù)的高低地址位
tabs 屬性 標記每一項的內容
tabindex 屬性 標記索引
text 屬性 顯示的文本
texttofloat 函數(shù) 將字符串（以null結束的格式）轉換為浮點數(shù)
time 函數(shù) 返回當前的時間
timetostr 函數(shù) 將時間格式轉換為字符串
trim 函數(shù) 從給定的字符串中刪除前導和尾部的空格及控制字符
trimleft 函數(shù) 從給定的字符串中刪除首部的空格及控制字符
trimright 函數(shù) 從給定的字符串中刪除尾部的空格及控制字符
trunc 函數(shù) 將實型值截取為整型值
truncate 函數(shù) 截去當前文件位置后的內容
unselectedcolor 屬性 未選中顏色
upcase 將字符轉換為大寫
uppercase 將給定的字符串變?yōu)榇髮?/p>
val 函數(shù) 將字符串轉換為整型值
vararraycreate 函數(shù) 以給定的界限和維數(shù)建立變體數(shù)組
vararraydimcount 函數(shù) 返回給定變體的維數(shù)
vararrayhighbound 函數(shù) 返回給定變體數(shù)組維數(shù)的上界
vararraylock 函數(shù) 鎖定給定的變體數(shù)組
vararraylowbound 函數(shù) 返回給定變體數(shù)組維數(shù)的下界
vararrayof 函數(shù) 返回指定變體的數(shù)組元素
vararrayredim 函數(shù) 通過改變上限來調整變體的大小
vararrayunlock 函數(shù) 解鎖指定的變體數(shù)組
varastype 函數(shù) 將變體轉換為指定的類型
varcase 函數(shù) 將變體轉換為指定的類型并保存他
varclear 函數(shù) 清除指定的變體
varcopy 函數(shù) 將指定的變體復制為指定的變體
varformdatetime 函數(shù) 返回包含日期時間的變體
varisarray 函數(shù) 測試變體是否為數(shù)組
varisempty 函數(shù) 測試變體是否為unassigned
varisnull 函數(shù) 測試變體是否為null
vartodatetime 函數(shù) 將給定的變體轉換為日期時間
vartype 函數(shù) 將變體轉換為指定的類型并保存他
visible 屬性 控件的可見性
wantreturns 屬性 為true時，按回車鍵產生一個回車符；
為false時，按下ctrl+enter才產生回車符
write 命令 對有格式的文件，寫一變量到文件組件中；
對文本文件，寫一個或多個值到文件中
writeln 命令 執(zhí)行write過程，然后輸出一行結束標志
widecharlentostring 函數(shù) 將ansi字符串轉換為unicode字符串
widecharlentostrwar 函數(shù) 將unicode字符串轉換為ansi字符串變量
widechartostring 函數(shù) 將unicode字符串轉換為ansi字符串
widechartostrvar 函數(shù) 將unicode字符串轉換為ansi字符串變量
很簡單，在end select前再多加一種情況case else return "XXXx",因為你只提供了0-9這10種情況
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
double是雙精度 有效數(shù)值位52位 表示成指數(shù)的形式 即指數(shù)11位 即表示成
所以180.89305用2進制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的實際數(shù)值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小數(shù)點后 52位有效值后 等于10進制的180.893049999999998
所及加最后變成了 1808930.99999999998
第一次當然輸出近似值1808931
第二次int函數(shù)去掉了小數(shù)點后的數(shù)int就是只取整數(shù)的部位的不是四舍五入 所以少了1
(一)類型轉換類函數(shù)
1. CType(X)
[格式]：
P=CBool(X)
' 將X轉換為"布爾"(Boolean)類型
P=CByte(X)
' 將X轉換為"字節(jié)"(Byte)類型
P=CCur(X)
' 將X轉換為"金額"(Currency)類型
P=CDate(X)
' 將X轉換為"日期"(Date)類型
P=CDbl(X)
' 將X轉換為"雙精度"(Double)類型
P=CInt(X)
' 將X轉換為"整型"(Integer)類型
P=CLng(X)
' 將X轉換為"長整型"(Long)類型
P=CSng(X)
' 將X轉換為"單精度"(Single)類型
P=CStr(X)
' 將X轉換為"字符串"(String)類型
P=Cvar(X)
' 將X轉換為"變體型"(Variant)類型
P=CVErr(X)
' 將X轉換為Error值
[ 范例 ]：
(1). CStr(13)+CStr(23)
' 數(shù)值轉換成字符串后，用"+"號連接， 結果：1323
(2). CInt("12")+12
' 字符串轉換成整型后與12相加， 結果：24
(3). P=CInt(True)
' 輸出結果為-1
' 布爾值與數(shù)值的轉換時要注意，布爾值只有True和False，其中True在內存中為-1,False存為0
(4). CBool(-0.001)
' 輸出結果為True
' 將數(shù)值轉換為布爾型時，等于0的數(shù)值將得到False，不等于0的數(shù)值得到True.
2. Int(X),Fix(X)：取X的整數(shù)值
[格式]：
P=Int(X) ' 取=X的最大整數(shù)值
P=Fix(X) ' 取X的整數(shù)部分，直接去掉小數(shù)
[范例]：
(1) Int(-54.6)
' 結果為-55，取=-54.6的最大整數(shù)
(2) Fix(54.6)
' 結果為54，取整數(shù)并直接去掉小數(shù)
(二)常用數(shù)學函數(shù)
[格式]：
1. Abs(N) 取絕對值
例：Abs(-3.5) 結果：3.5
2. Cos(N) 余弦函數(shù)
例：Cos(0) 結果：1
3. Exp(N) e為底的指數(shù)函數(shù)
例：Exp(3) 結果：20.068
4. Log(N) 以e為底的自然對數(shù)
例：Log(10) 結果：2.3
5. Rnd[(N) 產生隨機數(shù)
例：Rnd 結果：0--1之間的數(shù)
6. Sin(N) 正弦函數(shù)
例：Sin(0) 結果：0
7. Sgn(N) 符號函數(shù)
' 說明：取正負號。Y=Sgn(X) 既 X0 則Y=1；X=0 則Y=0；X0 則Y= -1
8. Sqr(N) 平方根
例：Sqr(9) 結果：3
9. Tan(N) 正切函數(shù)
例：Tan(0) 結果：0
10.Atn(N) 反切函數(shù)
例：Atn(0) 結果：0
[注意]：在三角函數(shù)中，以弧度表示。
(一)字符串類函數(shù)：
1. ASC(X)，Chr(X)：轉換字符字符碼
[格式]：
P=Asc(X) 返回字符串X的第一個字符的字符碼
P=Chr(X) 返回字符碼等于X的字符
[范例]：
(1)P=Chr(65)
'輸出字符A,因為A的ASCII碼等于65
(2)P=Asc("A")
'輸出65
2. Len(X)：計算字符串X的長度
[格式]：
P=Len(X)
[說明]：
空字符串長度為0，空格符也算一個字符，一個中文字雖然占用2 Bytes，但也算一個字符。
[范例]：
(1) 令X="" (空字符串)
Len(X) 輸出結果為0
(2) 令X="abcd"
Len(X) 輸出結果為4
(3) 令X="VB教程"
Len(X) 輸出結果為4
3. Mid(X)函數(shù)：讀取字符串X中間的字符
[格式]：
P=Mid(X,n)
由X的第n個字符讀起，讀取后面的所有字符。
P=Mid(X,n,m)
由X的第n個字符讀起，讀取后面的m個字符。
[范例]：
(1) X="abcdefg"
P=Mid(X,5)
結果為：P="efg"
(2) X="abcdefg"
P=Mid(X,2,4)
結果為P="bcde"
4. Replace： 將字符串中的某些特定字符串替換為其他字符串
[格式]：
P=Replace(X,S,R)
[說明]：將字符串X中的字符串S替換為字符串R，然后返回。
[范例]：
X="VB is very good"
P=Replace(X,good,nice)
輸出結果為：P="VB is very nice"
5. StrReverse：反轉字符串
[格式]：
P=StrReverse(X)
[說明]：
返回X參數(shù)反轉后的字符串
[范例]：
(1)X="abc"
P=StrReverse(X)
輸出結果：P="cba"
6. Ucase(X)，Lcase(X)：轉換英文字母的大小寫
[格式]：
P=Lcase(X)
'將X字符串中的大寫字母轉換成小寫
P=Ucase(X)
'將X字符串中的小寫字母轉換成大寫
[說明]：除了英文字母外，其他字符或中文字都不會受到影響。
[范例]：
(1) 令 X="VB and VC"
則Lcase(X)的結果為"vb and vc"，Ucase(X)的結果為"VB AND VC"
7. InStr函數(shù)：尋找字符串
[格式]：
P=InStr(X,Y)
從X第一個字符起找出Y出現(xiàn)的位置
P=InStr(n,X,Y)
從X第n個字符起找出Y出現(xiàn)的位置
[說明]：
(1) 若在X中找到Y，則返回值是Y第一個字符出現(xiàn)在X中的位置。
(2) InStr(X,Y)相當于InStr(1,X,Y)。
(3) 若字符串長度，或X為空字符串，或在X中找不到Y，則都返回0。
(4) 若Y為空字符串，則返回0。
(二)日期時間類函數(shù)：
1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X)
取出X"年"部分的數(shù)值
P=Month(X)
取出X"月"部分的數(shù)值
P=Day(X)
取出X"日"部分的數(shù)值
[說明]：Year返回的是公元年，若X里只有時間，沒有日期，則日期視為#1899/12/30#
2. Hour，Minute，Second函數(shù)：取出時，分，或秒
[格式]：
P=Hour(X)
取出X"時"部分的數(shù)值
P=Minute(X)
取出X"分"部分的數(shù)值
P=Second(X)
取出X"秒"部分的數(shù)值
[說明]：Hour的返回值是0---23之間
[范例]：
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
則輸出結果：P=10，Q=34，R=23
3. DateSerial函數(shù)：合并年，月，日成為日期
[格式]：DateSerial(Y,M,D)
其中Y是年份，M為月份，D為日期
[說明]：
(1) M值若大于12，則月份從12月起向后推算M-12個月；若小于1，則月份從1月起向后推算1-M個月。
(2) 若日期D大于當月的日數(shù)，則日期從當月的日數(shù)起，向后推算D-當月日數(shù)；若小于1，則日期從1日起向前推算1-D日。
[范例]：
P=DateSerial(2000,02,02)
則結果為P=2000/02/02
4．TimeSerial函數(shù)：合并時，分，秒成為時間
[格式]：P=TimeSerial(H,M,S)
其中H為小時數(shù)，M為分鐘數(shù)，S為秒數(shù)
[說明]：推算原理同上面的DateSerial
[范例]：
P=TimeSerial(6,32,45)
結果為：P=6:32:45
5．Date,Time,Now函數(shù)：讀取系統(tǒng)的日期時間
[格式]：
P=Date()
P=Time()
P=Now()
[說明]：這三個函數(shù)都無參數(shù)
[范例]：
若當前時間為2003年8月29日晚上19點26分45秒，則
P=Now()
結果為：P=2003-08-29 19:26:45
6．MonthName：返回月份名稱
[格式]：P=MonthName(X)
[說明]：X參數(shù)可傳入1---12，則返回值為"一月"、"二月"……，但是在英文Windows環(huán)境下，返回的是"January","February"……
[范例]：
P=MonthName(1)
則P="一月"
7．WeekdayName：返回星期名稱
[格式]：P=WeekdayName(X)
[說明]：X參數(shù)可傳入1—7，則返回值為"星期日"，"星期一"……，但是在英文windows環(huán)境下，返回的是"Sunday","Monday"……
[范例]：
P=WeekdayName(1)
結果為：P="星期日"
函數(shù)名稱 函數(shù)功能
Cbool(string) 轉換為布爾值
Cbyte(string) 轉換為字節(jié)類型的值
Ccur(string) 轉換為貨幣類值
Cdate(string) 轉換為日前類型的值
Cdbl(string) 轉換為雙精度值
Cint(string) 轉換為整數(shù)值
Clng(string) 轉換為長整型的值
Csng(string) 轉換為單精度的值
Cstr(var) 轉換為字符串值
Str(var) 數(shù)值轉換為字符串
Val(string) 字符串轉換為數(shù)值
***************************************
Abs(nmb) 返回數(shù)子的絕對值
Atn(nmb) 返回一個數(shù)的反正切
Cos(nmb) 返回一個角度的余炫值
Exp(nmb) 返回自然指數(shù)的次方值
Int(nmb) 返回數(shù)字的整形（進位）部份 8.4--9
Fix(nmb) 返回數(shù)字的整形（舍去）部份 8.4--8
Formatpercent(表達式) 返回百分比
Hex(nmb) 返回數(shù)據(jù)的16進制數(shù)
Log(nmb) 返回自然對數(shù)
Oct(nmb) 返回數(shù)字的8進制數(shù)
Rnd 返回大于“0”而小于“1”的隨機數(shù)
Sgn(nmb) 判斷一個數(shù)字的正負號
Sin(nmb) 返回角度的正鉉值
Sqr(nmb) 返回數(shù)字的二次方根
Tan(nmb) 返回一個數(shù)的正切值
Asc(string) 返回ASCII字符串
Chr(charcode) 根據(jù)字符代碼返回字符
Instr(string,searchstr) 返回被搜索字符串的第一個字符位置，string是字符串，searchstr是被搜索的字符串
InstrRev(string,searchstr) 同上，只是從右面開始搜索
Lcase(var) 把字符串變?yōu)樾?/p>
Left(string,nmb) 從string中返回從左面開始的nmb個字符串
Len(string) 返回字符串的長度
Ltrim(string) 截去字符串左邊的空格
Filter(inputstrings,value) 返回字符串數(shù)組的字集，Inputstrings是字符串組，value是在數(shù)組中尋找的字符
Rtrim(string) 截去字符串右邊的空格
Trim(string) 截去字符串前后空格
Mid(string,start,len) 在string中返回從start位置開始的len個字符
Replace(string,find,withstr) 在字符串string中，用withstr來替換find字符串
Right(string,nmb) 從string中返回從右面開始的nmb個字符串
Space(nmb) 返回指定空格的字符串
StrComp(string1,string2) 比較兩個字符串
Ucase(string) 把字符串變?yōu)榇髮?/p>
****************************************
Date() 返回當前系統(tǒng)日期
DateAdd(interval,nmb,date) 用一個基礎時間返回指定增加了時間間隔的日期，interval是間隔類型，yyyy－年，m－月，d－日，h－小時，n－分。
DateDiff(interval,nmb1,nmb2) 返回兩個時間間隔，interval的意思同上
Datevalue(date) 發(fā)揮Date中的日期部份
Day(date) 返回天數(shù)
FormatDatetime(date) 返回格式化為日期的表達式
Hour(time) 返回時間的小時數(shù)
Minute(time) 返回時間的分鐘數(shù)
Month(date) 返回日期中的月份
Now() 返回系統(tǒng)的日期和時間
Second(time) 返回時間中的秒數(shù)
Time() 返回系統(tǒng)的當前時間
Weekday(date) 返回星期幾
WeekdayName(date) 返回星期幾的中文名
Year(date) 返回年份
IsArray(var) 判斷一個變量是否是數(shù)組
IsDate(var) 判斷一個變量是否是日期
IsNull(var) 判斷一個變量是否為空
IsNumeric 判斷表達式是否包含數(shù)值
IsObject(var) 判斷一個變量是否是對象
TypeName(var) 返回變量的數(shù)據(jù)類型
************************************
Array(list) 返回數(shù)組
CreateObject(class) 創(chuàng)建一個對象
GetObject(pathfilename) 得到文件對象
Inputbox(prompt) 提供一個可供輸入數(shù)據(jù)的對話框
LBound(arrayP) 返回數(shù)組的最小索引
Msgbox(string) 輸出一個消息框
Split(liststr) 從一個列表字符串中返回一個一維數(shù)組
Ubound(array) 返回數(shù)組的最大索引
VB.net有下列兩種方法
Dim?a?=?Math.Pow(10,?3)?'?求10的3次方?
Dim?a2?=?10?^?3?'VB6.0只有這一種
滿意請采納，謝謝。
重慶分公司
重慶分公司
