vb.net如何判断素数 vb中判断素数的代码

VB判断是否为素数

写程序太麻烦。告诉你方法吧。设i=2.先判断输入的整数是否为1和2

。如果是1，直接反回索数。如果是2反回非素数。如果不是1，2。则进入循环把整数除i

，判断余数0并且i整数，i++。一旦出现余数=0侧为反回非素数，如果循环完了还没有，反回素数。原理：是素数只1与自身整除。

相关问答

Q1: vb 判断一个数是否为素数，若不是求出大于它的最小素数

主要是以下语句有问题：

Exit Do: Text2 = Str(a) "是素数"

Exit Do是退出Do-While循环，既然已经退出了，就不会执行后面的Text2 = Str(a) "是素数"了。

Do While 1

a = a + 1

For n = 2 To Sqr(a)

If a Mod n = 0 Then Exit For

Next n

If n Sqr(a) Then

Exit Do:

End If

Loop

Text2 = Str(a) "是素数"

这是我的参考代码（用VB.NET编写，改为VB，可能有小错误，我这儿没有VB 6环境）：

Private Sub Command1_Click()

Dim a As Integer

a = Val(TextBox1)

If IsPrimeNumber(a) = True Then

TextBox2 = Str(a) "是素数"

Return

End If

Do While 1

a = a + 1

If IsPrimeNumber(a) = True Then

Exit Do

End If

Loop

TextBox2 = Str(a) "是素数"

End Sub

'判断一个整数是否是素数，若是素数返回true，否则返回false

Private Function IsPrimeNumber(ByVal num As Integer) As Boolean

Dim i, k As Integer

k = Sqr(num)

For i = 2 To k

If num Mod i = 0 Then

Exit For

End If

Next

If i k Then

Return True '是"素数"

End If

Return False '是"非素数"

End Function

Q2: vb判断素数需要添加哪些控件

vb判断素数需要添加的控件有button和listbox。

1、打开vb工程，在上面建一个窗体，然后创建button和listbox

2、在findPrime上写入如下代码：

Private Sub CommandButton1_Click()

Dim flag As Boolean

flag = True

ListBox1.AddItem (1) '默认1和2都是素数

ListBox1.AddItem (2)

For i = 1 To 1000

For J = 2 To i - 1

If (i Mod J = 0) Then

flag = True

Exit For

Else

flag = False

End If

Next

If flag = False Then

ListBox1.AddItem (i)

End If

Next i

End Sub

3、运行结果，列出了1-1000内的所有素数。

Q3: vb判断素数

这得通过对循环

For i = 2 To n - 1

If n Mod i = 0 Then Text2.Text = n "不是素数": Exit For

Next i

分析说起；

For i = 2 To n - 1

就是 i 从2开始vb.net如何判断素数，逐步递增1，循环到 n - 1 结束，中间每一次循环通过 If 语句一 一 判断。

循环里，执行 If 语句

If n Mod i = 0 Then Text2.Text = n "不是素数": Exit For

注意到，这里有退出循环vb.net如何判断素数的语句Exit For

从而，最后循环结束有两种可能；

1，只要有 i 能整除 n，循环就执行Exit For使得循环结束；此时i=n - 1

2，所有的 i 都不能整除 n，这样结束循环的时候；i = n - 1

所以，在最后根据是否能满足i = n - 1，来确定 n 是不是素数。

关于vb.net如何判断素数和vb中判断素数的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。