Question

VB文本框如何每输入一个数据换一行

比如:
z=1
for i = 1 to 10
z=z+2
next i
如何在text1.text中显示所有z的值?
就是每个z在text1中占一行这样显示:
3
5
7
9
11
13
15
17
19
21

Answer 1

建一个Command1，Text1，设置Text1的MultiLine属性True。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Text1.Text = ""
Dim z As Integer, i As Integer
z = 1
For i = 1 To 10
z = z + 2
Text1.Text = Text1.Text & z & vbCrLf
Next
End Sub

Answer 2

建一个Command1，Text1，设置Text1的MultiLine属性True。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Text1.Text = ""
Dim z As Integer, i As Integer
z = 1
For i = 1 To 10
z = z + 2
Text1.Text = Text1.Text & z & vbCrLf
Next
End Sub