新手求教，怎么实现每次循环输入不同的输入框内容

Question

如题所述

Answer 1

怎么实现每次循环输入不同的输入框内容
目前好像不能按行读取，不过有其他方法。
你可以在每一行的末尾加一个分隔符来实现。(比如"#")
下面以"#"为例，我写了一段代码，以供参考。
Dim 内容, 分割内容, 行数
Dim temp

内容 = Form1.InputBox1.Text
内容 = StrReverse(Replace(StrReverse(内容), "#", "", 1, 1, 0))
分割内容 = Split(内容, "#")
行数 = UBound(分割内容)
For temp = 0 to 行数
TracePrint 分割内容(temp)
Next本回答被网友采纳