Question

VB中，写一个计算公式，如何让一个文本框显示出无数或者几百个结果

我写的是随机数公式，如何让我想输出几个随机数都可以呢，比如，我想要十二个随机数，显示在一个文本框里

Answer 1

　　无数个是不可以的。文本框有一个最大的字节数。但输出很多还是可以的。但总字符数不能超过32K。

　　将文本框的MultiLine的属性设置为真(true)，将ScrollBars属性设置为3-Both即可。

　　这样文本框有流动条，也能自动换行，可以获得最大的容量。

追问

我想要十几个随机数怎恶魔实现呢

追答

我以为你会代码，没想到你不会，下面代码将产生30个　1000－1999之间随机数

Private Sub Command1_Click()
Dim s As String, k As Integer
Dim I As Integer
Randomize
For I = 1 To 29
    k = Rnd() * 999 + 1000
    s = s & k & vbCrLf
Next I
    s = s & Int(Rnd() * 999 + 1000)
    Text1.Text = s
End Sub

效果图：