如何畫出1到100之間的質數流程圖？

Sub Main()？開始

i = 2

做

j = 2

直到i mod j = 0或j * j & gt我

j = j + 1

環

如果j * j & gt我然後

MsgBox i，vbInformation，“輸出”

如果…就會結束

如果沒有(我& lt100)然後退出Do

i = i + 1

環

結束Sub？結束