程序設計:求小於一個數(18000)的素數

private Sub C1 _ Click()
a % = 18000
Do
a % = a %-1
循環，直到I prime(a %)
text 1。text = a %
結束Sub

Private Sub C2_Click()
打開“out5.txt”作爲#1輸出
Print #1，Text1。Text
關閉# 1
結束Sub

私有函數is prime(a As Integer)As Boolean
Dim flag As Boolean
flag = True
b % = 2
Do While b % If Int(a/b %)= a/b % Then
flag = False
Else
b % = b % 1
End If
Loop
is prime = flag
End函數

位律師廻複