《别怕》第三章92页练习小课堂参考答案问题？

langxian912

《别怕》图书到了，步步学习，发现有个问题！《别怕》第三章92页练习小课堂参考答案问题？，书中要求把正奇数写出来，奇数是不被2整除的数，答案1正确，答案2、答案3不对！以下答案请验证！
Public Sub jishu1()
   Dim i As Integer
   xrow = 1
   For i = 1 To 100
      If i Mod 2 <> 0 Then
            Cells(xrow, "A").Value = i
            xrow = xrow + 1
      End If
   Next
End Sub

wwl5111008

验证无误，写出了正奇数

langxian912

以上是本人修改答案！
原来答案2
Sub ZC3()
    Dim i As Integer
    xrow = 1
    For i = 1 To 100
       If i Mod 3 ＝ 0 Then
             Cells(xrow, "A").Value = i
             xrow = xrow + 1
       End If
    Next
End Sub

答案3
原来答案2
Sub ZC3()
    Dim i As Integer
    xrow = 1
    For i = 3 To 100 Step 3
             Cells(xrow, "A").Value = i
             xrow = xrow + 1
      Next
End Sub