跳轉到內容

Visual Basic/VB6 命令參考

Add links
來自 Wikibooks，開放世界中的開放書籍

此頁面旨在成為 MS Visual Basic 6 程式語言的全面命令參考。

字串操作

[編輯 | 編輯原始碼]

Asc

[編輯 | 編輯原始碼]

返回與字串第一個字元的 ASCII 碼對應的數字

用法

Asc(string)

string = 包含要查詢其 ASCII 碼的字元作為首字母的字串。

示例

code = Asc("Apple")

這裡 code 將獲得值 65

Chr

[編輯 | 編輯原始碼]

返回一個字串字元，該字元對應於 0-255 範圍內的 ASCII 碼。Asc 函式的反向操作。

用法

Chr(code)

code = ASCII 碼。

示例

char = Chr(97)

這裡 char 獲取值 "a"[1]。

Len

[編輯 | 編輯原始碼]

返回給定字串中的字元數量，或空字串時的 0。

用法

Len(expression)

expression = 字串或空字串

示例

mystring = InputBox("輸入要測試的字串")
length = Len(mystring)
MsgBox "字串的長度為 " & length

例如，當 mystring 為 "Hello" 時，length 將為 5。

Left

[編輯 | 編輯原始碼]

返回字串左側給定數量的字元

用法

Left(string,x)

string = 要使用的字串
x = 字元數量

示例

mystring = InputBox("輸入一個字串")
mystring = Left(mystring, 4)
MsgBox "您輸入的前四個字元是 " + mystring

例如，當輸入 mystring 為 "Hello" 時，輸出 mystring 將為 "Hell"

[編輯 | 編輯原始碼]

返回字串右側給定數量的字元

用法

Right(string, x)

string = 要使用的字串
x = 字元數量

示例

mystring = InputBox("輸入一個字串")
mystring = Right(mystring, 4)
MsgBox "您輸入的最後四個字元是 " + mystring

例如，當輸入 mystring 為 "Hello" 時，輸出 mystring 將為 "ello"

Mid (函式)

[編輯 | 編輯原始碼]

返回字串中間給定數量的字元

用法

Mid(string, start, length)

string = 要使用的字串
start = 開始的字元位置（1 是第一個字元）
length = 字元數量

示例

mystring = InputBox("輸入一個字串")
mystring = Mid(mystring, 2, 3)
MsgBox "您輸入的第二個、第三個和第四個字元是 " & mystring

例如，當輸入 mystring 為 "Hello" 時，輸出 mystring 將為 "ell"

Mid (語句)

[編輯 | 編輯原始碼]

將字串中間給定數量的字元設定為另一個字串開頭相同數量的字元

用法

Mid(mystring, start, length)

mystring = 要從中獲取字元的字串 start = 開始的字元位置（1 是第一個字元）
length = 字元數量

示例

mystring = InputBox("輸入一個字串")
Mid(mystring, 2, 3) = "abcd"
MsgBox "您的字串，其中 abc 為您輸入的第二個、第三個和第四個字元是 " + mystring

例如，當輸入 mystring 為 "Hello" 時，輸出 mystring 將為 "Habco"

Trim

[編輯 | 編輯原始碼]

刪除字串開頭和結尾的空格

用法

Trim(string)

string = 要使用的字串

示例

mystring = Trim(mystring)

例如，當 mystring 的原始值為 " Hello " 時，mystring 的新值為 "Hello"。

LCase

[編輯 | 編輯原始碼]

將字串轉換為小寫

用法

LCase(string)

string = 要使用的字串

示例

mystring = LCase(mystring)

例如，當 mystring 的原始值為 "HELLO" 時，mystring 的新值為 "hello"。

UCase

[編輯 | 編輯原始碼]

將字串轉換為大寫

用法

UCase(string)

string = 要使用的字串或字元

示例

mystring = UCase(mystring)

例如，當 mystring 的原始值為 "Hello" 時，mystring 的新值為 "HELLO"。

String

[編輯 | 編輯原始碼]

建立一個指定長度的指定字元的字串

用法

String(length, character)

length = 字串長度
character = 用於填充字串的字元

示例

mystring = String(5,"a")

例如，mystring 的新值為 "aaaaa"。

Space

[編輯 | 編輯原始碼]

建立一個指定長度的空格字串

用法

Space(length)

length = 字串長度

示例

mystring = Space(5)

例如，mystring 的新值為 "     "。

StrConv

[編輯 | 編輯原始碼]

返回一個根據指定方式轉換後的字串。

用法

StrConv(string, conversion,LCID)

string = 要使用的字串
conversion = 要將字串轉換為的案例（小寫：vbLowerCase，大寫：vbUpperCase，首字母大寫：vbProperCase） LCID = 可選。區域設定 ID，如果與系統區域設定 ID 不同。

示例

mystring = StrConv(mystring, vbProperCase)

例如，當 mystring 的原始值為 "HELLO" 時，mystring 的新值為 "Hello"。

數學函式

[編輯 | 編輯原始碼]

Abs

[編輯 | 編輯原始碼]

返回數字的絕對值

用法

Abs(number)

示例

msgbox "The absolute value of -4 is " & abs(-4)

重要提示！

Abs 函式僅接受數字。非數字值會產生錯誤。

Cos

[編輯 | 編輯原始碼]

返回數字的餘弦值

用法

Cos(integer)

示例

msgbox "The cosine of 4 is " & cos(4)

重要提示！

所有 VB 三角函式的輸入角度都應以弧度為單位。要將度數轉換為弧度，請將度數乘以 pi / 180。

Sin

[編輯 | 編輯原始碼]

返回數字的正弦值

用法

Sin(integer)

示例

msgbox "The sine of 4 is " & sin(4)

重要提示！

所有 VB 三角函式的輸入角度都應以弧度為單位。要將度數轉換為弧度，請將度數乘以 pi / 180。

Tan

[編輯 | 編輯原始碼]

返回角度的正切值

用法

Tan(integer)

示例

msgbox "The tangent of 4 is " & tan(4)

重要提示！

所有 VB 三角函式的輸入角度都應以弧度為單位。要將度數轉換為弧度，請將度數乘以 pi / 180。

Val

[編輯 | 編輯原始碼]

返回字串的數值

使用“.”作為小數分隔符。（它不依賴於區域設定）

用法

Val(string)

示例

Val("5")

返回值將為 5

Val("10.6")

返回值將為 10.6

Val("Hello World")

返回值將為 0（零）

txtOutput.Text = Val(txtNumber1.Text) * Val(txtNumber2.Text)

文字框 txtOutput 將包含 txtNumber1 和 txtNumber2 文字框中數字的乘積。如果這兩個文字框中的任何一個包含無法計算為數字的值，則輸出將為 0（零）。

Rnd

[編輯 | 編輯原始碼]

返回一個小於 1 但大於或等於 0 的浮點數。

用法

Rnd[(number)]

可以透過提供一個值作為引數來更改隨機數生成器使用的種子，例如 Rnd(500) 將使用數字 500 作為生成隨機數的種子。

  • 如果提供的值小於零，則 Rnd() 函式將返回相同的數字
  • 值為零將返回最近生成的隨機數。
  • 不提供值將生成序列中的下一個隨機數。
  • 提供正數將生成序列中的下一個隨機數，並使用number作為種子。

示例

myvar = Rnd() * 10

myvar 將變為 0 到 10 之間的隨機數。

myvar = (Rnd() * 15) + 25

myvar 將變為 25 到 40 之間的隨機數。

myvar = (Rnd(12345) * 50) - 25

myvar 將變為 -25 到 25 之間的隨機數，並且 12345 將用作生成此數字的種子。

Int

[編輯 | 編輯原始碼]

返回數字的整數部分。

用法

Int(n)

其中n是要返回的數字

示例

Int(10)

返回 10

Int(5.1)

返回 5

Int(5.86)

返回 5

MsgBox "The integer portion of " & myvar & " is " & Int(myvar) & "."

注意：不會執行舍入，只會簡單地刪除數字的小數部分。如果要將數字舍入到最接近的整數，請使用 CInt。關於 CInt 需要記住的一個有趣的點是，如果數字的小數部分正好是 .5，則如果數字是奇數則向下舍入，如果數字是偶數則向上舍入。例如，CInt(1.5) 和 CInt(2.5) 都將返回 2。

輸入和輸出

[編輯 | 編輯原始碼]

MsgBox

[編輯 | 編輯原始碼]

MsgBox 函式在對話方塊中顯示一條訊息，等待使用者單擊一個按鈕，並返回一個整數值，指示使用者單擊了哪個按鈕。


語法
MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox 函式語法包含以下部分

部分 描述
prompt 必需。作為對話方塊中訊息顯示的字串表示式。prompt 的最大長度約為 1024 個字元，具體取決於所用字元的寬度。
buttons 可選。數值表示式，它是指定要顯示的按鈕數量和型別、要使用的圖示樣式、預設按鈕的標識以及訊息框的模態性的值的總和。如果省略，buttons 的預設值為 0（這會導致僅顯示“確定”按鈕，且不顯示圖示）。
title 可選。在對話方塊的標題欄中顯示的字串表示式。如果省略 title，則應用程式名稱將放置在標題欄中。
helpfile 可選。此引數僅在已設定幫助檔案以與應用程式一起使用時適用。
context 可選。此引數僅在已設定幫助檔案以與應用程式一起使用時適用。


用法
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
或
Response=MsgBox(prompt[, buttons] [, title] [, helpfile, context])
所選按鈕的整數值將放置到 Response 變數中。

按鈕組合
vbOKOnly
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel

圖示顯示
vbCritical
vbQuestion
vbExclamation
vbInformation

預設按鈕
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbDefaultButton4

示例
MsgBox "An error has occurred!",vbExclamation,"Error"
請注意，由於訊息是固定的，因此使用了引號。

Response=MsgBox("Yes or no?",vbYesNo + vbQuestion,"Choose one")
請注意括號以及 vbYesNo 和 vbQuestion 常量是如何組合的

MsgBox "An error has occurred on line " & lineno, vbExclamation, "Error"

InputBox

[編輯 | 編輯原始碼]

顯示一個簡單的輸入框，供使用者輸入資料

用法

Variable=InputBox(Prompt,Title)

Variable = 將儲存輸入值的變數 Prompt = 在輸入框中向用戶顯示的文字 Title = 輸入框的標題

示例

myint=InputBox("Enter a number","Enter a number")

日期和時間

[編輯 | 編輯原始碼]

Date

[編輯 | 編輯原始碼]

返回或設定當前系統日期

示例

MsgBox "Today 's date is " & Date & "."

Time

[編輯 | 編輯原始碼]

返回或設定當前系統時間

示例

MsgBox "The time now is " & Time & "."


旁註：請注意在程式中更改日期和時間。許多其他程式將依賴於系統日期和時間設定正確，因此更改它可能會產生連鎖反應。謹慎使用日期和時間更改，並在執行此操作時通知使用者。

Timer

[編輯 | 編輯原始碼]

返回從午夜開始的秒數

示例

NumHrs=Int(Timer / 3600) MsgBox "當前處於小時 " & NumHrs

WeekdayName

[編輯 | 編輯原始碼]

返回一週中某一天的名稱

用法

WeekdayName(x,FirstDayOfWeek)

x = 1到7之間的整數 FirstDayOfWeek (可選) = 一週中計算為第一天的那一天。預設值為星期日。

示例

DayName=WeekdayName(i,vbMonday)

其他

[編輯 | 編輯原始碼]

IsNull

[編輯 | 編輯原始碼]

如果表示式為 Null，則返回 True，否則返回 False。

示例

If IsNull(vntMyVariantVar) Then
  Debug.Print "vntMyVariantVar is null"
Else
  Debug.Print "vntMyVariantVar is NOT null"
End If

檔案處理

[編輯 | 編輯原始碼]

Open

[編輯 | 編輯原始碼]

Open "" & namefile& ".dat" For Binary As #ff

選擇

[編輯 | 編輯原始碼]

If... Then... Else... 根據條件執行選擇。任何 VB 程式的基石。

'用法'

單行選擇

If condition Then action

請注意，此樣式的語句只能使用一行。

多行選擇

If condition Then

[code to execute if condition is true]

EndIf

使用 Else

If condition Then

[code to execute if condition is true]

Else

[code to execute if condition is false]

EndIf

Condition 是必須滿足的條件，才能執行語句中的程式碼。它可以使用修飾符 AND、NOT、OR 和 XOR（例如 x=4 AND y > 6）。另請參閱“示例”部分。

示例

[編輯 | 編輯原始碼]

簡單的單行選擇 

If x < 10 then MsgBox "The number is below 10"

稍微複雜一點的單行選擇，使用 AND 修飾符同時檢查兩個條件。 

If x > 10 AND x < 20 then MsgBox "The number is between 10 and 20"

簡單的多行選擇。只有滿足條件時，才會執行 If... 和 EndIf 語句之間的程式碼。 

If Date = 25/12/2006 Then
  MsgBox "The date is Christmas Day"
  Call ChristmasDay
EndIf

使用 Else 語句。如果變數 i 大於 4，程式將退出子程式。否則，它將轉到標籤 SaveFile。 

If i > 4 Then
  Exit Sub
Else
  Goto SaveFile
EndIf

使用了兩個 If... Endif 語句，一個巢狀在另一箇中。如果 i 為 6 或 7，則執行內部 If...Endif 語句之間的程式碼。然後，如果 i=7，則將顯示第一個訊息框；否則（即如果 i=6），則將顯示另一個訊息框。對於這兩種情況，都將顯示最終的訊息框。在巢狀選擇語句時，最好像這裡顯示的那樣縮排它們。 

If i = 6 OR i = 7 Then
  If i = 7 Then
    MsgBox "Today is Sunday"
  Else
    MsgBox "Today is Saturday"
  EndIf
  MsgBox "Today is the Weekend"
EndIf

參考

[編輯 | 編輯原始碼]
  1. ↑ https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/chr-function
上一頁：選定的函式 目錄 下一頁：詞彙表
檢索自“https://wikibook.tw/w/index.php?title=Visual_Basic/VB6_Command_Reference&oldid=4380381”
華夏公益教科書