用VB程序算出 1000-2000范围内的 最大素数

用VB程序算出 1000-2000范围内的 最大素数
用VB程序算出 1000-2000范围内的 最大素数

用VB程序算出 1000-2000范围内的 最大素数
Private Sub Command1_Click()
Dim i As Integer
For i = 2000 To 1000 Step -1
If prime(i) Then Print " 1000-2000范围内的最大素数: " & i: Exit For
Next
End Sub
Private Function prime(ByVal n As Long) As Boolean '返回值=True是素数,False不是素数
Dim k As Long
If n < 2 Then
prime = False
Else
prime = True
For k = 2 To n - 1
If (n Mod k) = 0 Then prime = False: Exit For
Next k
End If
End Function
答案是1999