分别求1--100之间3的倍数和7的倍数的和

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 01:39:42

分别求1--100之间3的倍数和7的倍数的和
分别求1--100之间3的倍数和7的倍数的和

分别求1--100之间3的倍数和7的倍数的和
Dim I As Integer '循环引用变量 Dim Sum3 As Integer '存储3的倍数的和 Dim Sum7 As Integer '存储7的倍数的和 For I = 1 To 100 '求3的倍数的和 If I Mod 3 = 0 Then Sum3 = Sum3 + I End If '求7的倍数的和 If I Mod 7 = 0 Then Sum7 = Sum7 + I End If Next I '打印结果 Print Sum3,Sum7 我的回答应该是你想要的答案吧?