小さな中庭の祝福♥

【試題編號】11900-940303
【題目】質數計算
【說明】
請利用『指定』迴圈控制指令，由外部資料檔讀入欲檢查的數字，若此數字是
質數則印出此數字及 “is a prime number.”，若不是則印出此數字及 “is not a
prime number.”

Private Sub Form_Activate()
Dim x As Integer 定義x為整數
Open App.Path & "\940303.sm " For Input As #1  開啟資料檔
Input #1, x 讀取資料x
Close #1  關閉檔案
y = x & " is a prime number."   若x是質數，則會跳回此敘述

For i = 2 To x - 1  迴圈執行的次數為資料該-1
If x Mod i = 0 Then  若i可被x整除
y = x & " is not a prime number."  x便不是質數
Exit For  跳出迴圈(若是質數則跳離迴圈，跑到迴圈外的敘述)
End If
Next i
Print y  列印結果
End Sub

列印結果:(資料檔為10)
 

列印結果:(資料檔為11)