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

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

'求解函数
'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)

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()

Do While s < 400000
For i = 1 To 10
s = i * s

Next
Loop
MsgBox i
End Sub

Private Sub Form_Load()
s = 1
End Sub