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定义一个字符串变量
Option Explicit Dim strsj As StringPrivate Sub Form_Load() strsj = "01.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓" & vbCrLf strsj = strsj & "02.标记 【功能说明】数字序列号输出〖模板〗" & vbCrLf '...... '...... strsj = strsj & "23.标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓" Text1 = strsjEnd Sub
