编程序：从键盘输入10个整数置入数组a，求数组a中所有偶数之和。
正确答案:
Private Sub Form_Click（）
Dimx（10）AsInteger，S As Integer
Fori=1To10
Xi=InputBox（"请输入一整数"）Nexti
Fori=1To10
IfInt（x（i）/2）=x（i）/2ThenS=S+x（i）：
Nexti
PrintS
End Sub
Dimx（10）AsInteger，S As Integer
Fori=1To10
Xi=InputBox（"请输入一整数"）Nexti
Fori=1To10
IfInt（x（i）/2）=x（i）/2ThenS=S+x（i）：
Nexti
PrintS
End Sub
答案解析:有
微信扫一扫手机做题