高校问答演绎推理法的步骤:50.求教VB高手
来源：百度文库 编辑：高校问答 时间：2024/04/28 08:33:40
该程序的运行结果是..??
Private Function fact(n)
fact = 1
For i = 1 To n
fact = fact * i
Next
End Function
Private Sub form_click()
Dim i As Integer, sum As Integer
sum = 0
For i = 3 To 1
step -1
sum = sum + fact(i)
End Sub
Private Function fact(n)
fact = 1
For i = 1 To n
fact = fact * i
Next
End Function
Private Sub form_click()
Dim i As Integer, sum As Integer
sum = 0
For i = 3 To 1
step -1
sum = sum + fact(i)
Next i
Print "sum="; sum
End Sub
是这个程序才对
Private Function fact(n)
fact = 1
For i = 1 To n
fact = fact * i
Next
End Function
Private Sub form_click()
Dim i As Integer, sum As Integer
sum = 0
For i = 3 To 1
step -1
sum = sum + fact(i)
End Sub
Private Function fact(n)
fact = 1
For i = 1 To n
fact = fact * i
Next
End Function
Private Sub form_click()
Dim i As Integer, sum As Integer
sum = 0
For i = 3 To 1
step -1
sum = sum + fact(i)
Next i
Print "sum="; sum
End Sub
是这个程序才对
用来求3!+2!+1!的程序，结果为9