Mid

Mid函数从给定的输入字符串返回指定数量的字符。

语法 (Syntax)

Mid(String,start[,Length])

参数描述 (Parameter Description)

• String - 必需参数。 输入从中返回指定字符数的字符串。

• Start - 必需参数。 一个Integer，指定字符串的起始位置。

• Length - 可选参数。 一个Integer，指定要返回的字符数。

添加按钮并添加以下功能。

Private Sub Constant_demo_Click()
   Dim var as Variant
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & Mid(var,2))
   msgbox("Line 2 : " & Mid(var,2,5))
   msgbox("Line 3 : " & Mid(var,5,7))
End Sub

执行上述功能时，会产生以下输出。

Line 1 : icrosoft VBScript
Line 2 : icros
Line 3 : osoft V