用VB编程，求2~100之间所有的素数,要求通过一个自定义函数来求解某个数是否为素数

Question

求具体的VB编写代码，谢谢
要求界面如下图

Answer 1

'试过，成功了
Function p(n As Double) ' \
' \
p = 0 ' \
For i = 2 To Sqr(n) '2~该数开放（加快速度） ' \ 函
If n Mod i = 0 Then p = 1 '返回0为素数，1为合数 ' / 数
Next i ' /
'/
End Function '/

Private Sub Form_activate() 'load的时候print不上字
Me.WindowState = 2 '不最大化显示不下
Dim i As Double
For i = 2 To 100
If p(i) = 0 Then Print i '加个label在label上写就会成你图片的样子，也不会出现最大化的问题
Next i
End Sub

参考资料：自己

来自：求助得到的回答

Answer 2

我 喜欢 用 按钮 和 文本框

Private Sub Command1_Click()
Dim n As Integer
For n = 2 To 100

If prime(n) Then Text1.Text = Text1.Text & n & vbTab
Next
End Sub
'判断是不是素数的函数
Function prime(Num As Integer) As Boolean
Dim n As Integer, a As Integer
prime = False
a = 2
Do While 1
If Num = 2 Then
prime = True
Exit Do
End If
If Num Mod a = 0 Then
Exit Do
Else
a = a + 1
End If
If a > Sqr(Num) Then
prime = True
Exit Do
End If

Loop

End Function

Answer 3

Private Sub Form_Load()
Dim n As Integer
For n = 2 To 100

If fun(n) Then Debug.Print n
Next
End Sub
'判断是不是素数的函数
Function fun(Su As Integer) As Boolean
Dim n As Integer, a As Integer
fun = False
a = 2
Do While 1
If Su = 2 Then
fun = True
Exit Do
End If
If Su Mod a = 0 Then
Exit Do
Else
a = a + 1
End If
If a > Sqr(Su) Then
fun = True '如果是素数返回真
Exit Do
End If

Loop
End Function

Answer 4

Private Sub Command1_Click()
Dim i As Integer, n As Boolean
For i = 2 To 100
Call pp(n, i)
If n = False Then
s = s + 1
If s Mod 5 = 0 Then
Print
Else
Print i,
End If
End If
Next

End Sub
判断素数的过程：
Public Sub pp(n As Boolean, x%)
Dim a As Integer
n = False
For i = 2 To Sqr(x)
If x Mod i = 0 Then n = True: Exit For
Next

End Sub