一個數,除去個位是素數,除去百位是素數……而且各個位上沒有零的數,就是超等素數。
啟動VB6.0,新建一個尺度exe工程。
在窗體上繪制一個號令按鈕,名稱為Command1。
雙擊號令按鈕進入代碼窗口。
假設有一個名為ss的函數過程進行挪用,從1000到9999一一查找。可以選擇計數輪回For....Next語句。
編寫ss函數過程。(具體過程請看代碼中的綠色注釋)
按F5運行測試。(想學更多經典算法可以點擊存眷。若是感覺對您有幫忙,請動脫手指點下贊吧,感謝哦。)
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!