vb判断一个数是否为质数，求代码。

基本原理是将这个数n用从2到sqr(n)去除，如果有能够整除说明不是质数。当然你也可以用2到n-1去除，不过效率低一倍。

function 质数(byval n as long) as boolean

dim i as long

for i=2 to sqr(n)

if n mod i =0 then

质数=false

exit function

end if

next

质数=true

end function

For i= 2 To Sqr(n)

If n Mod i= 0 Then

Print n & “不是质数”

Else

Print n & “是质数”

Next i

至于n，当然可以是你输入的，也可以设计是随机生成的。这应该会吧？

Private Sub Command1_Click()

Dim a As Integer

Dim k As Integer

Dim i As Integer

i = 2

a = Val(Text1Text)

do

k=a mod i

i+=1

loop while i<a

if k=0 then text2text="你输入的不是个素数"

else text2text="你输入的是一个素数"Text2Text = "这不是一个质数"

Else

Text2Text = "这是一个质数"

End If

End Sub

以上就是关于vb判断一个数是否为质数，求代码。全部的内容，包括:vb判断一个数是否为质数，求代码。、用Vb设计程序 判断任意一个数是否为质数 用最基础的语句 例如if 语句 循环语句、VB判断质数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！