请大家帮我解一道简单的VB题（请速回）

来源：百度知道 编辑：UC知道 时间：2024/05/28 11:56:31
数组A（1 TO 15）中有15个随机整数，现要求将数组处理为奇数相邻和偶数相邻
但你那是错的啊，不行

兄弟，，我给你一个吧。好像前面 也是你问题吗！
<%
dim a
a=array(10,9,8,7,6,5,4,3,2,1,5,0)
dim minnum

for i=0 to ubound(a)
for j=0 to ubound(a)
if j<ubound(a) then
if (a(j) mod 2)=0 then
minnum=a(j+1)
a(j+1)=a(j)
a(j)=minnum
end if
end if
next
next

for k=0 to ubound(a)
'Response.Write(a(k) & "<br>")
strx=strx+Cstr(a(k))
next
Text1.value=strx

%>