WAP to make use of AND and OR operator
______________________________________
Dim a As Boolean
Private Sub Command1_Click()
Dim c, d
c = Val(Text1.Text)
d = Val(Text2.Text)
a = c > 0 And d > 0
Label3.Caption = a
End Sub
Private Sub Command2_Click()
Dim c, d
c = Val(Text1.Text)
d = Val(Text2.Text)
a = c > 0 Or d > 0
Label3.Caption = a
End Sub
Private Sub Form_Load()
End Sub
__________________________________
OUTPUT
__________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment