fork download

Private Sub Command1_Click()
Dim N, D  As  Single
Dim tag As String
 
N = Val(TxtNumber.Text)
 
Select Case N
Case Is < 2
Lbl_Answer.Caption = "It is not a prime number"
 
Case Is = 2
Lbl_Answer.Caption = "It is a prime number"
 
Case Is > 2
D = 2
Do
If N / D = Int(N / D) Then
Lbl_Answer.Caption = "It is not a prime number"
tag = "Not Prime"
Exit Do
End If
D = D + 1
 
Loop While D <= N - 1
If tag <> "Not Prime" Then
Lbl_Answer.Caption = "It is a prime number"
End If
End Select
End Sub

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/P9UqKe/prog.vb (1,13) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (2,4) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (3,4) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (5,2) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (7,7) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (8,5) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (9,11) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (11,5) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (12,11) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (14,5) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (15,2) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (16,3) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (17,3) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (18,11) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (19,4) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (20,5) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (21,7) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (22,2) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (24,5) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (25,3) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (26,11) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (27,7) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (28,11) : Error VBNC30203: Not valid as identifier.
/home/P9UqKe/prog.vb (29,8) : Error VBNC30203: Not valid as identifier.
There were 24 errors and 0 warnings.
Compilation took 00:00:00.6322210

Standard output is empty