编程序：从键盘输入10个整数置入数组a，求数组a中所有偶数之和。
PrivateSubForm_Click（）Dimx（10）AsInteger，SAsIntegerFori=1To10Xi=InputBox（"请输入一整数"）NextiFori=1To10IfInt（x（i）/2）=x（i）/2ThenS=S+x（i）：NextiPrintSEndSub
举一反三
内容
- 0
从键盘输入10个整数,调用fun函数求数组中所有奇数的和。
- 1
编程实现求解3行4列的二维数组所有元素的最大值和最小值,并输出。(数组元素从键盘输入)
- 2
从键盘上输入数据，遇0结束，编程求所有奇数之和及所有偶数之和。
- 3
通过键盘为数组a[5]赋值,计算并输出数组元素中所有偶数和。
- 4
输入一个4行4列的二维数组，编程实现求出数组元素之和。