Module Module1
Sub OneValue(ByVal Name As String)
Console.WriteLine("Hello, " & Name)
End Sub
Sub TwoValues(ByVal Age As Integer, ByVal Name As String)
Console.WriteLine("Age: " & Age)
Console.WriteLine("Name: " & Name)
End Sub
Sub ThreeValues(ByVal Name As String, ByVal Age As Integer, ByVal Salary As Double)
Console.WriteLine("Name: " & Name)
Console.WriteLine("Age: " & Age)
Console.WriteLine("Salary: " & Salary)
End Sub
Sub Main()
OneValue("Mr. Gates")
Console.WriteLine()
TwoValues(50, "Mr. Gates")
Console.WriteLine()
ThreeValues("Mr. Gates", 50, 250000.0)
End Sub
End Module
|