If isPrime Then MessageBox.Show(num & " is a Prime Number") Else MessageBox.Show(num & " is NOT a Prime Number") End If Else MessageBox.Show("Enter a valid integer") End If End Sub End Class
:
Public Class Student Private _rollNo As Integer Private _name As String Private _percentage As Double ' Constructor Public Sub New(ByVal roll As Integer, ByVal name As String, ByVal per As Double) _rollNo = roll _name = name _percentage = per End Sub
If isPrime Then MessageBox.Show(num & " is a Prime Number") Else MessageBox.Show(num & " is NOT a Prime Number") End If Else MessageBox.Show("Enter a valid integer") End If End Sub End Class
:
Public Class Student Private _rollNo As Integer Private _name As String Private _percentage As Double ' Constructor Public Sub New(ByVal roll As Integer, ByVal name As String, ByVal per As Double) _rollNo = roll _name = name _percentage = per End Sub