简答题

编程序:从键盘输入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

答案解析

相似试题
  • 有一100个元素的整数数组,假设已存放了99个从小到大的整数,最后一个空缺。编写一程序,从键盘输入任一整数,把它放到数组中,使数组中数据仍然有序并输出。

    简答题查看答案

  • 编写一个程序从键盘输入10个学生的成绩到数组score中,将最高分、最低分输出。

    简答题查看答案

  • 编一个程序,从键盘输入10个实数,存入一个数组,用冒泡法对这个数作升序排序。

    简答题查看答案

  • 编一个程序,利用do-while循环语句,从键盘上输入10个整数,求出它们的和。

    简答题查看答案

  • 假定整数数组a中元素的值不重复。删除a中值为x的元素(x从键盘输入)。

    简答题查看答案

  • 编写一个程序从键盘输入10个整数,求均值及低于均值的个数,并结果用空格隔开输出到屏幕。(采用预定义N为10)。

    简答题查看答案

  • 编一个程序,定义一个有10个元素的数组,使用for循环语句,从键盘上输入10名同学的数学成绩,分别求出最高分和最低分,并且求出10名同学的数学平均成绩。

    简答题查看答案

  • 编程序。输入10个整数存入一维数组,再按逆序重新存放后再输出。

    简答题查看答案

  • 编制程序,输入n个整数(n从键盘输入,n>0),输出它们的偶数和。

    简答题查看答案