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 我的回答应该是你想要的答案吧?