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。