Question

能用vb的知识回答: . 编写程序:设t=1×2×3×…×n，求t不大于4000时的最大n。

Answer 1

Private Sub Command1_Click()

t = 1

n = 1

While t <= 4000

n = n + 1

t = t * n

Wend

t = t / n

n = n - 1

MsgBox "t不大于4000时的最大n=" & n & vbCrLf & "此时t=" & t

End Sub

Answer 2

aa=1
i=1
do while aa<4000
i =i+1
aa=aa* i
loop
i-1就是你需要的

追问

请详细点

追答

OK，窗体一个command,一个textbox 代码如下：
private sub command1_click()
dim aa as integer,i as integer
aa=1
i=1
do while aa<4000
i =i+1
aa=aa* i
loop
text1.text=i
end sub

Answer 3

   Dim t As Integer, n As Integer
    n = 2
    t = 1
    While t <= 4000
        t = t * n
        n = n + 1
    Wend
    n = n - 1
    t = t / n
    Print n
    Print t

Answer 4

Dim n As Integer
 t=1
For n =2 to 4000
  t=t × n
  If t > 4000
    Print n-1
  End if 
 Next

追问

请详细点，

追答

private sub form_click()
我的代码
end sub

楼上老兄的也可以，你看着那种好理解就用那种吧

Answer 5

追问

我要的是程序

Answer 6

dim n as integer,t as integer
t=1
n=1
do while (t<4000)
n=n+1

t=t*n

loop
print n-1 '跳出循环时的n已经使t<4000，所以要退回n-1才是所求