Question

vb如何连续输出数据到text，每次都会覆盖原来的数，我想全部x都输出到text2中

Private Sub Command1_Click()
Dim s!, i%, x!, n%, p!
s = 0
n = Val(InputBox("数量"))
Text1 = n
For i = 1 To n
x = Val(InputBox("数据"))
Text2 = x

s = s + x
p = s / n
Next i
Text3 = p
End Sub

Answer 1

Text1 =Text1 & n

Text2 =Text2 & x

Text3 =Text3 & p

追问

按说的改后   输入了5个数据后 变成这样

追答

先要把文本框里的文字清掉啊，把文本框的text属性设为空。

如果想输一个数据换一行的话，把文本框的MultiLine的值设为True，

使用

Text2 =Text2 & chr(13) & chr(10) & x

语句