用VB程序算出 1000-2000范围内的 最大素数
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/18 16:13:35
![用VB程序算出 1000-2000范围内的 最大素数](/uploads/image/z/2477586-66-6.jpg?t=%E7%94%A8VB%E7%A8%8B%E5%BA%8F%E7%AE%97%E5%87%BA+1000-2000%E8%8C%83%E5%9B%B4%E5%86%85%E7%9A%84+%E6%9C%80%E5%A4%A7%E7%B4%A0%E6%95%B0)
用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