Question

vb中如何使计算结果全部显示在文本框里，而且文本框有滚动条？

我想编制1*2*3*。。。。。。*100，代码入下：Private Sub Command1_Click()
a = 1
For i = 1 To 100
a = a * i
Text1.Text = a
Next i
End Sub
执行的结果是文本框只有最后一个结果，我想让1*2等结果全部显示在文本框里，怎么怎么办？高手指点。

Answer 1

Text1.Text = a
'改为：
Text1.Text =Text1.Text & a & VBCrLf
'并且设置文本框多行
Text1.MultiLine = True