跳转到内容

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://wikibooks.cn/w/index.php?title=Visual_Basic/VB6_Command_Reference&oldid=4380381”
华夏公益教科书