＋设为首页 ＋添加到收藏夹
？
Dim s As String，m As Long
s = "abcdefghijkl"
m = 5
MsgBox Mid(s, m, 1)
Mid(string, start[, length])
Mid 函数示例
本示例使用 Mid 语句来得到某个字符串中的几个字符。
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) 返回 "Demo"。
MidWords = Mid(MyString, 5) 返回 "Funcion Demo"。
学习。
dim a as string
a="dfdfdfdfddfd"
a=left(a,m)
