text1.text=""

Question

比如说我要把下面的字放到引号里，并按照下面的格式显示出来怎么做？
 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.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓

Answer 1

1)文本框在其属性页设置属性MultiLine为True,将文本框的大小调整适当
2定义一个字符串变量Option Explicit
    Dim strsj As String
Private Sub Form_Load()
    strsj = "01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓" & vbCrLf
    strsj = strsj & "02.标记 【功能说明】数字序列号输出〖模板〗" & vbCrLf
    '......
    '......
    strsj = strsj & "23.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓"
    Text1 = strsj
End Sub

Answer 2

"01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓,02.标记 【功能说明】数字序列号输出〖模板〗,03.标记 【使用说明】在弹出的对话框中输入起始号码(最小数字)跟结束号码(最大数字)"由于你的格式最大的特点是没有逗号,用逗号隔开(如上),然后用split
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

Answer 3

放到文件里面，再用FileSystemObject就行了吗。

Answer 4

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