VBA编写个位数为6且能被3整除的五位数有多少个

VBA编写个位数为6且能被3整除的五位数有多少个...
2026年09月22日 04:54
有1个网友回答
网友(1):

Sub s()
    Dim i&, k%
    For i = 10006 To 99996 Step 10
        If i Mod 3 = 0 Then k = k + 1
    Next
    MsgBox k
End Sub