换一种思路,点一次按钮一次生成20组随机结果,如图所示:


代码如下:
Sub MyRnd()
Dim arr(1 To 20, 1 To 6)
Dim a%, b%, c%, d%, e%, i%, s%
For i = 1 To 20
line:
a = Int(60 * Rnd) + 35
b = Int(60 * Rnd) + 35
c = Int(60 * Rnd) + 35
d = Int(60 * Rnd) + 35
e = Int(60 * Rnd) + 35
s = a + b + c + d + e
If s > 250 And s < 350 Then
arr(i, 1) = a
arr(i, 2) = b
arr(i, 3) = c
arr(i, 4) = d
arr(i, 5) = e
arr(i, 6) = s
Else
GoTo line
End If
Next
[a2].Resize(20, 6) = arr
End Sub