Question

VB 中MID函数的问题

dim o,q
For o = 0 To Len(Text1.Text) Step 6
q = Mid(Text1, o, o + 5)

next

上面这句有什么错误吗？
为什么总提示"无效的过程调用或参数"?

Answer 1

问题就在q = Mid(Text1, o, o + 5)
这句上，string要取值MID函数首先不能从0号位取值，至少都为1。
应该为q = Mid(Text1, 1, o + 5)

另外 for next循环next后面要跟参数o，next o都才对了。

Answer 2

例如：
text1.text="12345"
执行第一次循环时：o=0 从text1的0个字符开始提取5个
执行第二次循环时：o=1 从text1的第1个字符开始提取6个，错误就会出现了，总共才5个字符，你提取6个

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数：

部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

Answer 3

这个是你用MID函数的问题，首先当o为0时就会出错，另外当o+5大于TEXT1的长度时也会出错，你这个q = Mid(Text1, o, o + 5)本身就有问题
另外最后一行应该是 next o

Answer 4

mid 是取中间字符串的函数，格式是：mid$(a$,m,n),意思是从a$的第m位起,取n个字符的字符串。
你这个题里，从第0个开始取值，初始值应该是1，循环体应该从1开始。