编写VB程序,寻找100~200以内的所有素数.要求用Sub过程判断一个数是否为素数

Answer 1

Private Sub Form_Click()
Dim i As Integer
For i = 100 To 200

If  prime(i) Then
Text1.Text = Text1.Text & Str(i) & Chr(13) & Chr(10)
End If

Next i
End Sub

Private Function prime(n As Integer) As Boolean  '返回值=True是素数，False不是素数
Dim k As Integer
prime = True
For k = 2 To n - 1
 If (n Mod k) = 0 Then prime = False: Exit For
Next k
End Function

追问

用SUB子过程呢

追答

下面这个Function prime不就是吗？

追问

这个不是函数过程吗