Question

编程求解:满足s=1×2×3×……×n>=4000的最小整数n。要求:单击窗体时，在窗体上输出s,

编程求解:满足s=1×2×3×……×n>=4000的最小整数n。要求:单击窗体时，在窗体上输出s,以及所求n的值. 利用Do……Loop语句计算s

Answer 1

Private Sub Form_Click()
    Dim res As Integer
    Dim n As Integer
    res = 1
    n = 1
    Do Until res > 4000
        res = res * n
        n = n + 1
    Loop
    Print res
    Print n
End Sub