VB中,不断输入数据直到输入-1为止,统计这些数中有多少个偶数

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/16 02:05:39

VB中,不断输入数据直到输入-1为止,统计这些数中有多少个偶数
用do loop循环

Private Sub Command1_Click()
Do
a = Val(InputBox("输入整数,-1结束:"))
If a Mod 2 = 0 Then s = s + 1
Loop Until a = -1
Print "共有"; s; "个偶数"
End Su

VB中,不断输入数据直到输入-1为止,统计这些数中有多少个偶数 vb,输入一个自然数n,求n!同时统计结果中有多少个0 pascal编程计算输入数中偶数的平均值输入数据以-1结束 vb 输入10个整数,计算偶数个数 ,奇数和. c语言编程数据统计任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数. 在VB中不停产生随机数,直至有10个质数为止,将所有随机数输入LIST1,将10个质数输入LIST2中. 用VB写一下该程序输入一批数据,统计其正数平均值和负数平均值,输入零时停止 c语言题目输入一个数组,个数不超过100个,统计其中的偶数个数,计算偶数之和,当输入-1时,程序结束输入一批非0数,直到输入0时为止,计算其中奇数的平均值和偶数中的最大值和最小值输入10个整数存入数组中,统计其中的奇数和偶数的个数 C++的代码 C语言：输入一组数,统计其中奇数和偶数的个数,知道遇到回车为止.怎样写啊, 从键盘输入一批从11开始的正整数,当输入若干个后发现这些数的平均值是25,统计此时共输入了多少个正整数