VB如何编写计算1----100的素数

给出正确答案，并注释

追问：For i = 2 To n - 1    这是什么意思啊
 
 
If (n Mod i) = 0这句又是什么意思啊

 

答案：Option Explicit
'这是判断函数，返回真表示是素数
Private Function sushu(ByVal n As Long) As Boolean
Dim i As Long
'检验n能否被大小等于2的其他数整除
For i = 2 To n - 1
  If (n Mod i) = 0 Then Exit For '只要找到n能被大小等于2的其他数整除，马上停止检验，跳出循环
Next i
If i = n Then sushu = True '如果循环变量i等于被检验的数n，表示n是素数，返回真。
End Function
Private Sub Form_Load()
Dim n As Long
For n = 1 To 100  '从1循环到100，检验每个数是不是素数
If sushu(n) = True Then Print n '如果是则在窗体输出这个数。
Next n
End Sub

上一个：求一些大一的vb期末考试题和答案
下一个：用vb如何实现字符前缀的统一后移？