VB改错问题
来源:百度知道 编辑:UC知道 时间:2024/05/29 15:26:22
设s=1*2*3*4*.......*n,求S不大于400000时最大的N,程序如下请改错:
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = 1
'下行有错
s = 1
Do While s <= 400000
n = n + 1
s = s * n
Loop
'下行有错
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = 1
'下行有错
s = 1
Do While s <= 400000
n = n + 1
s = s * n
Loop
'下行有错
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = 1
s = 1
Do While s <= 400000
s = s * n
n = n + 1
Loop
'下行有错
Text1.Text = n-1
End Sub
没有错啊?发来错误描述内容和错误号看看
Text1.Text = n