Dim i As LongDim Count As LongFor i = 1 To 100If (i Mod 3 = 0) And (i Mod 2 = 0) ThenCount = Count + 1Debug.Print iEnd IfNextMsgBox Count答案是16两个条件,能被3整除并且是偶数答案应该是33如果0 要算进去那正确答案是17个如何才能算到.33 这个答案呀.你一定算错了，33是标准答案两个条件,能被3整除并且是偶数 这是你给的两个条件呢实在不好意思，我题目打错了，前一百个偶数