请教老师们一个关于条件随机数的问题（已解决）

idliyi

Sub sjs()
Dim d, e, f, g, h, i, j, k, l, m, n
Do
    d = Int(Rnd * 11) + 25
    e = Int(Rnd * 9) + 20
    f = Int(Rnd * 25) + 70
    g = Int(Rnd * 15) + 68
    h = Int(Rnd * 20) + 165
    i = Int(Rnd * 16) + 160
    j = Int(Rnd * 14) + 35
    k = Int(Rnd * 12) + 32
    l = Int(Rnd * 20) + 170
    m = Int(Rnd * 15) + 166
   
    t = (l + 2 * h - 2 * f - j) + (m + 2 * i - 2 * g - k) - 18
    If t <= 545 And t >= 489 Then
        n = 13
        n = n + 1
        Cells(n, 4) = d
        Cells(n, 5) = e
        Cells(n, 6) = f
        Cells(n, 7) = g
        Cells(n, 8) = h
        Cells(n, 9) = i
        Cells(n, 10) = j
        Cells(n, 11) = k
        Cells(n, 12) = l
        Cells(n, 13) = m
        Cells(n, 20) = t
        
    End If
Loop While n <> 14
MsgBox "OK!"
End Sub

随机数全填到第14行的。。。4列到13列，和20列
请高手老师们用，VBA写一个代码，将符合条件的随机数，赋值到相应的单元格中。。。万分感谢。。

[ 本帖最后由 idliyi 于 2009-6-29 16:24 编辑 ]

idliyi

是我表达的有问题吗，怎么没有高手出现哟

蓝桥玄霜

Sub sjs()
Dim a, b, n, s
Do
    a = Int(Rnd * 30) + 1
    b = Int(Rnd * 30) + 15
    s = a + b
    If s <= 30 And s >= 18 Then
        n = n + 1
        Cells(n, 1) = a
        Cells(n, 2) = b
        Cells(n, 3) = s
    End If
Loop While n <> 10
MsgBox "OK!"
End Sub

oobird

Sub yy()
Dim arr(1 To 5, 1 To 3), a(30) As Boolean, b(30) As Boolean, i%, c%
Do
1: x = Int(Rnd * 30 + 1)
y = Int(Rnd * 16 + 15)
c = x + y
If a(x) = False And b(y) = False And c <= 30 And c >= 18 Then
i = i + 1
arr(i, 1) = x: arr(i, 2) = y: arr(i, 3) = x + y
a(x) = True: b(y) = True

Else
GoTo 1
End If
Loop Until i = 5
[a1].Resize(5, 3) = arr
End Sub

idliyi

两位大师的都很好哟。。呵呵。。谢谢，谢谢。。祝天天好心情。

idliyi

现在又有问题了，当变量比较多时就不行了，死机。。

idliyi

OObird老师的应该不错，不过不知道怎么改。。