下列程序的功能是计算 1 到 1000 之间所有偶数之和，程序空白处应填写的语句是 Private Sub Command_Click() Dim x As Double For i=1 To 1000 If _______ Then x = x + i End If Next i Debug.Print x End Sub
- A.i Mod 2 = 0
- B.x Mod 2 = 0
- C.i Mod 2 <> 0
- D.x Mod 2 <> 0
浏览173
参考答案：A
解析：
【解析】本题中利用For循环语句与If条件判断语句完成计算 1 到 1000 之间所有偶数之和。首先利用For循环使i从1至1000逐个变换，若i为偶数，则执行相加操作，因此应在If语句空白处填写i Mod 2 = 0。