關於Vb的編程題，求100到999之間最大的三個素數 希望能給出具體的代碼~~在線等 謝謝啦

Dim k As Integer, i As Integer

Dim m

k = 0

For m = 999 To 100 Step -1

i = 2

Do While m Mod i <> 0 '判斷是否是素數

i = i + 1

Loop

If i = m Then '是素數

Print m

k = k + 1

If k = 3 Then Exit For

End If

Next m

End Sub