VB:用键盘输入10个正整数,先显示所有奇数,再显示所有偶数

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/16 08:28:00

dim i as integer
dim a(9) as integer
dim s as string
s=""
for i=0 to 9
a(i)=inputbox("输入第" & (i+1) & "个数：")
next
for i=0 to 9
if (a(i) mod 2)=1 then s=s& a(i)
next
msgbox s
s=""
for i=0 to 9
if (a(i) mod 2)=0 then s=s& a(i)
next
msgbox s

VB:用键盘输入10个正整数,先显示所有奇数,再显示所有偶数 VB随机产生20个正整数并使奇数偶数在不同行显示 VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,.. VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数. VB 连续输入10数字,显示其中奇数的个数和偶数的个数帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有随机产生并显示10个1～10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种 VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有；奇数有；偶数共个；奇数共个随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列用vb编写用VB写出1-100的所有奇数和偶数和输入一个正整数,判断是奇数还是偶数,如果是偶数显示‘PARTY’,若是基数显示‘ODD' 所有正整数,不是奇数就是偶数这句话对吗?