Question

vb怎样才能让Print输出是在Text1里边

i = 1: xx = X1: yy = Y1: zz = Z1

p1 = A(j)(1): P2 = A(j)(2): P3 = A(j)(3): P4 = A(j)(4): P5 = A(j)(5)
If p1 = -1 Then Let i = i - 1: xx = X(i): yy = Y(i): zz = (i)

'Print Tab(15); " 斜距 L ="; Format$(P3, "*00.00");
'Print " 倾角 B ="; Format$(P4, "*00.00");
'print " 磁方位角 t ="; Format$(P5, "*00.00")
谢谢，但是这个貌似不行，这个只是程序的一小段，程序太多，传不上来，主要就是想把整个程序通过单击显示到TEXT1里边去

Answer 1

先在属性设置窗口将Text1的MultiLine=True，ScrollBars设置为3（即显示水平滚动条和垂直滚动条），然后，用&连接各项输出内容，以回车换行vbCrLf间隔：
Text1.text=""

Text1.text=Text1.text & " 斜距 L ="& Format$(P3, "*00.00") & vbCrLf

Text1.text=Text1.text & " 倾角 B =" & Format$(P4, "*00.00") & vbCrLf

Text1.text=Text1.text & " 磁方位角 t =" & Format$(P5, "*00.00")

Answer 2

如果你的意思是把TEXTBOX作为输出目的地的话.方法如下:
就是不要用PRINT方法.而是用改变TEXTBOX属性TEXT的方法.还有把控件属性修改为:TABLE键序不可用,只读,自动断行.

Answer 3

不用 print 的！

设置
text 控件 的 multiline=true ,多行文本框
Scrollbars=2 （垂直滚动条）
然后 用

text1.text = text1.text + '添加的内容' + vbcrlf

vbcrlf 是 回车换行 符号 常数

祝你顺利

Answer 4

text1=text1+"倾角 B"
这是大概，我看不大懂你的程序，不知道，如果用text1输出一堆东西的话就是这个