错在哪里？望指点！

易算彩

望各位老师指点

易算彩

92页的参考答案写下来的，应该怎样改正

易算彩

照着92页的参考答案变下来却不对？请各位老师指教！
Option Explicit
Sub jishu()
Dim i As Integer
xrow = 1
For i = 1 To 100 Step 2
          Cells(xrow, "a").Value = i
          xrow = xrow + 1
          Next
End Sub

insert-

xrow没有定义

易算彩

怎么该啊？

jnwk

Option Explicit
Sub jishu()
Dim i As Integer,xrow As Integer
xrow = 1
For i = 1 To 100 Step 2
          Cells(xrow, "a").Value = i
          xrow = xrow + 1
          Next
End Sub

易算彩

刚刚学习，不太懂，谢谢!