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)=...