Question

关于VB小问题

窗体上有两个文本框，第一个文本框里有一个数(万位数)，要求是，单击命令按钮，计算出大于这个数的第一个素数，并显示在text2中。答案上给出的是用function函数做的，有点不懂，各位高手能不能给出一种简单易懂的，不用function函数做的过程啊，谢谢啦！

Answer 1

Private Sub Command1_Click()

 x = Val(Text1.Text)

 Do While 1

  x = x + 1

  For i = 2 To x

   If x Mod i = 0 Then

    Exit For

   End If

  Next

  List1.AddItem i

  If i = x Then

   Exit Do

  End If

 Loop

 Print x

End Sub

测试通过

优化版　

Private Sub Command1_Click()
 x = Val(Text1.Text)
 Do While 1
  x = x + 1
  For i = 2 To x \ 2
   If x Mod i = 0 Then
    Exit For
   End If
  Next
  List1.AddItem i
  If i - 1 = x \ 2 Then
   Exit Do
  End If
 Loop
 Print x
End Sub