导读 Private Sub Command1_Click()Clsm = 0i = 7Do While m < 2i = i + 1If i Mod 3 = 1 And i Mod 5 = 1 And i Mod 7 = 1 Thenm = m + 1Print iEnd IfLoopEnd Sub。
Private Sub Command1_Click()Clsm = 0i = 7Do While m < 2i = i + 1If i Mod 3 = 1 And i Mod 5 = 1 And i Mod 7 = 1 Thenm = m + 1Print iEnd IfLoopEnd Sub。
免责声明：本文由用户上传，如有侵权请联系删除！