• Home
 · 
• Math/Dates
 · 
• Code to verify whether an entered number is a prime number or a composite number.

Code to verify whether an entered number is a prime number or a composite number.

Code to verify whether an entered number is a prime number or a composite number.

API Declarations


'The form must contain a textbox (Text1) and 2 command buttons(Command1, Command2) and a label (label1)



Rate Code to verify whether an entered number is a prime number or a composite number.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim x, i, pr As Integer
i = 2
pr = 1
x = Text1.Text
If x >= 2 Then
    For i = 2 To x - 1
        If x Mod i = 0 Then
            pr = pr * 0
        End If
    Next
    If pr = 0 Then
        Label1.Caption = x & " is a Composite number."
    Else
        Label1.Caption = x & " is a Prime number."
    End If
Else
    If x = 1 Then
        Label1.Caption = "1 is niether a prime nor composite number. It's a unique number."
    End If
End If
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
End Sub

Private Sub Text1_Change()
n = Len(Text1.Text)
e = 1
For i = 1 To n
If Mid(Text1.Text, i, 1) >= 0 And Mid(Text1.Text, i, 1) <= 9 Then
e = e * 1
Else
e = e * 0
End If
Next
If e = 0 Or Text1.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub