在VB中编写一个判断一个整数是否为素数的程序.....能不能简单点....用if
在VB中编写一个判断一个整数是否为素数的程序.....能不能简单点....用if语句和for语句....do while 语句和exit for什么的都没学QAQ
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
sushu = False
End If
End Function
Private Sub Form_Click()
Dim a As Integer
a = InputBox("输入一个整数", "提示")
If sushu(a) = True Then
MsgBox CStr(a) + " 是素数"
Else
MsgBox CStr(a) + " 不是素数"
End If
End Sub
在VB中编写一个判断一个整数是否为素数的程序...能不能简单点...用if...
"提示") If sushu(a) = True Then MsgBox CStr(a) + " 是素数" Else MsgBox CStr(a) + " 不是素数" End IfEnd Sub
vb判断素数
正确程序如下（可以通过比较寻找自己的错误）：Private Sub Command1_Click()X = Text1.TextFor i = 2 To X - 1If X Mod i = 0 ThenF = 1Exit ForEnd IfNext iIf F = 1 ThenLabel2.Caption = "你输入的数是" & X & "，该数不是素数。"ElseLabel2.Caption = "你输入的数是" ...
vb怎么计算素数
回答：你在窗体上放一个textbox,一个Command,运行以下代码Private Sub Command1_Click() Dim i%, j% If Text1.Text = "" Then MsgBox "请输入一个整数" Exit Sub End If i = Int(Val(Text1.Text)) For j = 2 To i If i Mod j = 0 Then Exit For Next If j = i Then MsgBox ...
vb里面怎么编写一段代码判断输入的数是否素数
If I = N Then'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件 Print N & "是素数"Else Print N & "不是素数"
用VB怎样编写“判断数字是否为质数”的程序
As Boolean '素数判断 ss = True For i = 2 To Tmp \/ 2 If Tmp Mod i = 0 Then ss = False Exit Function End If Next End Function Private Sub Command1_Click()Dim a As Long For a = 10 To 100 '小一点 从10到 100吧！If ss((a))Then Print a End If Next End Sub ...
VB程序设计:判断一个数是否为质数(素数)。
原则上是要判断是否能被一个不是1和本身的数整除。简单的方法是从2到本身－1的数做为除数进行循环不，逐一判断能否整除，出现整除情况即断定非质数。但这种方法的计算量较大，因为有些数是明显不用的，如大于本身2分之一的，处于3分之一到2分之一之间的，等等。优化的方法是：Private Sub Button1...
求VB编程代码:题目:判断一个数是否是素数?
穷举法，就是将需要判断的数除2、除3...一直除到这个数减1.例如：判断7是不是素数的算法是进行如下运算 7\/2，7\/3，7\/4，7\/5，7\/6，在上述除的过程中如果都不能被除尽则可以断定7是素数，否则就说明7不是素数。注意：编程时使用求余运算，判断是否能被除尽。参考程序如下：dim i as integ...
vb判断素数
Exit For 注意到，这里有退出循环的语句Exit For 从而，最后循环结束有两种可能；1，只要有 i 能整除 n，循环就执行Exit For使得循环结束；此时i<=n - 1 2，所有的 i 都不能整除 n，这样结束循环的时候；i >= n - 1 所以，在最后根据是否能满足i >= n - 1，来确定 n 是不是素数。
用VB语言编写程序:输入一个正整数,判断该数是否是素数。
Private Sub Command1_Click()Dim N As Long, Flags As Boolean N = Val(Text1.Text)Flags = True For i = 2 To Sqr(N)If N Mod i = 0 Then Flags = False Exit For End If Next MsgBox N & IIf(Flags, "", "不") & "是一个素数"End Sub ...
VB语言:要求编写一个函数过程判断某数是否是素数
= 2 To n - 1 If n Mod i = 0 Then Exit For Next i If i = n Then sushu = True Else sushu = False End If End Function Private Function huwen(n As Integer) As Boolean If Left(n, 1) = Right(n, 1) Then huwen = True Else huwen = False End If End Function ...
