判断1~N内最大的素数

    在做题时做到一个求1~2000内最大的素数的题目，答案是从1开始递增，一直往下找，直到再也找不到为止。有一天我闲着没事，在那想如果从2000开始，转而向下递减，执行起来就相当快了。源代码如下：

 

Command1的事件

1. Private Sub Command1_Click()
2. For i = 2000 To 2 Step -1
3. If Isprime(i) Then
4. n = i
5. Exit For
6. End If
7. Next i
8. Text1 = n
9. End Sub

isprime函数  ‘判断是否是素数

1. Private Function Isprime(ByVal x As Integer) As Boolean
2. prime = True
3. For i = 2 To Sqr(x)
4. If x Mod i = 0 Then
5. prime = False
6. Exit For
7. End If
8. Next i
9. Isprime = prime
10. End Function

同步发表于大学习网站及论坛，链接地址：http://bbs.daxuexi.com/viewthread.php?tid=1158&extra=&frombbs=1