单项选择题

以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
Private Sub Cotmand1_Click()
Dim x As Double
For i=0 To 1000
If______ Then
x=x+ i
End If
Next i
Print x
End Sub

A) i Mod 2= 0
B) x mod 2=0
C) I mod 2<>0
D) x mod 2<>0