Question

请VB高手帮我看看下面这个程序要怎么改？

。。。。。。
Private Sub Form_Load()
Show
e = InputBox("输入总编号（6位）：", "数据输入", "0")
Text1.Text = " " + "总编码（GMK）：" + Trim(e) + Chr(13) + Chr(10)
Text1.Text = Text1.Text + Chr(13) + Chr(10)
Text1.Text = Text1.Text + Chr(13) + Chr(10)
。。。。。。

VB提示：Text1.Text = " " + "总编码（GMK）：" + Trim(e) + Chr(13) + Chr(10)
这句有问题，请高手帮忙看看呀，谢谢！

Answer 1

是不是你的程序里面没有加入text1控件框？

加入text1控件后程序运行没有错误！
不过你想加入chr(10)和chr(13)，text文本框就需要设定一下属性：
mulitiline =true
scrollbars=2

Answer 2

没问题啊=.=

Answer 3

你要把text1文本框的属性multiline的值设为True才行,
因为chr(13)+chr(10)相当于要回车符和换行符.