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