VB常用演算法大全

Ⅰ VB遞歸演算法

調用Test(3);
t=3,
t>=1成立,
調用Test(2);
t=2,
t>=1成立,
調用Test(1);
t=1,
t>=1成立,
調用Test(0);
t=0,
t>=1不成立,
函數返回值為0.
返回到Test(1),
執行餘下部分:
for
i=3
to
1
step
-1
print
chr(asc("A")+i)
next
print
輸出:
D
C
B
調用的Test(1)結束,
函數返回值1.
繼續執行Test(2)的餘下部分:
for
i=3
to
2
step
-1
print
chr(asc("A")+i)
next
print
輸出:
D
C
調用的Test(2)結束,
函數返回值2.
繼續執行Test(3)的餘下部分:
同理輸出:
D
調用的Test(3)結束,
函數返回值3.
最後,
執行
Print
Test(3)
的輸出,
列印返回結果:
3
-----------
所以,
最後的結果是:
D
C
B
D
C
D
3

Ⅱ vb編程常用公式意思

Option Explicit

Const MAX_NUM = 60
Const MIN_NUM = 1

Const NUM_COUNT = 6
Const RESULT = 106

Dim num(NUM_COUNT) As Integer

Private Sub Command1_Click()
'在1～MAX_NUM間取所有NUM_COUNT個數的組合(不重復)
Debug.Print MIN_NUM & "～" & MAX_NUM & " 之間和為 " & RESULT & " 且不重復的" & NUM_COUNT & "個數有："
Call PickNum(1, MIN_NUM)
End Sub

'獲取一個數。iIndex為第幾位數(1～NUM_COUNT)；iBegin是該數的取值范圍(MIN_NUM～MAX_NUM)
Private Sub PickNum(iIndex As Integer, iBegin As Integer)
Dim i As Integer

If iIndex = NUM_COUNT Then
'當前要獲取的數已經是最後一位數了，說明數組已經填滿，可以列印了
For i = iBegin To MAX_NUM
num(NUM_COUNT) = i
Call PrintNum
Next
Else
For i = iBegin To (MAX_NUM - NUM_COUNT + iBegin)
num(iIndex) = i
Call PickNum(iIndex + 1, i + 1)
Next
End If
End Sub

Private Sub PrintNum()
Static i As Integer
Static sum As Integer
Static s As String

'把數組列印出來前判斷一下各位的和～～
sum = 0
For i = 1 To NUM_COUNT
sum = sum + num(i)
Next

If sum = RESULT Then
s = ""
For i = 1 To NUM_COUNT
s = s & num(i) & " "
Next
Debug.Print s
End If
End Sub

用遞歸可以～～但是執行效率很低～～而且我是輸出到Debug窗口，能顯示的行袱互遞就郛腳店協錠茅數有限，所以數字太多時，前面的就被丟棄了，你可以換幾個小一些的數看看效果～～

Ⅲ vb三種基本排序演算法

三種基本排序演算法（與哪種編程語言無關）：
冒泡排序演算法、選擇排序演算法、插入排序演算法

Ⅳ VB計算一元多次方程

一元方程可以用牛頓插值法解。
可以找找相關資料。
下面是vb代碼：

Private Sub Command1_Click()
a = 1
b = 1
c = 1
d = 1
e = 1

x = 0
absolution = 1
Do While absolution > 0.0000001

y = x + a * x ^ 5 + b * x ^ 9 + c * x ^ 13 - d * x ^ 17 - e

'一介導數
Y1 = 1 + 5 * a * x ^ 4 + 9 * b * x ^ 8 + 13 * c * x ^ 12 - 17 * d * x ^ 16
X1 = x - y / Y1
absolution = Abs(X1 - x)
x = X1
Loop
Text1 = X '解
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階乘的演算法

Function
Factorial(ByVal
i
As
Integer)
As
Long
Dim
s
As
Long
s
=
1
If
i>0
Then
Do
While
i>0
s
=
s
*
i
i
=
i
-
1
Loop
Factorial
=
s
Else
Factorial
=
0
End
If
End
Sub
當然也可以用遞歸，注意數據溢出。
調用可以用
ret
=
Factorial(3)，此時
ret
=
6

Ⅶ 物性數據統計

4.1.5.1 誤差統計

觀測或測定誤差以平均相對誤差或均方誤差表示：

1）平均相對誤差為

油頁岩物探概論

2）均方誤差為

油頁岩物探概論

式中：μ為平均相對誤差；ε為均方誤差；n為檢查樣品數；Ai為第i件樣品一次測量結果；Bi為第i件樣品另一次測量結果。

4.1.5.2 數據表建立

物性數據預處理：磁性數據的單位換算成國際單位，磁化率單位為×10^-6SI，剩磁強度的單位為×10^-3A/m。密度單位為×10³kg/m³，電阻率單位為Ω·m，極化率單位為％。

綜合野外、室內的物性工作，每個物性樣品賦予地理、地質、物理屬性，含樣品號、坐標X、坐標Y、岩石（名稱、亞類）、地層（組、群、統、系、界）或岩體單元、物性（密度、磁化率、剩磁強度、電阻率、極化率）等。所有的樣品，組成工區內的物性數據表，提供物性數據統計、空間制圖以及其他分析。

由高密度電阻率法測量獲得的數據，亦賦予地質屬性（地層、岩體），作為建立地質-物性模型的基礎。

4.1.5.3 數理統計

岩石物性的統計計算方法引用Access的函數及《VB常用演算法大全》（何光渝，2001，西安電子科技大學出版社）。統計參數包括：樣品數量、幾何均值、算術均值、最大值、最小值、標准差、離差系數、偏倚系數和峰凸系數。其中樣品數量、最大值和最小值是由Access函數計算得到，其餘根據《VB常用演算法大全》 所得。計算公式如下：

油頁岩物探概論

油頁岩物探概論

其他參數也引用Surfer8.0軟體提供的數據統計方法。

Ⅷ VB全排列演算法。

新建一個工程，在窗體上新建一個text1,一個command1，把以下代碼復制到工程中運行試試

OptionExplicit

PrivateList()AsString

Publicindex&,tmp$

PrivateSubCommand1_Click()

ReDimList(Len(Trim(Form1.Text1.Text)))

Forindex=1ToLen(Trim(Form1.Text1.Text))

List(index)=Mid(Form1.Text1.Text,index,1)

Nextindex

PermList,1,Len(Trim(Form1.Text1.Text))

EndSub

PrivateSubForm_Load()

Form1.AutoRedraw=True

EndSub

PublicFunctionSwap(ByRefNum1AsString,ByRefNum2AsString)'交換兩個數

tmp=Num1

Num1=Num2

Num2=tmp

EndFunction

PublicFunctionPerm(ByRefListTar()AsString,ByValkAsLong,ByValmAsLong)'全排列函數

Dimi&

Ifk>mThen

Fori=1Tom

PrintListTar(i);

Nexti

Print

Else

Fori=kTom

SwapListTar(k),ListTar(i)

PermListTar,k+1,m

SwapListTar(k),ListTar(i)

Nexti

EndIf

EndFunction

運行效果

Ⅸ vb字串加密演算法（支持中文）

就按你的要求寫一個例子吧，你可以在這個基礎上改進演算法：（例子里XOR的加密因子是固定的12345，正式的產品里應是動態的，並且長度更長、帶有校驗和防破解機制）

'簡單字元串加密（參數為正常文本，返回加密文本，同時支持中文和英文）
private function StrEncrypt(byval sStr as string) as string
dim i as long
dim sRtn as string
for i=1 to len(sStr)
sRtn=sRtn & hex(asc(mid(sStr,i,1)) xor 12345) & " "
next i
StrEncrypt=sRtn
end function

'簡單字元串解密（參數為被加密的文本，返回解密後的文本，同時支持中文和英文）
private function StrDecryption(byval sStr as string) as string
dim i as long
dim sChr as string
dim sCode as string
dim sRtn as string
for i=1 to len(sStr)
sChr=mid(sStr,i,1)
if sChr=" " then
sRtn=sRtn & chr(val("&H" & sCode) xor 12345)
sCode=""
else
sCode=sCode & sChr
end if
next i
StrDecryption=sRtn
end function

把這段代碼復制到VB6里的調試結果：
? StrEncrypt("中國AB C")
E6E9 89C3 3078 307B 3019 307A

? StrDecryption("E6E9 89C3 3078 307B 3019 307A ")
中國AB C

Ⅹ 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