vb语言用n依次除以2,3,4,n-1.在整除的过程中一旦发现余数为0，则可断定n不是素数；若都

Question

法整除，n才为素数

Answer 1

Dim a As Integer

Private Sub Command1_Click()

a = Val(Text1.Text)

For i = 2 To a - 1 Step 1

b = a Mod i

If b = 0 Then

Cls

Print "为素数"

Exit For

End If

Next i

If b <> 0 Then

Cls

Print "不为素数"

End If

End Sub

望采纳。。。。

Answer 2

Sub IfPrimeNumber()
dim n%,blnNoPrimeN as Boolean
if n<1 then msgbox "素数必须是正整数":eixt sub
for cx=2 to n-1
if 0=(n mod cx) then blnNoPrimeN=True : Exit For
next

if blnNoPrimeN then
msgbox n & "不是素数"
else
msbox n & "是素数"
endif
End Sub本回答被网友采纳

Answer 3

sub main
    dim i as integer, n as integer
    n = inputbox("Number", "Number")
    for i = 2 to n - 1
        if n mod i = 0 then
            exit for
        end if
    next
    print "no"
    goto ends
    print "yes"
ends:
end sub