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
（简答题）
编程序：从键盘输入10个整数置入数组a，求数组a中所有偶数之和。
正确答案
答案解析
略
相似试题
（简答题）
有一100个元素的整数数组，假设已存放了99个从小到大的整数，最后一个空缺。编写一程序，从键盘输入任一整数，把它放到数组中，使数组中数据仍然有序并输出。
（简答题）
编写一个程序从键盘输入10个学生的成绩到数组score中，将最高分、最低分输出。
（简答题）
编一个程序，从键盘输入10个实数，存入一个数组，用冒泡法对这个数作升序排序。
（简答题）
编一个程序，利用do-while循环语句，从键盘上输入10个整数，求出它们的和。
（简答题）
假定整数数组a中元素的值不重复。删除a中值为x的元素（x从键盘输入）。
（简答题）
编写一个程序从键盘输入10个整数，求均值及低于均值的个数，并结果用空格隔开输出到屏幕。（采用预定义N为10）。
（简答题）
编一个程序，定义一个有10个元素的数组，使用for循环语句，从键盘上输入10名同学的数学成绩，分别求出最高分和最低分，并且求出10名同学的数学平均成绩。
（简答题）
编程序。输入10个整数存入一维数组，再按逆序重新存放后再输出。
（简答题）
编制程序，输入n个整数（n从键盘输入，n>0），输出它们的偶数和。
