如题！
新手上路，还请在家多多指导哟，呵呵，谢谢！

版本一 : 有 For Each ... Next

Option Explicit

Private Type ABC
    MyCollection() As Long
End Type

Private Num As ABC

Private Sub Form_Initialize()
    ReDim Num.MyCollection(0)
End Sub

Private Sub Form_Load()
Dim MyObject As Variant
Dim i As Long, j As Long, k As Long, Total As Long

    For i = 0 To 100
        If i Mod 2 = 1 Then
            ReDim Preserve Num.MyCollection(j)
            Num.MyCollection(j) = i
            j = j + 1
        End If
    Next i
   
    Total = 0: i = 0: j = 0: k = 0
   
    For Each MyObject In Num.MyCollection    ' 對集合物件裏的成員作一次迴圈執行。

        Do While i < MyObject + 1
            For k = i To MyObject
                Total = Total + i
            Next k
            i = i + 1
            If i = 100 Then Exit Do
        Loop
       
        Text1.Text = CLng(Text1.Text) + Total
       
    Next MyObject
   
    MsgBox Text1.Text

End Sub

版本二：验证版（没有 For Each ... Next）

Option Explicit

Private Sub Form_Load()
Dim i As Long, j As Long, k As Long, Total As Long
Dim ii As Integer

    Total = 0: i = 0: j = 0: k = 0

    For ii = 0 To 100
        If ii Mod 2 = 1 Then
            j = ii
           
            Do While i < j + 1
                For k = i To j
                    Total = Total + i
                Next k
                i = i + 1
            Loop
           
            Text1.Text = CLng(Text1.Text) + Total
           
        End If
       
    Next ii
   
    MsgBox Text1.Text
   
End Sub

答案都一样〜有人可以用计算机点看看结果对不对吗？(懒得重写用以前贴的改来的)

感觉不大对〜这好像不是阶层〜贴阶层那篇我找不着了〜
这应该是是0-100奇数1 +（1+3）+（1+3+5)+......(1+....+99）的解〜

等我找到我贴的写阶层那篇再补回来〜


[ 本帖最后由 wube 于 2011-6-10 00:38 编辑 ]

找好久终于找到了〜但是总合数字太大〜只能用科学记号表示〜

Option Explicit

Private Type ABC
    MyCollection() As Long
End Type

Private Num As ABC

Private Sub Form_Initialize()
    ReDim Num.MyCollection(0)
End Sub

Private Sub Form_Load()
Dim MyObject As Variant, Limit As Integer
Dim i As Double, j As Double, k As Double, Total As Double

    Total = 0: i = 0: j = 0: k = 0
   
    Limit = Val(InputBox("Limit Number is ?"))

    For i = 0 To Limit
        If i Mod 2 = 1 Then
            ReDim Preserve Num.MyCollection(j)
            Num.MyCollection(j) = i
            j = j + 1
        End If
    Next i

    For Each MyObject In Num.MyCollection    ' 對集合物件裏的成員作一次迴圈執行。

        i = MyObject : k = 1

        For j = i To 1 Step -1
            k = k * j
        Next j

        Total = Total + k : Text1.Text = Total
   
    Next MyObject

    Text1.Text = "Sum : " & Total       '可有可無

End Sub

有人可以用计算机点看看结果对不对吗？(懒得重写用以前贴的改来的)
感觉老是在写作业〜好像还在学校念书〜






[ 本帖最后由 wube 于 2011-6-10 03:05 编辑 ]

先把奇数找出来放到一个数组里，再编一个过程求阶层的，最后用一个循环求和（里面调用求阶乘的过程）

谢谢了