VB求助：1、 设s=1×2×3×…×n，编程求s不大于400000时最大的n
答案:2 悬赏:50 手机版
解决时间 2021-01-30 23:41
- 提问者网友：不爱我么
- 2021-01-30 12:19
VB求助：1、 设s=1×2×3×…×n，编程求s不大于400000时最大的n
最佳答案
- 五星知识达人网友：掌灯师
- 2021-01-30 12:59
Private Sub Form_Load()
s = 1
n = 1
Do While s <= 400000
n = n + 1
s = s * n
Loop
MsgBox n
End Sub
s = 1
n = 1
Do While s <= 400000
n = n + 1
s = s * n
Loop
MsgBox n
End Sub
全部回答
- 1楼网友：舊物识亽
- 2021-01-30 14:07
Sub tts()
Dim s, n As Long
n = 0
s = 1
Do Until s > 400000
n = n + 1
s = n * s
Print n - 1
Loop
End Sub
Dim s, n As Long
n = 0
s = 1
Do Until s > 400000
n = n + 1
s = n * s
Print n - 1
Loop
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯