VB编程：设s=1×2×3×…×n,求s不大于400 000时最大的n

'求解函数
'Rs 为s
Function JS(ByVal Rs As Long) As Long
Dim i, b, c As Long
For i = 1 To Rs
DoEvents
b = b + (i * (i + 1))
If b > Rs Then
c = (i - 1)
Exit For
End If
Next i
JS = c
End Function

'调用
msgbox "最大的n " & js(400000)

Private Sub Command1_Click()
Dim s, i
i = 1
s = 1
Do While s < 400000
s = s * i
i = i + 1
Loop
Print "s不大于400000时,n的值是 " & (i - 1)
Print "s不大于400 000时,s的值是" & s
End Sub

Dim n As Integer
Dim j As Long
n = 1
j = 1
Do While j < 400000
n = n + 1
j = j * n
Loop
Print n - 1

Dim s As Long
Dim i As Long
s=1
i = 1
Do
i = i + 1
s = s * i
Loop Until s > 400000

Print s

Dim s As Long
Private Sub Command1_Click()