函數p(n為Double) ' \
\
p = 0 ' \
對於i = 2到Sqr(n) '2~這個數是開(加速)' \信
如果n Mod i = 0，則p = 1 '返回0作為質數，1作為合數'/number。
下壹個i ' /
'/
結束函數'/
加載私有子窗體_activate()'時，無法打印。
我。“WindowState = 2”必須最大化才能顯示。
Dim i為Double
對於i = 2到100
如果p(i) = 0那麽Print i加壹個標簽，寫在標簽上，就和妳的圖壹樣了，不存在最大化問題。
接下來我
末端接頭