Question

用VB语言找出大于2345的最小的质数

Answer 1

Private Sub Command1_Click()

i = 2344

Do

i = i + 1

For j = 2 To i - 1

If i Mod j = 0 Then Exit For

Next

Loop Until i = j

Print i

End Su