用vb解“s=1*2*3*~*n,求s<=400000时最大的n”

Private Sub Command1_Click()
s = 1
n = 0
Do While s <= 400000
n = n + 1
s = s * n
Loop
Print n - 1
End Sub

Dim n As Long
Dim s As Long
n = 1
s = 1

Do While s < 400000
s = s * n
n = n + 1
If n Mod 100 = 0 Then
Print n
End If
Loop

Print "I'm here =" & n

不管你是高手还是新手!!!
只要你正在学习Vb!!
那就加624503834

大家一起交流嘛!!!

Do While做

哈 真的那么好玩？我是新手