给有需要的同学,就不用到处求了,还跪求.唉.
Private Function Factorial(ByVal subnumber As Integer) As Long
Dim temp As Long
temp = 1
Dim i As Integer
For i = 1 To subnumber
temp = temp * i
Next i
Factorial = temp
End Function
Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 20
Dim i As Integer
Dim sum As Long
Dim temp As String
temp = ""
sum = 0
For i = 1 To 10
sum = sum + Factorial(i)
temp = temp & CStr(i) & "!+"
Next i
Me.Cls
temp = Left(temp, Len(temp) - 1)
Print
Print temp & " 的值为:"
Print sum
End Sub
Private Function Factorial(ByVal subnumber As Integer) As Long
Dim temp As Long
temp = 1
Dim i As Integer
For i = 1 To subnumber
temp = temp * i
Next i
Factorial = temp
End Function
Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 20
Dim i As Integer
Dim sum As Long
Dim temp As String
temp = ""
sum = 0
For i = 1 To 10
sum = sum + Factorial(i)
temp = temp & CStr(i) & "!+"
Next i
Me.Cls
temp = Left(temp, Len(temp) - 1)
Print temp & " 的值为:"
Print sum
End Sub










