有VB代码如下：

   Private Sub Command1_Click()

Dim s As Integer, i As Integer

s = 0

For i = 1 To 1000

       s = s + i

Next i

Print s

End Sub

运行时，出错信息如下图所示，导致此错误的语句或原因是（    ）。

A、将变量i的数据类型改为long

B、将变量s的数据类型改为long

C、将变量i的数据类型改为string

D、将变量s的数据类型改为string