有一組正整數(shù)，要求供對其中的素數(shù)進行升序排序。排序后素數(shù)在前，非素數(shù)在后。排序示例如下。

排序前	86	71	5	41	81	79	37	89
排序后	5	37	41	71	79	89	86	81

Const n=8
Dim a（1 To n） As Integer
Private Sub Command1_Click

（　?。?/div>

（　　）

Dim i As Integer,j As Integer,k As Integer,t As Integer
Dim flag As Boolean
'讀取一組正整數(shù)，存儲在數(shù)組a中，代碼略
For i=1 To n-1

If IsPrime（a（k）） Then flag=True Else flag=False
For j=i+1 To n
If IsPime（a（j）） Then
If  Then
k=j
flag=True
End If
End If
Next j
If k＜＞i Then
t=a（k）：a（k）=a（i）：a（i）=t
End If
If Not flag Then Exit For'Exit For表示退出循環(huán)
Next i
'依次輸出排序后的數(shù)據(jù)。代碼略
End Sub
Function IsPrime（m As Integer） As Boolean
'本函數(shù)判斷m是否是素數(shù)：是素數(shù)返回值為True,不是素數(shù)返回值為False
'代碼略
End Function