程序设计:求小于一个数(18000)的最大素数

文章作者 100test 发表时间 2007:03:10 17:21:31
来源 100Test.Com百考试题网

Private Sub C1_Click()
a% = 18000
Do
a% = a% - 1
Loop Until isprime(a%)
Text1.Text = a%
End Sub

Private Sub C2_Click()
Open "out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% 1
End If
Loop
isprime = flag
End Function