text1.text=""

比如说我要把下面的字放到引号里，并按照下面的格式显示出来怎么做？


 01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
 02.标记 【功能说明】数字序列号输出〖模板〗
 03.标记 【使用说明】在弹出的对话框中输入起始号码(最小数字)跟结束号码(最大数字)
 04.标记 【提示说明】请在记事本中测试
 05.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
 06.dim a,b
 07.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
 08.标记 〖脚本开始〗
 09.调用外部VBScript子程序 a=InputBox("输入起始号码")
 10.调用外部VBScript子程序 a=InputBox("输入起始号码")
 11.标记 〖这个cint(x)是把变量值转换成数字〗
 12.a=cint(a)
 13.b=cint(b)
 14.如果表达式 (a<=b) 为真,则循环执行
 15. 输入文本 a
 16. 按键<Space>
 17. a=a+1
 18.循环结束
 19.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
 20.标记 【脚本经过修改】
 21.标记 【创作日期】2005
 22.标记 【数字记号】①②③④⑤⑥⑦⑧⑨⑩
 23.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓

1)文本框在其属性页设置属性MultiLine为True,将文本框的大小调整适当
2定义一个字符串变量

VB code

Option Explicit
    Dim strsj As String
Private Sub Form_Load()
    strsj = "01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓" & vbCrLf
    strsj = strsj & "02.标记 【功能说明】数字序列号输出〖模板〗" & vbCrLf
    '......
    '......
    strsj = strsj & "23.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓"
    Text1 = strsj
End Sub

"01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓,02.标记 【功能说明】数字序列号输出〖模板〗,03.标记 【使用说明】在弹出的对话框中输入起始号码(最小数字)跟结束号码(最大数字)"

由于你的格式最大的特点是没有逗号,用逗号隔开(如上),然后用split
VB code

dim aStr as string
dim Arr() as string
dim i as integer
aStr="01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓,02.标记 【功能说明】数字序列号输出〖模板〗,03.标记 【使用说明】在弹出的对话框中输入起始号码(最小数字)跟结束号码(最大数字)"

Arr=split(aStr,",")

for i=lbound(Arr) to ubound(Arr)
form1.print Arr(i) & vbcrlf
next i

我瞎了...第六行就有逗号
不错大体思路是这样的.你可以将分隔符设为全角符号,例如＄,用来区别vb代码的半角$,这样就能很好的执行我给你的代码了,(本人测试成功)