Question

VB程序设计的一道题，找出100以内能被3整除的所有数之和，并把值保存在一维数组中

刚学VB 求代码~

Answer 1

Dim a() As Integer  '存放能被3整除数的动态数组
dim sum as Integer  '存放和 

Sub GetNumber()
    Dim i As Integer
    Dim num As Integer
    
    sum = 0
    num = 0
    For i = 1 To 100
        ' 如果一个数能被3整除
        If i Mod 3 = 0 Then
            '求和
            sum = sum + i
            '将这个数保存到动态数组中
            ReDim Preserve a(0 To num) As Integer
            a(num) = i
            num = num + 1
        End If
    Next
    '打印出和
    Debug.Print "和为:" + Format(sum)
    '打印出数组中所有能被3整除的数
    For i = 0 To num - 1
        Debug.Print a(i)
    Next
End Sub