内置函数

数学函数

Abs() 求绝对值

Sgn() 返回符号

 

字符串函数

Len(string) 获取字符串长度

Right(string,length) 截取字符串

Mid(string,start,length)截取字符串

Ltrim(string)前导去空格

RTrim(string)去后缀空格

Trim(string)去前导尾随空格

 

类型转换函数

Asc

Chr

Val

Str

 

判断函数

IsNull

IsNumeric

IsArray

 

日期和时间函数

Date

Now

Time

 

随机函数

Randomize初始化随机数生成器

Rnd

 

格式化函数

Format

WinSock控件网络通信示例

服务器端程序

Private Sub CommandButton1_Click()

Winsock1.LocalPort = 5600

Winsock1.Listen

End Sub

 

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sockclosed Then Winsock1.Close

Winsock1.Accept requestID

End Sub

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim s As String

Winsock1.GetData s

TextBox1.Text = s

End Sub

 

Private Sub TextBox2_Change()

Winsock1.SendData Me.TextBox2.Text

End Sub

 

客户端程序

Private Sub CommandButton1_Click()

Winsock1.RemoteHost = “127.0.0.1”

Winsock1.RemotePort = 5600

Winsock1.Connect

End Sub

 

Private Sub TextBox1_Change()

Winsock1.SendData Me.TextBox1.Text

End Sub

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim s As String

Winsock1.GetData s

Me.TextBox2.Text = s

End Sub

 

 

运行时错误处理

程序中存在的错误,我们希望程序不要崩溃,还能继续运行,这时候就需要错误处理。

VB有一个全局类Err,专门针对错误处理的类,有如下常用的属性和方法。

属性\方法

说明

Number

用于标识该错误的专用号码

Source

当前VB项目的名字

Description

表义性的错误消息。如果某个错误没有这个字符串,本属性就会指明应用程序定义的错误或对象定义的错误

Clear

清除Err对象的属性

Raise

运行时生成错误

 

示例程序

Private Sub Command1_Click()

On Error GoTo War

Text3.Text = Text1.Text / Text2.Text

War:

If Err.Number = 13 Then

MsgBox “数据类型错误”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

If Err.Number = 11 Then

MsgBox “除数不能为0!”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

End Sub