Question

VB的程序题：定义一个判断x是否为素数的子过程,并通过调用此过程打印出前100个素数.

图片上的第二题就是我的问题，你可以以此做参考，再给我打一个答案！给女朋友解答的，在线等！！！答的好还能多加分！

Answer 1

这个问题，用函数来做是最为简便的。

Private Sub Command1_Click()

  n = 0

  i = 2

  While n < 100

    If sushu(i) Then

      Print i;

      n = n + 1

      If n Mod 10 = 0 Then Print

    End If

    i = i + 1

  Wend

End Sub

Function sushu(n)

  sushu = False

  For i = 2 To Sqr(n + 1)

    If n Mod i = 0 Then Exit Function

  Next i

  sushu = True

End Function

追问

谢谢您的答复，我中午就发给我女朋友！还有就是有没有什么好的学习vb的技巧？