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

Question

Private Sub Form_Click()
Dim k As Integer‘保存最大质数
Dim i As Integer
   
 ’在这里输入自己的代码
   Print k
   End If
   Next s
End Sub

Answer 1

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

Answer 2

二楼朋友的代码稍加修改即可：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

Answer 3

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