我的是正解：
For i = 1 To 100 If i Mod 3 = 0 Then Print i a = a + i End If Next i Print a
Private Sub Command1_Click() For i = 1 To 100 If i Mod 3 Then a = a + i Next Text1 = aEnd Sub
