Question

Write the first line of a function named Days. The function should return an integer value. It should have three integer parameters: intYears, intMonths, and intWeeks. All arguments should be passed by value.

Answer 1

Program:

Module Module1

Function Days(intYears As Integer, intMonths As Integer, intWeeks As Integer) As Integer

' 1 year = 365days

' 1 month=30.417 days

' 1 week = 7 days

Days = 365 * intYears + 30.417 * intMonths + 7 * intWeeks

End Function

Sub Main()

Dim years, months, weeks As Integer

Console.Write("Enter the number of years: ")

years = Convert.ToInt32(Console.ReadLine())

Console.Write("Enter the number of months: ")

months = Convert.ToInt32(Console.ReadLine())

Console.Write("Enter the number of weeks: ")

weeks = Convert.ToInt32(Console.ReadLine())

Console.WriteLine("Days: " & Days(years, months, weeks))

Console.ReadKey()

End Sub

End Module