中科新闻网消防管道门安装高度:50.求教VB高手
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 04:27:24
该程序的运行结果是..??
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