7,763
社区成员
发帖
与我相关
我的任务
分享一个很基础的问题，1！+2！+3！+。。。。+10！，用哪些程序可以实现！！请指教！
一个很基础的问题，1！+2！+3！+。。。。+10！，用哪些程序可以实现！！请指教！
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-14
- 打赏
- 举报
奇怪，最近复制总出错。
Private Sub Command1_Click()
MsgBox sums(10)
End Sub
Function sums(ByVal n As Integer) As Long
sums = 0
Dim I As Long, J As Long, TEMP As Long
For I = 1 To n
TEMP = 1
For J = 1 To I
TEMP = TEMP * J
Next
sums = sums + TEMP
Next
End Function
Private Sub Command1_Click()
MsgBox sums(10)
End Sub
Function sums(ByVal n As Integer) As Long
sums = 0
Dim I As Long, J As Long, TEMP As Long
For I = 1 To n
TEMP = 1
For J = 1 To I
TEMP = TEMP * J
Next
sums = sums + TEMP
Next
End Function
fbmsf 2003-03-14
- 打赏
- 举报
递归和递推各有所长
Sean918 2003-03-14
- 打赏
- 举报
“虽然写代码不推荐使用递归方法”，但是在计算阶乘时，递归是首推的方法，不可能有比它更简便的方法
我上面的小例子关键就在那个递归函数，上面的主程序是个壳而已
我上面的小例子关键就在那个递归函数，上面的主程序是个壳而已
northwolves 2003-03-13
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox sums(10)
End Sub
Function sums(ByVal n As Integer) As Long
Dim i As Long, j As Long, temp As Long
sums = 0
i = 1
For i = 1 To n
temp = 1
For j = 1 To i
temp = temp * j
Next
sums = sums + temp
Next
End Function
MsgBox sums(10)
End Sub
Function sums(ByVal n As Integer) As Long
Dim i As Long, j As Long, temp As Long
sums = 0
i = 1
For i = 1 To n
temp = 1
For j = 1 To i
temp = temp * j
Next
sums = sums + temp
Next
End Function
zxfyjl 2003-03-13
- 打赏
- 举报
twinking() ，你能提供一个更加小巧的程序实现方法吗?
gang75 2003-03-13
- 打赏
- 举报
value就是值
ricemaster 2003-03-13
- 打赏
- 举报
还是2星的说的对，数据结构，应该用递归！！
gang75 2003-03-13
- 打赏
- 举报
Dim n As Integer
Dim i as Integer
Dim value As Integer
n = 1
value = 0
For i = 1 To 5
n = n * i
value = value + n
Next
Dim i as Integer
Dim value As Integer
n = 1
value = 0
For i = 1 To 5
n = n * i
value = value + n
Next
zxfyjl 2003-03-13
- 打赏
- 举报
seeze() 提供的程序我在VB中调试了一下，没有通过。
wxy_xiaoyu(☆然也☆╭∩╮(︶︿︶)╭∩╮) 的程序通过！OK！
只是还有没有比这个更加简单的实现方法！！！等待！！
wxy_xiaoyu(☆然也☆╭∩╮(︶︿︶)╭∩╮) 的程序通过！OK！
只是还有没有比这个更加简单的实现方法！！！等待！！
Sean918 2003-03-13
- 打赏
- 举报
求阶层的方法在数据结构中是使用“递归”：
Private Sub Form_Load()
Dim str As String, i, Sum
str = InputBox("请输入阶层层数：", "提示", "10")
If Val(str) < 0 Then
MsgBox "错误！"
Else
For i = 1 To Val(str)
Sum = Sum + GetSumOfOrder(i)
Next
MsgBox Sum
End If
End Sub
Public Function GetSumOfOrder(ByVal Num As Integer) As Long
If Num > 1 Then
GetSumOfOrder = Num * GetSumOfOrder(Num - 1)
Else
GetSumOfOrder = 1
End If
End Function
Private Sub Form_Load()
Dim str As String, i, Sum
str = InputBox("请输入阶层层数：", "提示", "10")
If Val(str) < 0 Then
MsgBox "错误！"
Else
For i = 1 To Val(str)
Sum = Sum + GetSumOfOrder(i)
Next
MsgBox Sum
End If
End Sub
Public Function GetSumOfOrder(ByVal Num As Integer) As Long
If Num > 1 Then
GetSumOfOrder = Num * GetSumOfOrder(Num - 1)
Else
GetSumOfOrder = 1
End If
End Function
zxfyjl 2003-03-13
- 打赏
- 举报
完全是为了应付考试呀。不过谢谢上面的朋友！
twinking 2003-03-13
- 打赏
- 举报
太初级了吧，楼主
Zedee 2003-03-13
- 打赏
- 举报
或:
sum=1
for i=2 to 10
count=1 '上面一贴写错了
for j=2 to i
count=count*j
next
sum=sum+count 'sum是最终结果
next
算法一样,可以少做点循环
sum=1
for i=2 to 10
count=1 '上面一贴写错了
for j=2 to i
count=count*j
next
sum=sum+count 'sum是最终结果
next
算法一样,可以少做点循环
Zedee 2003-03-13
- 打赏
- 举报
for i=1 to 10
count=0
for j=1 to i
count=count*j
next
sum=sum+count 'sum是最终结果
next
count=0
for j=1 to i
count=count*j
next
sum=sum+count 'sum是最终结果
next
