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

dim i as integerdim a(9) as integerdim s as strings=""for i=0 to 9a(i)=inputbox("输入第" & (i+1) & "个数：")nextfor i=0 to 9if (a(i) mod 2)=1 then s=s& a(i)nextmsgbox ss=""for i=0 to 9if (a(i) mod 2)=...