如何用VB写一个判断素数的程序

来源：百度知道 编辑：UC知道 时间：2024/05/21 18:02:37
老师让我们用vb写一个程序，用来判断一个数是否为素数，下节vb课老师要提问，哪位高手能帮帮忙啊，我先在这里谢过了，谢谢啊。

Option Explicit
Dim A As Boolean, i As Long
Dim n As Long
Dim St As String
Private Sub Form_Load()
Form1.AutoRedraw = True
St = InputBox("一个任意数（若<2将退出）", "输入", "100")
If St = "" Then Exit Sub
n = Int(Val(St))
If n < 2 Then Exit Sub
For i = 2 To n - 1
If n Mod i = 0 Then
A = False
Exit For
Else
A = True
End If
Next
If A Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Sub

已经运行过。

Function s(Tmp As Long) As Boolean '素数判断
s = True
For i = 2 To Tmp / 2
If Tmp Mod i = 0 Then
s = False
Exit Function
End If
Next
End Function

附对应的C程序：
int s(int a)
{int z,i,k;
k=sqrt(a);
for (i=2;i<=k;i++)
if (a%i==0