vb數學函數

『壹』 VB內部函數

FileNameFileTitle
Filter
dlgopen.showopen
text1.text=dlgopen.filenameInitDir初始化路徑
default
Option ExplicitPrivate Sub Command1_Click()
Dialog1.ShowOpen
Text1.Text = Dialog1.FileName
End Sub
文本框顯示路徑文字
Private Sub Command2_Click()
Dialog2.ShowColor
Text1.ForeColor = Dialog2.Color
End Sub
文本框前景顏色
Private Sub Command3_Click()
End
End Sub
Dialog2.ShowPrint
Dialog2.ShowHelp
Vb常用內部函數
請單擊要查看的函數組：
類型轉換函數 數學函數 日期與時間函數 隨機數函數
字元串函數 文件操作函數 窗體輸入輸出函數 Chr vbcrlf
單擊下面的大標題可以返回此處：
類型轉換函數
Int(x):求不大於自變數x的最大整數
Fix(x):去掉一個浮點數的小數部分，保留其整數部分
Hex$(x):把一個十進制數轉換為十六進制數
Oct$(x):把一個十進制數轉換為八進制數
Asc(x$):返回字元串x$中第一個字元的ASCII字元
Chr$(x):把x的值轉換為相應的ASCII字元
VB按下按鈕後，標題顯示A再按一次顯示B，再按一次又顯示A
Option Explicit
方法一
Private Sub Form_Click()
Me.Caption = Chr$((-Asc(Me.Caption) + 131))
End SubPrivate Sub Form_Load()
Me.Caption = "A"
End Sub
65～90為26個大寫英文字母，97～122號為26個小寫英文字母，其餘為一些標點符號、運算符號等xor異或 Str$(x):把x的值轉換為一個字元串
Cint(x):把x的小數部分四捨五入，轉換為整數
Ccur(x):把x的值轉換為貨幣類型值，小數部分最多保留4 位且自動四捨五入
CDbl(x):把x值轉換為雙精度數
CLng(x):把x的小數部分四捨五入轉換為長整數型數
CSng(x):把x值轉換為單精度數
Cvar(x):把x值轉換為變體類型值
VarPtr(var):取得變數var的指針
數學函數
Sin(x):返回自變數x的正弦值
Cos(x): 返回自變數x的餘弦值
Tan(x): 返回自變數x的正切值
Atn(x): 返回自變數x的反正切值
Abs(x): 返回自變數x的絕對值
Sgn(x): 返回自變數x的符號，即當x為負數時，返回-1；當x為0時，返回
0;當x為正數時，返回1
Sqr(x):返回自變數x的平方根，x必須大於或等於0
Exp(x):返回以e為底，以x為指數的值，即求e的x次方
日期與時間函數
Day(Now):返回當前的日期
WeekDay(Now):返回當前的星期
Month(Now):返回當前的月份
Year(Now):返回當前的年份
Hour(Now):返回小時(0~23)
Minute(Now):返回分(0~59)
Second(Now):返回秒?(0~59)隨機數函數
Rnd[(x)]:產生一個0~1之間的單精度隨機數
http://ke..com/view/860298.htm
Randmize[(x)]:功能同上，不過更好
http://ke..com/view/1081216.htm
字元串函數
LTrim$(字元串):去掉字元串左邊的空白字元
Rtrim$(字元串):去掉字元串右邊的空白字元
Left$(字元串,n):取字元串左部的n個字元
Right$(字元串,n):取字元串右部的n個字元
Mid$(字元串,p,n):從位置p開始取字元串的n個字元
Len(字元串):測試字元串的長度
String$(n,字元串):返回由n個字元組成的字元串
Space$(n):返回n個空格
InStr(字元串1,字元串2):在字元串1中查找字元串2
Ucase$(字元串):把小寫字母轉換為大寫字母
Lcase$(字元串):把大寫字母轉換為小寫字母
窗體輸入輸出函數
Print(字元串):在窗體輸出字元串，可以用」&」對變數進行連接後輸出
Tab(n):把游標移到該行的n開始的位置
Spc(n):跳過n個空格
Cls:清除當前窗體內的顯示內容
Move 左上角x，左上角y,寬度，高度:移動窗體或控制項
InputBox(prompt,…):跳出一個數據輸入窗口，返回值為該窗口的輸入值
MsgBox(msg,[type]…):跳出一個提示窗口文件操作函數
Open 文件名 [For方式] [Access存取類型] [鎖定] AS [#]文件號 [Len=記錄長度]
功能：為文件的輸入輸出分配緩沖區，並確定緩沖區所使用的存取方式
說明：
方式：指定文件的輸入輸出方式，可選,默認是Random,可以是以下值
Output:指定順序輸出方式，將覆蓋原有內容
Input:指定順序輸入方式
Append:指定順序輸出方式，在文件未尾追加內容
Random:指定隨機存取方式，也是默認方式，在Random方式時，如果沒有Access子句，則在執行Open語句時，VB將按下列順序打開文件：讀/寫、只讀、只寫
指定二進制文件。在這種方式下，可以用Get和Put語句對文件中任何位元組位置的信息進行讀寫。在Binary方式中，如果沒有Access子句，則打開文件的類型與Random方式相同
2)、存取類型：放在關鍵字Access之後，用來指定訪問文件的類型。可以是下列類型之一
Read:打開只讀文件
Write:打開只寫文件
Read Write:打開讀寫文件。這種類型只對隨機文件、二進制文件及用Append方式打開的文件有效
3)、鎖定：該子句只在多用戶或多進和環境中使用，用來限制其他用戶或其他進程對打開進行讀寫操作。鎖定類型包括：
默認：如不指定鎖定類型，則本進程可以多次打開文件進行讀寫；在文件打開期間，其他進程不能對該文件執行讀寫操作
Lock Shared:任何機器上的任何進程都可以對該文件進行讀寫操作
Lock Read:不允許其他進程讀該 文件。只在沒有其他Read存取類型的進程訪問該文件時，才允許這種鎖定。
Lock Write:不允許其他進程寫這個文件。只在沒有其他Write存取類型的進程訪問該文件時，才允許這種鎖定
Lock Read Write:不允許其他進程讀寫這個文件
如果不使用lock子句，則默認為Lock Read write
4)、文件號：由用戶自行指定一個由1~511之間的整數，只要該文件號未被使用就合法；打開文件後，可以用該文件號進行讀寫等操作
5)、記錄長度：是一個整型表達式。當選擇該參量時，為隨機存取文件設置記錄長度。對於用隨機訪問方式打開的文件，該值是記錄長度；對於順序文件，該值是緩沖字元數。」記錄長度」不能超過32767位元組。對於二進制文件，將忽略Len子句
舉例：Open 「price.dat」 for Output as #1
Open 「C:\abc.dat」 for radom as #1 len=256Close [#文件號][，#文件號]……:關閉文件
Seek #文件號，位置：文件指針跳到指定位置，以位元組為單位。取值1~pow(2,31)-1
Seek (文件號):返回當前文件指針的位置
FreeFile():取得一個未使用的文件號
Loc(文件號)：返回指定文件的當前讀寫位置
LOF（文件號）：返迴文件長度
EOF（文件號）：用來測試文件是否結束，結束返回true
Print #文件號，變數1，變數2，…變數n:按順序將各變數的值寫入順序文件
如果是print #文件號，則寫入空行
Write #文件號，表達式表…：作用同?Print
Input #文件號，變數表….：讀順序文件，進行與Print相反的操作
Line Input #文件號，字元串變數：從順序文件中讀入一行
Input$(n,#文件號)：從順序文件讀出?n個字元的字元串
Put #文件號，[記錄號]，變數：把除對象變數和數組變數外的任何變數（包括弧含有單個數組元素的下標變數）的內容寫入隨機文件。
例如：Put #2,,filebuff
Get #文件號，[記錄號]，變數：讀隨機文件，執行與put相反的操作
Get|put #文件號，[位置]，變數：讀寫二制文件，位置是指下一次讀寫操作的位置。
Kill 文件名：刪除文件
FileCopy 源文件名，目標文件名：復制文件
Name原文件名 as 新文件名：重命令文件
Print
Print""; Tab(1);
Print
Spc函數
Spc（n）
Space$（8）格式輸入函數
Format$()
Format 函數示例
本示例顯示用 Format 函數做格式化輸出的不同用法.對於日期分隔號（/），時間分隔號（:），以及 AM/ PM 等文本而言，其真正的顯示格式會因計算機上的國際標准不同而有所差異.在開發階段，日期與時間是以短日期的格式，配合代碼的國際標准來顯示的.而在運行時，短日期則是根據系統的國際標准而定，而系統的國際標准和代碼的國際標准可能並不相同.本示例中是假設國際標准為 English/United States.MyTime 及 MyDate 在開發環境下，使用系統的短日期設置顯示出來的.Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#' 以系統設置的長時間格式返回當前系統時間.
MyStr = Format(Time, "Long Time")' 以系統設置的長日期格式返回當前系統日期.
MyStr = Format(Date, "Long Date")MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993".
' 如果沒有指定格式，則返回字元串.
MyStr = Format(23) ' 返回 "23".' 用戶自定義的格式.
MyStr = Format(5459.4, "##,##0.00") ' 返回 "5,459.40".
MyStr = Format(334.9, "###0.00") ' 返回 "334.90".
MyStr = Format(5, "0.00%") ' 返回 "500.00%".
MyStr = Format("HELLO", "<") ' 返回 "hello".
MyStr = Format("This is it", ">") ' 返回 "THIS IS IT".
用戶自定義字元串格式 (Format 函數)。 可以用下面任意字元來創建格式表達式用於字元串：字元 說明@ 字元佔位符。顯示字元或是空白。如果字元串在格式字元串中 @的位置有字元存在，那麼就顯示出來；否則，就在那個位置上顯示空白。除非有驚嘆號字元 (!) 在格式字元串中，否則字元佔位符將由右而左被填充。& 字元佔位符。顯示字元或什麼都不顯示。如果字元串在格式字元串中和號 (&) 的位置有字元存在，那麼就顯示出來；否則，就什麼都不顯示。除非有驚嘆號字元 (!) 在格式字元串中，否則字元佔位符將由右而左被填充。< 強制小寫。將所有字元以小寫格式顯示。> 強制大寫。將所有字元以大寫格式顯示。! 強制由左而右填充字元佔位符。預設值是由右而左填充字元佔位符。 From MSDN For VB6 Format 函數
返回 Variant (String)，其中含有一個表達式，它是根據格式表達式中的指令來格式化的。語法Format(expression[, format[, firstdayofweek[, firstweekofyear]]])Format 函數的語法具有下面幾個部分：部分 說明
expression 必要參數。任何有效的表達式。
format 可選參數。有效的命名表達式或用戶自定義格式表達式。
firstdayofweek 可選參數。常數，表示一星期的第一天。
firstweekofyear 可選參數。常數，表示一年的第一周。 設置值firstdayofweek 參數有下面設置：常數 值 說明
vbUseSystem 0 使用 NLS API 設置。
VbSunday 1 星期日（預設）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六 firstweekofyear 參數有下面設置：常數 值 說明
vbUseSystem 0 使用 NLS API 設置。
vbFirstJan1 1 從包含一月一日的那一周開始（預設）。
vbFirstFourDays 2 從本年第一周開始，而此周至少有四天在本年中。
VbFirstFullWeek 3 從本年第一周開始，而此周完全在本年中。 說明格式化 作法
數字 使用預先定義的命名數值格式或創建用戶自定義數值格式。
日期和時間 使用預先定義的命名日期/時間格式或創建用戶自定義日期/時間格式。
日期和時間序數 使用日期和時間格式或數值格式。
字元串 創建自定義的字元串格式。 如果在格式化數字時沒有指定 format，Format 會提供與 Str 函數類似的功能，盡管它是國際化的。然而，以 Format 作用在正數上不會保留正負號空間，而以 Str 的話則會InputBox
a=InputBox（"請輸入你的名字"，"提示"，"蓋茨"，3000，5000）
Print ""&type語句
可以··
Type 語句
在模塊級別中使用，用於定義包含一個或多個元素的用戶自定義的數據類型。語法[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
. . .End TypeType 語句的語法包含下面部分：部分 描述
Public 可選的。用於聲明可在所有工程的所有模塊的任何過程中使用的用戶定義類型。
Private 可選的。用於聲明只能在包含該聲明的模塊中使用的用戶自定義的類型。
varname 必需的。用戶自定義類型的名稱；遵循標準的變數命名約定
elementname 必需的。用戶自定義類型的元素名稱。除了可以使用的關鍵字，元素名稱也應遵循標准變數命名約定。
subscripts 可選的。數組元素的維數。當定義大小可變的數組時，只須圓括弧。subscripts 參數使用如下語法：
[lower To] upper [,[lower To] upper] . . .
如果不顯式指定 lower，則數組的下界由 Option Base 語句控制。如果沒有 Option Base 語句則下界為 0。
type 必需的。元素的數據類型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（對變長的字元串）、String * length（對定長的字元串）、Object、Variant、其它的用戶自定義的類型或對象類型。
說明Type 語句只能在模塊級使用。使用 Type 語句聲明了一個用戶自定義類型後，就可以在該聲明範圍內的任何位置聲明該類型的變數。可以使用 Dim、Private、Public、ReDim 或 Static 來聲明用戶自定義類型的變數。在標准模塊中，用戶自定義類型按預設設置是公用的。可以使用 Private 關鍵字來改變其可見性。而在類模塊中，用戶自定義類型只能是私有的，且使用 Public 關鍵字也不能改變其可見性。

『貳』 vb函數大全

VB中字元串函數包含： mid、instr、InStrRev、left、right、ucase、lcase、trim、string

space、strconv、len、ltrim、rtirm、split()、join()、srereverse、replaceFilterMonthName

Format、LSet、RSet、FormatCurrency、FormatDateTime、FormatNumber

FormatPercent、StrComp、StrConv、StrReverse、WeekdayName、Option Compare

(2)vb數學函數擴展閱讀:

一、基礎字元串函數部分（必須要掌握）

1，len函數返回 Long，其中包含字元串內字元的數目，或是存儲一變數所需的位元組數。

2，Left函數返回Variant(String)，其中包含字元串中從左邊算起指定數量的字元

3，Right函數返回Variant(String)，其中包含從字元串右邊取出的指定數量的字元

4，Mid函數返回Variant(String)，其中包含字元串中指定數量的字元。

5，LTrim、RTrim與 Trim 函數

返回Variant(String)，其中包含指定字元串的拷貝，沒有前導空白 (LTrim)、尾隨空白 (RTrim) 或前導和尾隨空白 (Trim)。

『叄』 VB中的數學函數log

log函數功能是算出以e為底數的對數

如log(e)=1

e約= 2.718281828459

高中時不是學過嗎

如果要算以其他數為底數如

lg100就要寫成log(100)/log(10)

『肆』 怎麼在VB中繪制數學函數圖象

第一步,新建一個工程,新建一個Form1,在上面添加一個picture控制項和一個command控制項,然後選中此控制項,右擊"復制",在窗體空白處右擊"粘貼",在彈出的對話框中選擇"是",創建了一個Command控制項數組,復制,使窗體上總共出現7個Command控制項,然後復制代碼:
Const Pi = 3.1415926535 '定義圓周率
Dim a, wor
Dim i As Integer
Static Function Loge(X)
Loge = Log(X) / Log(Exp(1))
End Function
'定義用於在Picture1上的一個位置列印字元函數
Private Function PrintWord(X, y, Word As String)
With Picture1
.CurrentX = X
.CurrentY = y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐標系
Picture1.DrawWidth = 1 '設置線條寬度
Picture1.Cls
'設定用戶坐標系，坐標原點在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'畫 X 軸
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'畫 Y 軸
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin <> 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 2
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
For a = -3 To 3 Step Pi / 6000
Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "二次曲線 y=x^2")
Case 1
For a = -9 To 9 Step Pi / 6000
Dot = DrawDot(a, a, RGB(0, 0, 0))
Next a
wor = PrintWord(8, 5, "一次曲線 y=x")
Case 2
For a = -9 To 3 Step Pi / 6000
Dot = DrawDot(a, Exp(a), RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "指數曲線 y=e^x")
Case 3
For a = 0.0001 To 9 Step Pi / 6000
Dot = DrawDot(a, Loge(a), RGB(0, 0, 0))
Next a
wor = PrintWord(8, 3, "對數曲線 y=ln x")
Case 4
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Sin(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-5, 2, "正弦曲線 y=sin x")
Case 5
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Cos(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-9, 2, "餘弦曲線 y=cos x")
Case 6
XY
End Select
End Sub
Private Sub Form_Load()
Me.Caption = "數學函數作圖?quot;"
Me.Show
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Command1(0).Caption = "二次曲線"
Command1(1).Caption = "一次曲線"
Command1(2).Caption = "指數曲線"
Command1(3).Caption = "對數曲線"
Command1(4).Caption = "正弦曲線"
Command1(5).Caption = "餘弦曲線"
Command1(6).Caption = "清空"
XY
End Sub
Private Sub Form_Resize()
Picture1.Width = Me.Width * 0.94
Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100)
Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(0).Left = Me.Width * 0.01
For i = 1 To 6
Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(i).Left = Command1(i - 1).Left + 1000
Next
XY
End Sub

『伍』 VB語句函數大全

(一)類型轉換類函數
1. CType(X)
[格式]：
P=CBool(X)
' 將X轉換為"布爾"(Boolean)類型
P=CByte(X)
' 將X轉換為"位元組"(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)
' 數值轉換成字元串後，用"+"號連接， 結果：1323
(2). CInt("12")+12
' 字元串轉換成整型後與12相加， 結果：24
(3). P=CInt(True)
' 輸出結果為-1
' 布爾值與數值的轉換時要注意，布爾值只有True和False，其中True在內存中為-1,False存為0
(4). CBool(-0.001)
' 輸出結果為True
' 將數值轉換為布爾型時，等於0的數值將得到False，不等於0的數值得到True.

2. Int(X),Fix(X)：取X的整數值
[格式]：
P=Int(X) ' 取<=X的最大整數值
P=Fix(X) ' 取X的整數部分，直接去掉小數

[範例]：
(1) Int(-54.6)
' 結果為-55，取<=-54.6的最大整數
(2) Fix(54.6)
' 結果為54，取整數並直接去掉小數

(二)常用數學函數
[格式]：
1. Abs(N) 取絕對值
例：Abs(-3.5) 結果：3.5

2. Cos(N) 餘弦函數
例：Cos(0) 結果：1

3. Exp(N) e為底的指數函數
例：Exp(3) 結果：20.068

4. Log(N) 以e為底的自然對數
例：Log(10) 結果：2.3

5. Rnd[(N) 產生隨機數
例：Rnd 結果：0--1之間的數

6. Sin(N) 正弦函數
例：Sin(0) 結果：0

7. Sgn(N) 符號函數
' 說明：取正負號。Y=Sgn(X) 既 X>0 則Y=1；X=0 則Y=0；X<0 則Y= -1

8. Sqr(N) 平方根
例：Sqr(9) 結果：3

9. Tan(N) 正切函數
例：Tan(0) 結果：0

10.Atn(N) 反切函數
例：Atn(0) 結果：0

[注意]：在三角函數中，以弧度表示。

(一)字元串類函數：

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)函數：讀取字元串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參數反轉後的字元串
[範例]：
(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函數：尋找字元串
[格式]：
P=InStr(X,Y)
從X第一個字元起找出Y出現的位置
P=InStr(n,X,Y)
從X第n個字元起找出Y出現的位置
[說明]：
(1) 若在X中找到Y，則返回值是Y第一個字元出現在X中的位置。
(2) InStr(X,Y)相當於InStr(1,X,Y)。
(3) 若字元串長度，或X為空字元串，或在X中找不到Y，則都返回0。
(4) 若Y為空字元串，則返回0。

(二)日期時間類函數：
1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X)
取出X"年"部分的數值
P=Month(X)
取出X"月"部分的數值
P=Day(X)
取出X"日"部分的數值
[說明]：Year返回的是公元年，若X里只有時間，沒有日期，則日期視為#1899/12/30#

2. Hour，Minute，Second函數：取出時，分，或秒
[格式]：
P=Hour(X)
取出X"時"部分的數值
P=Minute(X)
取出X"分"部分的數值
P=Second(X)
取出X"秒"部分的數值
[說明]：Hour的返回值是0---23之間

[範例]：
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
則輸出結果：P=10，Q=34，R=23

3. DateSerial函數：合並年，月，日成為日期
[格式]：DateSerial(Y,M,D)
其中Y是年份，M為月份，D為日期
[說明]：
(1) M值若大於12，則月份從12月起向後推算M-12個月；若小於1，則月份從1月起向後推算1-M個月。
(2) 若日期D大於當月的日數，則日期從當月的日數起，向後推算D-當月日數；若小於1，則日期從1日起向前推算1-D日。
[範例]：
P=DateSerial(2000,02,02)
則結果為P=2000/02/02

4．TimeSerial函數：合並時，分，秒成為時間
[格式]：P=TimeSerial(H,M,S)
其中H為小時數，M為分鍾數，S為秒數
[說明]：推算原理同上面的DateSerial
[範例]：
P=TimeSerial(6,32,45)
結果為：P=6:32:45

5．Date,Time,Now函數：讀取系統的日期時間
[格式]：
P=Date()
P=Time()
P=Now()
[說明]：這三個函數都無參數
[範例]：
若當前時間為2003年8月29日晚上19點26分45秒，則
P=Now()
結果為：P=2003-08-29 19:26:45

6．MonthName：返回月份名稱
[格式]：P=MonthName(X)
[說明]：X參數可傳入1---12，則返回值為"一月"、"二月"……，但是在英文Windows環境下，返回的是"January","February"……
[範例]：
P=MonthName(1)
則P="一月"

7．WeekdayName：返回星期名稱
[格式]：P=WeekdayName(X)
[說明]：X參數可傳入1—7，則返回值為"星期日"，"星期一"……，但是在英文windows環境下，返回的是"Sunday","Monday"……
[範例]：
P=WeekdayName(1)
結果為：P="星期日"

函數名稱 函數功能
Cbool(string) 轉換為布爾值
Cbyte(string) 轉換為位元組類型的值
Ccur(string) 轉換為貨幣類值
Cdate(string) 轉換為日前類型的值
Cdbl(string) 轉換為雙精度值
Cint(string) 轉換為整數值
Clng(string) 轉換為長整型的值
Csng(string) 轉換為單精度的值
Cstr(var) 轉換為字元串值
Str(var) 數值轉換為字元串
Val(string) 字元串轉換為數值
***************************************

Abs(nmb) 返回數子的絕對值
Atn(nmb) 返回一個數的反正切
Cos(nmb) 返回一個角度的余炫值
Exp(nmb) 返回自然指數的次方值
Int(nmb) 返回數字的整形（進位）部份 8.4-->9
Fix(nmb) 返回數字的整形（捨去）部份 8.4-->8
Formatpercent(表達式) 返回百分比
Hex(nmb) 返回數據的16進制數
Log(nmb) 返回自然對數
Oct(nmb) 返回數字的8進制數
Rnd 返回大於「0」而小於「1」的隨機數
Sgn(nmb) 判斷一個數字的正負號
Sin(nmb) 返回角度的正鉉值
Sqr(nmb) 返回數字的二次方根
Tan(nmb) 返回一個數的正切值
Asc(string) 返回ASCII字元串
Chr(charcode) 根據字元代碼返回字元
Instr(string,searchstr) 返回被搜索字元串的第一個字元位置，string是字元串，searchstr是被搜索的字元串
InstrRev(string,searchstr) 同上，只是從右面開始搜索
Lcase(var) 把字元串變為小寫
Left(string,nmb) 從string中返回從左面開始的nmb個字元串
Len(string) 返回字元串的長度
Ltrim(string) 截去字元串左邊的空格
Filter(inputstrings,value) 返回字元串數組的字集，Inputstrings是字元串組，value是在數組中尋找的字元
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) 把字元串變為大寫
****************************************

Date() 返回當前系統日期
DateAdd(interval,nmb,date) 用一個基礎時間返回指定增加了時間間隔的日期，interval是間隔類型，yyyy－年，m－月，d－日，h－小時，n－分。
DateDiff(interval,nmb1,nmb2) 返回兩個時間間隔，interval的意思同上
Datevalue(date) 發揮Date中的日期部份
Day(date) 返回天數
FormatDatetime(date) 返回格式化為日期的表達式
Hour(time) 返回時間的小時數
Minute(time) 返回時間的分鍾數
Month(date) 返回日期中的月份
Now() 返回系統的日期和時間
Second(time) 返回時間中的秒數
Time() 返回系統的當前時間
Weekday(date) 返回星期幾
WeekdayName(date) 返回星期幾的中文名
Year(date) 返回年份
IsArray(var) 判斷一個變數是否是數組
IsDate(var) 判斷一個變數是否是日期
IsNull(var) 判斷一個變數是否為空
IsNumeric 判斷表達式是否包含數值
IsObject(var) 判斷一個變數是否是對象
TypeName(var) 返回變數的數據類型
************************************
Array(list) 返回數組
CreateObject(class) 創建一個對象
GetObject(pathfilename) 得到文件對象
Inputbox(prompt) 提供一個可供輸入數據的對話框
LBound(arrayP) 返回數組的最小索引
Msgbox(string) 輸出一個消息框
Split(liststr) 從一個列表字元串中返回一個一維數組
Ubound(array) 返回數組的最大索引

『陸』 vb常用函數

VB常用函數介紹
一、常用內部函數
在VB內部提供了大量函數。在這些函數中，有些是通用的。有些則與某種操作有關的。大體分成五類，分別是：轉換函數、數學函數、日期函數、時間函數和隨機函數。
（1）轉換函數
函數名 功能
Int(x) 返回不大於自變數的最大整數。
Fix(x) 去掉一個浮點數的小數部分,保留其整數部分。
Hex(x) 把一個十進制數轉換成為十六進制數。
Oct(x) 把一個十進制數轉換成為八進制數。
Asc(x) 返回字元串中第一個字元的ASCII碼。
Chr(x) 把值轉換為相應的ASCII字元。
Str(x) 把值轉換為一個字元串
Cint(x) 把小數部分四捨五入，轉換為整數。
Ccur(x) 把值轉換為貨幣類型，小數部分最多保留4位。
CDbl(x) 把值轉換為雙精度數值。
CLng(x) 把值小數部分四捨五入轉換為長整型數值。
CSng(x) 把值轉換為單精度數值。
CVar(x) 把值轉換為變體類型值。
（2）數學函數
函數名 功能
Sin(x) 返回正弦值。
Cos(x) 返回餘弦值。
Tan(x) 返回正切值。
Atn(x) 返回反正切值。
Abs(x) 返回絕對值。
Sgn(x) 返回自變數的符號。即：
值為負數時，函數返回-1
值為0時，函數返回0
值為正數時，函數返回1
Sqr(x) 返回自變數x的平方根，自變數必須大於或等於0。
Exp(x) 返回以e為底數，以x為指數的值，即求e的x次方。
（3）日期函數
函數名 功能
Day(Now) 返回當前的日期。
WeekDay(Now) 返回當前的星期。
Month(Now) 返回當前的月份。
Year(Now) 返回當前的年份。
（4）時間函數
函數名 功能
Hour(Now) 返回小時（0~23）。
Minute(Now) 返回分鍾（0~59）。
Second(Now) 返回秒（0~59）。
（5）隨機函數
Rnd(x) 產生一個0~1之間的單精度隨機數
Rnd函數可以產生隨機數，當一個應用程序不斷地重復使用隨機數時，同一序列的隨機數會反復出現，用Randomize語句可以消除這種情況。
二、字元串函數
（1）刪除空白字元函數
函數名 功能
LTrim(字元串) 去掉「字元串」左邊的空白字元；
RTrim(字元串) 去掉「字元串」右邊的空白字元；
Trim(字元串) 去掉「字元串」兩邊的空白字元；
（2）字元串截取函數
①左部截取
格式：Left（字元串，n）
返回字元串的前n個字元（n≥0）。
②中部截取
格式：Mid（字元串，p，n）
從第P個字元開始，向後截取n個字元（P>0，n≥0）。函數的第三個自變數可以省略。在省略的情況下，將從第二個自變數指定的位置向後截取到字元串的末尾。
③右部截取
格式：Right（字元串，n）
返回字元串最後n個字元（n≥0）。
（3）字元串長度測試函數
格式：Len(字元串)Len(變數名)
用Len函數可以測試字元串的長度，也可以測試變數的存儲空間。
（4）String函數
格式：String（n，ASCII碼） String（n,字元串）
返回由n指定個數組成的字元串。第二個自變數可以使用ASCII碼，也可以是字元串。
（5）空格函數
格式：Space（n）
返回n個空格。
（6）字元串匹配函數
格式：InStr（[首字元位置，]字元串1，字元串2 [,n]）
在函數中「字元串1」中查找「字元串2」，如果找到了，則返回「字元串2」的第一個字元的位置。若為字元串首字元，則位置為1。
說明：
①「字元串2」的長度限於65535個字元內。
②「首字元位置」是可選項。如果含有「首字元位置」，則從該位置開始查找，否則從「字元串1」的起始位置開始查找。「首字元位置」是一個長整數。
③函數的最後n是可選項，類型為整型數，用來指定字元串比較。取范圍是：0、1、2。
為0使用二制進比較，區分字母的大小寫；
為1比較時忽略大小寫；
為2則基於資料庫中包含的信息進行比較（限於Access資料庫）。
（7）字母大小寫轉換
格式：Ucase（字元串）』小寫字母轉大小字母。
Lcase（字元串）』大寫字母轉換為小寫字母。
三、MsgBox函數
MsgBox函數的格式如下：
MsgBox（msg [，Type][，Title][，HelpFile，Context]）
①②③ ④
函數共有5個參數，除①參數外，其餘都是可選參數。
①msg是字元串類型，長度限制為1024字元。超出字元會被自動截取。
②type是一個整數值或符號常量，用來控制在對話框內顯示的按鈕、圖標的類型。參數值由四類數值相加產生，這四類數值或符號常量分別表示按鈕的類型、顯示圖標的種類、活動按鈕的位置及強制返回。
常數 值 描述
vbOKOnly 0 只顯示 OK 按鈕。
VbOKCancel 1 顯示 OK 及 Cancel 按鈕。
VbAbortRetryIgnore 2 顯示 Abort、Retry 及 Ignore 按鈕。
VbYesNoCancel 3 顯示 Yes、No 及 Cancel 按鈕。
VbYesNo 4 顯示 Yes 及 No 按鈕。 VbRetryCancel 5 顯示 Retry 及 Cancel 按鈕。
VbCritical 16 顯示 Critical Message 圖標。
VbQuestion 32 顯示 Warning Query 圖標。
VbExclamation 48 顯示 Warning Message 圖標。
VbInformation 64 顯示 Information Message 圖標。vbDefaultButton1 0 第一個按鈕是預設值。
vbDefaultButton2 256 第二個按鈕是預設值。
vbDefaultButton3 512 第三個按鈕是預設值。
vbDefaultButton4 768 第四個按鈕是預設值。vbApplicationModal 0 應用程序強制返回；應用程序一直被掛起，直到用戶對消息框作出響應才繼續工作。
vbSystemModal 4096 系統強制返回；全部應用程序都被掛起，直到用戶對消息框作出響應才繼續工作。
vbMsgBoxHelpButton 16384 將Help按鈕添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作為前景窗口
vbMsgBoxRight 524288 文本為右對齊
vbMsgBoxRtlReading 1048576 指定文本應為在希伯來和阿拉伯語系統中的從右到左顯示
vbSystemModal 4096 系統強制返回；全部應用程序都被掛起，直到用戶對消息框作出響應才繼續工作。
Type參數由上表的四類數值組成，原則是：從每一類中選擇一個值（僅僅一個值，不得重復），把這幾個值加在一起就是Type參數的值（一般情況下，只需要使用前三類）。
示例：MsgBox 「是否暫停列印!」,16,」提示」
Type參數為16分解成：
16=0+16+0 顯示「確定」按鈕（0）+「暫停」圖標（16）+默認按鈕為「確定」（0）MsgBox」是否退出程序。」,35,」退出」
Type參數為35分解成：
35=3+32+0 顯示「是、否、取消」3個按鈕（3）+「？」圖標（32）+ 默認按鈕（0）③Title是一個字元串，用來顯示對話框的標題。
④HelpFile、Context ： HelpFile是一個字元串變數或字元串表達式，用來表示幫助文件的名字，Context是一個數值變數或表達式，用來表示相關幫助主題的幫助目錄號。
MsgBox函數的返回值是一個整數，這個整數與所選擇的命令按鈕相關。
返回值參數表：
常數 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
示例：Dim Tmp as long
Tmp=MsgBox（」是否退出程序。」,35,」退出」）
Msgbox 「你選擇的按鈕值是：」&Tmp

『柒』 vb中常用標准函數的意思

1. p=ABS(X):取X的絕對值.
2. p=Log(X):求X的自然對數.
3. Y=Sgn(X):符號函數.
說明: X>0時Y=1;X=0時 Y=0;X<0 時Y=-1.
例: Response.write sgn(5)
輸出: 1
4. Sin(x),Cos(x), Tan(x),Atn(x): 三角函數
5. Ctype(x):類型轉換:
P=Cbool(x)
把X轉成」布爾」值
P=Cbyte(X)
位元組
P=Ccur(x)
金額
P=Cdatel(x)
日期
P=Cintl(x)
雙精度
P=CDbl(x)
整型
P=Clng(x)
長整型
P=Csng(X)
單精度
P=Cstr(x)
字元串
例:Response.write CDbl(#1/1/1900#)
結果: 2
注意:True :-1 False: 0

日期: #12/30/1899# 為 0 ,每往後 1 日數值加1 .每往前1日數值減 1
6. Int (x) :取<=X的整數值
7. Fix(X) :取X的整數部分,直接去掉小數部分.
Response.Write Int(-54.6)
結果為:-55 .取<=-54.6的最大整數.
Response.Write Int(54.6)
結果: 54.
Response.Write Fix(54.6)
結果: 54
Response.Write Fix(-54.6)
結果: -54
8. Asc(X) :返回字元串的第一個字元的字元碼。
9. Chr(X): 返回字元碼X的字元.
P=Asc(「A」) p=65
P=Chr(65) p=A
10．Filter : 查找字元串數組的特定字元串。
P=Filter(X,S[,Include[,Compare]])
參數X為一字元串數組，而參數S則是欲查找的字元串，調用之後，凡是X數組元素中含有字元串S者都會組合在一起成為另一個字元串數組，然後返回。Filter 也可以把查找之後，把不含S字元串的數組元素挑出來，此時參數三Include應當設置成False. 如果要不分大小寫查找，則Compare 設置為 vbTextCompare.
例：
ReDimX(2)
X(0)=」KJDFS」 : X(1)=」WANDFKJ」 : X(2)=」fsda」
V=Filter(X,」kj」,false)
結果: V(0)=」fsda」
10. Instr(x,y) 從X第一個字元起找出Y出現的位置
11. Instr(n,x,y)從X第N個字元起找出Y出現的位置.
在X中找到Y,則返回值是Y的第一個字元出現的位置.
若N>字元串長度,或X為空字元串,或在X中找不到Y,都返回0.
若Y為空字元串,則返回N.
InStrRev 倒過來尋找字元串.
P=InStrRev(c,s[,n[,compare]])
從字元串X的後面往前找,若找到,則返回S字元串在字元中的位置.
N為從第幾個字元開始尋找,設置compare ,可以不區分大小寫的尋找.
12.
Join(x[,d]) 將字元串數組合成一個字元串.
參數X是一個字元串數組,調用JOIN後,X的所有字元串元素將串在一起組合成一個字元串,然後返回.
D參數用來指定分隔字元.
X=Array(「da」,」fdsa」,」fdas」)
P=Join(X,」,」)
P=」da,fdsa,dsas」
12. Len(X):計算字元串X的長度.
空字元長度為0,空格也算一個字元,中方雖然佔用2bytes,但也算一個字元.
13, Left(X,n):返回字元串X左邊n 個字元。
若N=0，則返回空字元串，若n>=Len(X)，則返回整個字元串。
14，Mid(X,n):由X的第N個字元起，讀取後面的所有字元。
Mid(X,n,m):由X的第n個字元起，讀起m個字元。
若n>Len(X),則返回空字元串，若第n個字元以後不足m個字元，則返回後面的所有字元。
14．Ltrim(X),Rtrim(X),Trim(X) :去掉空字元。
Ltrim(x) 去掉X左邊的所有字元。
trim(x) 去掉X左右邊的所有字元
Rtrim(x) 去掉X右邊的所有字元。
字元與字元間的空格不會被去掉。
X=Ltrim(「 This is good 「)
結果：X=「This is good 「
X=Trim(「 This si good 「)
結果:X=」This is good」
16.Right(X,n):返回字元串X右邊N個字元。
P=Replace(X,S,R)
將字元串X中的字元串S替換成為字元串R，然後返回。
X=「asp is good」
P=Replace(X,good,nice)
P=」asp is nice」
Space(n) :返回N個空格所組成的字元串，
P=Space(n,X) :返回N個X的第一個字元所組成的字元串。
X可以是字元串，也可以是字元碼。
17，Split:將字元串侵害成字元串數組。
P=Split(S[,d])
以D參數為分隔字元，將字元串S侵害成多個字元串後，組成一個字元串數組。然後返回，若省略D參數，則以空格符為分隔字元。
P=Split(「a,b,c」,」,」)
P(0)=」a」,p(1)=」b」,p(2)=」c」
18,StrReverse:反轉字元串。
PstrReverse(X)
返回X參數反轉以後的字元串。
P=StrReverse(「ABC」)
P=」CBA」
19. Ucase(X),Lcase(X): 轉換英文字母的大小寫。
P=Lcase(X) 將字元串X的大寫字母轉為小寫。
P=Ucase(X) 將字元串X的小寫字母轉為大寫。
只有英文字母才會受影響。

『捌』 vb 數學函數中對數函數的使用方法

VB中的對數函數 Math.Log(...)的返回值為Double類型。要注意的是這個函數計算的是以e=2.718282為底的自然對數。函數的用法如下：

DimxAsDouble
x=Math.Log(10)
Printx'輸出：2.30258509299405

用Math.Log函數計算Lg 100（以10為底對數）

DimxAsDouble,yAsDouble
x=100#
y=Math.Log(x)/Math.Log(10#)
Printy'輸出：2

『玖』 vb6.0全部數學函數

vb數學函數用來完成一些基本的數學計算，其中一些函數的名稱一與數學中相應函數的名稱相同。表3.6中列出了常用的數學函數。

在三角函數中，參數以弧度表示。例如，函數Sint（30）中的30是指弧度，它等於1718.87,而不是30度。為了將角度轉換成弧度，可以將角度乘以pi/180.若將弧度轉換成角度，則將弧度乘以180/pi.其中pi是數學常數，近似值為3.1415926535897932.

Int函數和Fix函數的不同之處在於，如果參數n為負數，則Int返回小於或等於該參數的第一個負整數，而Fix則會返回大於或等上參數的第一個負整數。

例如，Int（-8.4}=-9,而Fix（-8.4]=-8.

函數Sqn將根據參數n的不同取值，返回不同的值。若n>0,則Sqn（n）=1;若n>0,則Sqn（n）=0;若n<0,則Sqn（n）=-l.