一个简单的VB题目，在线等！！！！！！求1000以内的最大质数。

[rosetear]

Private Sub Form_Click()
Dim k As Integer‘保存最大质数
Dim i As Integer

’在这里输入自己的代码




Print k
End If
Next s
End Sub

[wully]

循环每个数，用2到这个数的开方数依次去除这个数，如果都不能整除就是质数
当然偶数直接就排除了

[脆皮大雪糕]

Dim i As Integer
Dim j As Integer
Dim flag As Boolean
For i = 999 To 2 Step -2
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
flag = False
Exit For
End If
Next
If flag Then
MsgBox i
Exit For
End If
Next

[vinegar111]

997

[脆皮大雪糕]

楼上，我不明白为什么要改成从小到大的搜索？人家要最大素数当然是从最大的书开始向小的搜索，只要搜索到第一个素数就是最大的，这样循环的次数少很多的说

[happy_sea]

不好意思，凌晨，迷糊了，汗！！！chewinggum(口香糖·个人二五计划第一年)正解！
-_-!!!!!

[脆皮大雪糕]

后半夜睡觉还那么早在这里抢帖子？！佩服！我昨晚快12点睡现在还迷糊着

[hwcqboy]

用MOD函数就可以搞定

[happy_sea]

二楼朋友的代码稍加修改即可：

Dim i As Integer
Dim j As Integer
Dim flag As Boolean
dim nmax as integer
For i = 3 To 1000 Step 2
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
flag = False
Exit For
End If
Next
If flag Then
nMax = i
End If
Next
msgbox nMax