网友互动
网络技巧
职场励志

VB判断是否是素数

发表时间:2018-09-29  热度:
网友匿名网友说:

可以设断点或者打印出来看一下,if x Mod a<>0 或者while部分是否被执行,一般是条件逻辑错了


VB判断是否为素数
网友说:你判断素数的函数写错了,最后一句shu=false当然会使任何一个数都是素数了 正确的代码: Function Shu(x As Integer) As Boolean Dim i As Integer Shu = True For i = 2 To Sqr(x) If x Mod i = 0 Then Shu = False Exit For End If Next i End Function

VB编程判断一个数是否为素数
网友说:Private Sub Command1_Click() a = Val(InputBox("")) For i = 2 To Sqr(a) If a Mod i = 0 Then Exit For Next i If i > Sqr(a) Then MsgBox a & "" Else MsgBox a & "" End Sub 窗口上放一个按钮,点击按钮输入整数即可

VB程序设计:判断一个数是否为质数(素数)。
网友说:Private Sub Command1_Click() Dim x, i, f As Boolean x = InputBox("请输入一个数", , 51) For i = 2 To Sqr(x) If x Mod i = 0 Then f = True Exit For End If Next If Not f Then MsgBox "是素数" Else MsgBox "非素数" End If End Sub

VB判断是否为素数
网友说:Function shu(x As Integer) As Boolean Dim i As Integer shu = True For i = 2 To Sqr(x) If x Mod i = 0 Then shu = False Exit For End If Next i End Function Private Sub Form_Click() Dim n As Integer n = Val(InputBox("请输入一个数:")) Print n & "是素数吗:" & shu(n) End Sub

判断一个数是否为素数的vb程序代码是什么?
网友说:Option ExplicitDim A As Boolean, i As LongDim n As LongDim St As StringPrivate 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 IfEnd Sub我已经 辛苦 运行过。...

VB判断素数问题
网友说:有好多大问题 Private Sub Command1_Click() X = Text1.Text For i = 2 To X - 1 If X Mod i = 0 Then F = 1 Exit For End If Next i If F = 1 Then Label2.Caption = "你输入的数是" & X & ",该数不是素数。" Else Label2.Caption = "你输入的数是" & X & ",该数是素数。" End If End Sub

求助vb程序 判断是否是素数
网友说:Private Sub Command1_Click() Dim x As Long, i As Long,flag As Boolean x = CLng(Text1.Text) flag = false For i = 2 To sqr(x) If x Mod i = 0 Then Text2.Text = "不是素数" flag = True Exit For End If Next i If Not flag Then Text2.Text = "是素数" End Sub 改进建议: 1.变量x应该为Long/Integer/Double/Single等数值类型,而不应该为字符串。 2.对于循环次数,只需要循环到sqr(x)即可。如果用x-1的话对于x=3的情况会出错。另外sqr(x)也比x-1循环次数少很多 3.对余数的判断应该在循环内。枚举数字的时候都要判断一遍而不是只判断最后一个 4.如果不是质数的话,需要记录。(因为正常退出和Exit For退出...

VB判断一个数是否为素数!!为什么我的这个代码 !输入2的时候显示的是2不是素数??
网友说:

你这个算法有问题。一个大于1的自然数n,如果除了1和它本身外,不能被其他自然数整除(除0以外)的数称之为素数(质数)。通常算法是用n与 2~n/2中所有数取余,如果有其中一个余数为0,则判定为非素数,退出循环。所有余数都不为0,判为素数。

1234567for i=2 to a/2  if a mod i=0 then     fun = a & "不是素数"    exit function  end ifnextfun = a & "是素数"

在VB中编写一个判断一个整数是否为素数的程序.....能不能简单点....用if
网友说:

Function sushu(a As Integer) As Boolean    Dim i As Integer    For i = 2 To Int(Sqr(a))        If a Mod i = 0 Then Exit For    Next    If i > Int(Sqr(a)) Then        sushu = True    Else     ...

互动人才网

人喜欢

猜你喜欢
最新文章