怎样用VB产生一个不定个数的随机数组？

当数组中前几个数的和大于某一个数时，令text1.text等于前几个数的和。

答案：Private Sub Command1_Click()
    Me.Cls
    Dim i As Integer    '数组元素的个数
    Dim a() As Byte     '数组每单元 0-255
    Dim nMax As Integer
    nMax = 500          '定义最大阀值
    Dim s As Integer    '数组前几个数的和
    Randomize
    Do While s < nMax   's >= nMax 跳出循环
        i = i + 1
        ReDim Preserve a(i)
        a(i) = Int(Rnd() * 256) '产生 0-255 的随机数
        Print a(i)
        s = s + a(i)
    Loop
    Text1.Text = s  'Text1 显示
End Sub

其他：两步
1、产生随机数组的个数比如
Randomize
a = Int(Rnd * 20 + 3)
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

'这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

2、产生数组
Dim dd(), i
ReDim dd(a)
For n = 0 To a
Randomize
dd(n) = Int(Rnd * 25 + 6)
i = i + dd(n)
Next

If i > 固定数 Then
text1.Text = i
End If Private Sub Command1_Click() Dim max, min Randomize Dim a(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 90   10) Print a(i) Next

上一个：VB关于建立文件的，求高手帮助啊 急用啊
下一个：VB6.0 我要更新一些文字 又不需要别人下载 别人再用这个软件的的时候可以看到我更新的文字 怎么实现呢？