求10000以内能被3整除的所有数之和的程序设计?
2019-05-28
求10000以内能被3整除的所有数之和的程序设计?
优质解答
Private Sub Command1_Click() For i = 3 To 9999 Step 3 s = s + i Next i Print "sum=" & s End Sub
Private Sub Command1_Click() For i = 3 To 9999 Step 3 s = s + i Next i Print "sum=" & s End Sub