Question

www.ncre.cn上的软件NCRE二级VB上机公益版答案有错！！！

10！明明等于39916800，可是答案却是少一个0，算法中的 fact = fact * k明明应该是 fact = fact * （k+1），太荒唐了，怎么让我们信服啊？！
Private Sub C1_Click()
Dim n As Integer, k As Integer
Dim fact As Long
For k = 0 To 2
If Form1.Op1(k).Value Then
n = Val(Left$(Form1.Op1(k).Caption, 2))
End If
Next k
fact = 1
k = 1
Do While k < n
fact = fact * k
k = k + 1
Loop
Text1.Text = fact
End Sub

Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub

Private Sub unload_sub()
Dim fn As String
fn = App.Path & "\dataout.txt"
Open fn For Output As #1
Print #1, Text1.Text
Close #1
End Sub
答案有错误
算N！应该是
Do While k < n
fact = fact *（ k+1）
k = k + 1
Loop
而不能是
Do While k < n
fact = fact * k
k = k + 1
Loop
啊！！！！！

Answer 1

我告诉你，算法那里没错.我试过了。还有你的是10!还是10啊？？如果是10!的话是这个程序错了。
还有你的Op1的Caption是什么啊。。。

Answer 2

哦.

你想表达的是什么意思呀?

Answer 3

有错很正常的,没错才不正常.

譬如你做程序,有试过一口气写百多行,首次运行却不出错?

Answer 4

http://bbs.ncre.cn/forumdisplay.php?fid=17
这个是二级vb的讨论区 去那投诉把~~~~