Tuesday, February 22, 2011

Write a Visual Basic Program to find the greatest among three numbers

WAP to find the greatest among three numbers.
_________________________________________

Private Sub Command1_Click()
Dim a
a = Val(Text1.Text)

If Text1.Text = "" Then
Label2.Caption = "ENTER ANY INTERGER"
ElseIf a Mod 2 = 0 Then
Label2.Caption = "Even Number"
Else
Label2.Caption = "Odd Number"
End If
End Sub

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

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

_______________________________________
OUTPUT
_______________________________________


____________________________________
DOWNLOAD
____________________________________

Download its form

Download its Image



No comments:

Post a Comment

Sociable