Dim k為整數，I為整數
尺寸m
k = 0
對於m = 999到100的步長-1
i = 2
在m Mod i & lt& gt' 0 '來判斷是否是質數。
i = i + 1
環
如果i = m，那麽'是壹個質數。
打印m
k = k + 1
如果k = 3，則退出
如果…就會結束
下壹個m
末端接頭