试题详情
简答题编程序：从键盘输入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

  • 关注下方微信公众号，在线模考后查看

热门试题