Private Sub Command1_Click()For i = 100 To 200If i Mod 3 0 Thens = s + iPrint i;n = n + 1If n Mod 10 = 0 Then PrintEnd IfNextPrintPrint "100~200间所有不能被3整除的数的和="; sEnd Sub