用vba列出1到100中3的倍数,并求和

发布网友发布时间：2022-05-23 04:32

共1个回答

热心网友时间：2023-10-13 05:49

Function sum()
    Dim tsum As Integer
    Dim i As Integer
    For i = 1 To 100
        If i Mod 3 = 0 Then
            tsum = tsum + i
        End If
    Next
    sum = tsum
End Function
'结果=1683

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com