Lab 7:Write a Visual Basic Program to Find Divisible by 5

Function DIV5(ByVal N As Integer)
If N Mod 5 = 0 Then
DIV5 = True
Else
DIV5 = False
End If
End Function
Private Sub Command1_Click()
S1 = InputBox("ENTER THE NUMBER")
If DIV5(S1) = True Then
MsgBox ("NUMBER IS DIVISIBLE BY 5")
Else
MsgBox ("NUMBER IS NOT DIVISIBLE BY 5")
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

1 comment:

  1. http://officetricks.com/different-methods-to-import-data-from-external-excel-file/

    ReplyDelete

Powered by Blogger.