锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net判断判断素数 vb判断素数

IT技术判断

质数判断函数vb.netSub IsPrimenum(byval a As Integer)
Dim b As Integer
For b = 2 To (a - 1)
If a Mod b = 0 Then
MsgBox( "这不是质数")
Else
MsgBox( "这是质数")
End If
Next
End Sub
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 nSqr(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 ik Then
Return True'是"素数"
End If
Return False'是"非素数"
End Function
显示100以内所有素数 VB.net语言‘这个是可以选择范围vb.net判断判断素数的查找
Public Class Form1
'一个大于1的自然数vb.net判断判断素数 ， 除vb.net判断判断素数了1和它本身外vb.net判断判断素数，不能被整除以其他自然数（质数）vb.net判断判断素数 ， 换句话说就是该数除了1和它本身以外不再有其他的因数
' 章鱼哥 3107073263
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PD As Boolean = True
TextBox1.Clear() '首先清空文本框，这里面将放置符合条件的素数
If NumericUpDown1.ValueNumericUpDown2.Value Then '从小到大
For i = NumericUpDown1.Value To NumericUpDown2.Value '循坏判断所有数
For j = 2 To i - 1 '内循环是除了1和它本身的
If i Mod j = 0 Then '判断是否能被除了1和自身以为的 比自身小的数整除
PD = False '如果能被整除，将PD 设置为False
Exit For '退出里层For 循环
Else
PD = True
End If
Next
If PD Then '如果PD为True，则为素数
TextBox1.Text = i""
End If
Next
End If
End Sub
End Class
【vb.net判断判断素数 vb判断素数】vb.net判断判断素数的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容 ， 更多关于vb判断素数、vb.net判断判断素数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：js提示输入密码的好看的样式，js设置密码的代码

    下一篇：电视剧娘道什么时候拍摄，电视剧娘道什么时候拍摄的