Private Sub Command1_Click()
Dim i, j, k
For i = 101 To 200 Step 2 '每次加二，确保奇树
If i Mod 3 > 0 Then '不能被3整除
j = j & Str(i) & "," '要打印输出的字符串
k = k + i '奇树和
End If
Next i
Me.Print j
Me.Print vbcrtf
Me.Print "和：" & k
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024