原y版程序调试.docVIP

----------专业最好文档，专业为你服务，急你所急，供你所需------------- 文档下载最佳的地方 ----------专业最好文档，专业为你服务，急你所急，供你所需------------- 文档下载最佳的地方 程序调试题 1.计算1!+2!+...+20! Public Function nFactor(ByVal n As Integer) As Double 该过程用于计算n!。 Dim i As Integer Dim temp As Double ----1---- ‘temp=1 For i = 1 To n temp = temp * i Next i nFactor = ----2---- ‘temp End Function ?Public Sub summary() 该过程用于计算1!+2!+...+20!，并打印出计算结果。 Dim sum As Double Dim i As Integer Dim n As Integer n = 20 For i = 1 To n sum = sum +----3---- ‘nFactor (i) Next i Form1.Print sum