vb中从键盘上输入10个数,判断有几个偶数,有几个奇数?

题目

vb中从键盘上输入10个数,判断有几个偶数,有几个奇数?

答案

我给你写了,挺简单的.窗体上添加两个label控件 一个command控件Dim a(1 To 10)Dim bDim c As IntegerDim d As IntegerPrivate Sub Command1_Click()For b = 1 To 10a(b) = InputBox("输入数据","","")If a(b) Mod 2 ...