用一个一维数组a就可以解决了
奇数:ai mod 2 =1,则加1
偶数:10-i完全小白 求帮助新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:Private Sub Command1_Click()'在text1中输入10个整数,用空格隔开Dim a As IntegerDim Even As IntegerDim Odd As IntegerEnd SubPrivate Sub Form_Click()Even = 0Odd = 0a = Split(Text1, " ")For i = 0 To UBound(a)If a(i) Mod 2 = 0 ThenEven = Even + 1ElseOdd = Odd + 1End IfNextPrint "奇数个数为:" & EvenPrint "偶数个数为:" & OddEnd SubPrivate Sub Form_Load()Text1.Text = ""End Sub当然,这只是简单的,对输入的数字没有校对提醒功能,如果你要可以自己加.
VB 连续输入10数字,显示其中奇数的个数和偶数的个数
VB 连续输入10数字,显示其中奇数的个数和偶数的个数
其他人气:238 ℃时间:2019-10-10 05:42:25
优质解答
我来回答
类似推荐
猜你喜欢
- 1卖火柴的小女孩读后感400字
- 2先化简,再求值:根号12xy^2-根号3x^5+b^2-y根号3xy^2+5x根号48x^2y,其中,x=3,y=2
- 3大舅和二舅扎了相同数目的灯笼拿去卖,大舅卖出去4个,二舅卖出去2个,二舅剩下的是大舅的3倍,求解大舅和二舅原来各扎了几个灯笼?
- 4在三角形ABC中,AB=AC,D为AB上一动点,过点D作DF垂直BC交BC于点F,交CA延长线于E
- 5从1,2,3,4,5五个数中任意取出2个数做加法,其和为偶数的概率是 _.
- 6【跪求】They()have a 600-meter race in ten minutes.A、will B、are going to
- 7若直线a在平面c外,则a平行于c对不对 为什么
- 8I think Tom has to get up early every morning,_____?A don't I B doesn't he C hasn't he D do I 选哪
- 9一平方千米等于多少多少公顷
- 10燥 组词 组成短语 用短语写句子