VB程序设计常用函数及使用方法

这篇我把常用的函数和不常用的函数都给列举了出来，以防万一，文章如果有错可以反馈邮箱：security@icecliffs.cn或在评论区留言，看到后会第一时间修改

---

具体内容

星号为笔者感觉的难度，满分为五星⭐⭐⭐⭐⭐

三、Visual Basic程序设计
1.集成开发环境（IDE）及其主要窗口的使用；（⭐）
2.应用程件；（⭐⭐⭐）
4.基本数据类型和运算符；（⭐）
5.常量、变量、表达式的定义和使用；（⭐）
6.常用内部函数的使用；（⭐）
7.顺序程序设计；（⭐⭐）
8.赋值语句、结束语句的使用；（⭐⭐）
序的建立、编辑、调试、运行和保存；（⭐）
3.窗体的常用属性、方法和事（⭐⭐）
9.Print语句的使用；（⭐⭐）
10.InputBox输入函数的使用；（⭐⭐）
11.消息对话框MsgBox函数的使用；（⭐⭐⭐）
12.选择结构程序设计；（⭐⭐⭐）
13.逻辑表达式的正确书写；（⭐⭐）
14.If语句和Select Case语句的使用；（⭐⭐）
15.循环结构程序设计；（⭐⭐⭐）
16.For、Do和While循环语句的使用；（⭐⭐）
17.数组的定义、初始化及基本应用；（⭐⭐）
18.标签框、文本框、命令按钮、复选框、单选框、列表框、计时器等常用组件的应用；（⭐）
19.常用算法的实现：累加、累乘、求平均、求最大/最小值、条件计数、选择排序、冒泡排序、直接排序、顺序查找等。（⭐⭐⭐）

注意事项

考纲内容来源于《福建省高职院校分类考试招生计算机类 - 职业技能测试考试大纲（试行）》，本文仅进行梳理，不对考纲进行任何修改，请以教育考试院发出的考纲为标准

内部函数整理

字符函数

Len函数

返回字符串的长度

s = "abcd123"
Print Len(s)
返回7

Left函数

left(字符串, 截取长度（从左到右）)
s = "abcd123"
Print Left(s, 3)
返回abc

Right函数

right(字符串, 截取长度（从右到左）)
s = "abcd123"
Print Right(s, 3)
返回123

Mid函数

mid(s,n1,n2) 返回字符串s中从第n1个位置开始的连续n2个字符（从左到右）
s = "abcd123"
Print Mid(s, 2, 4)

Trim函数

trim(s) 删除字符串s左右的空格
s = " abcd123 "
Print Trim(s)
返回abcd123

Rtrim函数

rtrim(s) 删除字符串s右边的空格
s = " abcd123 "
Print RTrim(s)
返回   abcd123

Ltrim函数

ltrim(s) 删除字符串s左边的空格
s = " abcd123 "
Print Ltrim(s)
返回abcd123 空格空格空格

InStr函数

InStr([n,], s1, s2, [compare]) 搜索字符串函数
n 可选，数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。
s1必选，接受搜索的字符串表达式
s2必选，要搜索的字符串表达式
compare，指示在计算子字符串时使用的比较类型的数值。如果省略，将执行二进制比较。
Print InStr(1, "ChinaChinaAmerica", "A")
返回11
instr(参数1，参数2，参数3，参数4)
参数1：要从哪个位置开始找字符串，1就是第一个位置
参数2：源字符串
参数3：要查找的字符串
参数4：要查找的方式 一般是 vbBanaryCompare

InStrRev函数

InStrRev("被搜索的字符串","欲搜索的字符串",开始的位置)

Lcase函数

Lcase(s) 小写函数
Print LCase("ABCDEFG")
返回abcdefg

Ucase函数

Lcase(s) 大写函数
Print UCase("abcdefg")
返回ABCDEFG

Space函数

Space(n) 生成由连续n个空格字符组成的字符串
Print Space(2) & "S"
返回  S

Spc函数

用法和上面一样，只不过不能和字符串重组

Tab函数

返回键盘上的tab个数，也就是缩进

String函数

String(n,s) 返回连续n个由字符串s的首字符构造的字符串
Print String(10, "*");
返回***********

StrReverse函数

StrReverse(s) 反转字符串
Print StrReverse("上海的自来水")
返回 水来自海上

Asc函数

Asc(s) 将字符串s的首字符转换为对应的ASCII码（这有个链接）
Print Asc("H")
返回72

Chr函数

Chr(s) 将s的值转换为对应的ASCII字符
Print Chr(72)
返回H

DateAdd函数

DateAdd(interval, number, date) - DateAdd函数返回包含一个日期的Variant(Data)，这一日期还加上了一段时间间隔
---------------------
Interval必要的，字符串表达式，是所要加上去的时间间隔。
number必要的，数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以是负数（得到过去的日期）。
date必要的，Variant(Date)或表示日期的文字，这一日期还加上了时间间隔。
interval参数介绍：
yyyy年
q季
m月
y一年的日数
d日
w一周的日数
ww周
h时
n分钟
s秒
Dim FirstDate As Date
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg

DateDiff函数

DatePart函数

DateSerial函数

DateValue函数

FormatNumber函数

Expression 必需的。要被格式化的表达式。
NumDigitsAfterDecimal 可选的。数字值，表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。
IncludeLeadingDigit 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。
UseParensForNegativeNumbers 可选的。三态常数，表示是否把负数值放在圆括号内。关于其值，请参阅“设置值”部分。
GroupDigits 可选的。的三态常数，表示是否用组分隔符对数字分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。

Print FormatNumber(202110211)
输出202,110,211.00

FormatPercent函数

VBScript FormatPercent 函数 | 菜鸟教程 (runoob.com)

Print FormatPercent(8, 0, vbFalse, vbFalse)
返回800%

Format Currency函数

FormatDateTime函数

IsDate函数

Dim a As Date
Dim b As Integer
Dim c
c = #12/9/2020#
Print IsDate(a) ' True
Print IsDate(b) ' False
Print IsDate(c) ' True

IsArray函数

Dim a()
Dim b As Integer
Dim c
c = Array(1, 2, 3)
Print IsArray(a) ' True
Print IsArray(b) ' False
Print IsArray(c) ' True

IsEmpty函数

Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Empty
b = "1"
c = "123"
Print IsEmpty(a) ' False
Print IsEmpty(b) ' False
Print IsEmpty(c) ' False

IsNull函数

IsNumeric函数

判断是否为数字

Dim a As Integer
Dim b As Integer
Dim c As Integer
a = "1"
b = "s"
c = 123
Print IsNumeric(a) ' True
Print IsNumeric(b) ' 类型不匹配
Print IsNumeric(c) ' True

Replace函数

Replace(字符串, 原字符, 替换的字符) 字符替换函数
Print Replace("China", "n", "N")
返回ChiNa

时间函数

Debug.Print Now
Debug.Print Day(Now)
Debug.Print Month(Now)
Debug.Print Hour(Now)
Debug.Print Weekday(Now)
Debug.Print Hour(Now)
Debug.Print Second(Now)
Debug.Print Minute(Now)

从上到下依次返回如下

2/14/2021 9:08:48 PM
14
2
21
1
21
48
8

数组函数

option base

定义起始下标，0或1

Join函数

join(数组, 分隔符) - join函数可以合并一个拆分后的数组，通常与Split函数连用
Dim a() As String
s = "2312,3423,52,534,3423,45324,523,432"
a = Split(s, ",")
For i = 1 To UBound(a)
     Print a(i) & Space(1);
Next
返回2312 3423 52 534 3423 45324 523 432
Print
n = Join(a, ",")
Print n
返回2312,3423,52,534,3423,45324,523,432

Split函数

Split(数组, 分隔符) - Split函数可以拆分一个数组，使用方法看上面

Array函数

可以自定义数组值，前提是需要定义一个没有下标的数组

Lbound函数

返回数组的下标值

Ubound函数

返回数组的上标值

[alert]

获取数组的长度可以使用

Dim a() As String
s = "2312,3423,52,534,3423,45324,523,432"
a = Split(s, ",")
Print UBound(a) - LBound(a) + 1 ' 返回8，+1 数组默认下标为0，如果不加1会返回7

[/alert]

数组练习

代码

Dim a() As String
Private Sub Command1_Click()
Picture1.Cls
t = Replace(Text1, ",,", ",")
a = Split(t, ",")
For i = 0 To UBound(a)
     Picture1.Print a(i)
Next
End Sub
Private Sub Command2_Click()
Text2 = Join(a, " ")
End Sub

数学函数

Abs函数

绝对值函数（|x|）自己理解

Print Abs(1)  ' 1
Print Abs(0)  ' 0 
Print Abs(-1) ' 1

Exp函数

以e为底的函数（e=2.718281828459）exp(X) = $\lg_eX$

Print Exp(0) ' 1
Print Exp(1) ' 2.718281828459

Log函数

log(a）a是Double或任何有效的大于0的数值表达式，$\log_10100$ 写成 log(100)/log(10)

$2\log_510+\log_50.25$

Print (2 * Log(10) / Log(5)) + Log(0.25) / Log(5) ' 2

Sgn函数

Sgn(x) 符号函数，x>0时返回1，x=0返回0，x<0返回-1

Print Sgn(54)   ' 1
Print Sgn(0)    ' 0
Print Sgn(-239) ' -1

Sqr函数

开根号

Print Sqr(4) ' 2

Sin函数

正弦

Cos函数

余弦

Tan函数

正切

hex函数

将数值转换为十六进制

oct函数

将数值转换为八进制

[admonition]

Print Hex(123) ' 7B
Print Oct(123) ' 173

[/admonition]

Rnd函数

Rnd(x) 或 Rnd() 返回一个介于0和1之间的随机数

生成范围内的随机数：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

1-100：int((100-1+1)*rnd+1)

Val函数

val返回包含于字符串内的数字,字符串中是一个适当类型的数值

c = Val(123)
Print TypeName(c)
返回Double

Fix函数

取整数函数，返回不大于x的最大整数

Int函数

取整数函数，返回x的整数部分

Str函数

Str(x)将x的值转换为字符串

Round函数

四舍五入函数