Question

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

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

Answer 1

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

Answer 2

两步
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