有一組正整數(shù)，要求對(duì)其中的數(shù)據(jù)進(jìn)行排列，排列后奇數(shù)在前，偶數(shù)在后。其中最后 一個(gè)數(shù)據(jù)排到奇數(shù)與偶數(shù)交接處；自前到后的第一個(gè)偶數(shù)排到最后一個(gè)位置，空出的位置排列自后 向前的第一個(gè)奇數(shù)，依此類推。排序示例如下。

排序前	71	85	64	55	42	62	33	17	34	30
排序后	71	85	17	55	33	30	62	42	34	64

實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const  n=10
Dim a（1  To  n） As  Integer
Private  Sub  Command1_Click （　　）
Dim i  As  Integer,j  As  Integer
Dim temp  As  Integer,flag  As  Boolean
'讀取一組正整數(shù)，存儲(chǔ)在數(shù)組 a 中，代碼略
i=1：j=n
temp=a（j）：flag=True
Do  While  i＜j
If flag  Then
If a（i） Mod  2=0  Then a（j）=a（i）
j=j-1
flag=Not flag
Else
'（1）
End  If
Else
If a（j） Mod  2=1  Then
a（i）=a（j）
flag=Not flag
Else
j=j-1
End  If
End  If
Loop
'（2）
'依次輸出排序后的數(shù)據(jù)，代碼略。
End Sub