Assignment 2 for print of vb.net

Assignment No. – 02

Program on Function :-

Module myfunctionskb

   Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer

      ' local variable declaration */

      Dim result As Integer

      If (num1 > num2) Then

          result = num1

      Else

          result = num2

      End If

      FindMax = result

   End Function

   Sub Main()

      Dim a As Integer = 100

      Dim b As Integer = 200

      Dim res As Integer

      res = FindMax(a, b)

      Console.WriteLine("Max value is : {0}", res)

      Console.ReadLine()

   End Sub

End Module

Output :-

Max value is : 200

Program on sub procedure :-

Module mysubkb

   Sub CalculatePay(ByVal hours As Double, ByVal wage As Decimal)

      'local variable declaration

      Dim pay As Double

      pay = hours * wage

      Console.WriteLine("Total Pay: {0:C}", pay)

   End Sub

   Sub Main()

      'calling the CalculatePay Sub Procedure

      CalculatePay(25, 10)

      CalculatePay(40, 20)

      CalculatePay(30, 27.5)

      Console.ReadLine()

   End Sub

End Module

Output :-

Total Pay: $250.00

Total Pay: $800.00

Total Pay: $825.00