Dim fn As Integer, a As Integer, s As Integer
Randomize
s = 0
fn = FreeFile
Open "c:\number.txt" For Output As fn
For i = 1 To 100
a = Int(900 * Rnd + 100)
Print #fn, a
If checknumb(a) Then s = s + 1
Next i
Print #fn, "***有素數：" & s
Close #fn
MsgBox "文件已生成"
End Sub
Private Sub Command2_Click()
Dim i
i = 0
fn = FreeFile
Open "c:\number.txt" For Input As fn
Do While Not EOF(fn)
Line Input #fn, a
Print a,
i = i + 1
If i = 10 Then Print vbCrLf: i = 0
Loop
Close fn
End Sub
Private Sub Form_Load()
Command1.Caption = "生成文件"
Command2.Caption = "讀取文件"
End Sub
Private Function checknumb(b As Integer) As Boolean
checknumb = True
For i = 2 To Sqr(b)
If b / i = Int(b / i) Then checknumb = False: Exit For
Next i
End Function