单选题 以下程序输出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