writing code in vb.net

I hope this isn't a homework assignment I'm doing for you. There are multiple ways to solve this problem. This is only one solution. You could, of course, use a Select Case block but the code I used is much shorter, using an array. You could also add a Do loop to verify that the user entered at least a 3-character string, or you could keep repeating for more inputs until the user enters nothing as the condition to stop repeating. Module Module1 Sub Main() Dim month As String Console.Write("Enter name of month: ") month = Console.ReadLine() month = month.Substring(0, 3).ToLower() Console.WriteLine("The month number is {0}", monthnum(month)) Console.WriteLine() End Sub Function monthnum(ByVal month As String) As Integer Dim x As Integer Dim thismonth() As String = {"", "jan", "feb", "mar", "apr", "may", "jun", "jul", _ "aug", "sep", "oct", "nov", "dec"} For x = 1 To 12 If month = thismonth(x) Then Return x Next x End Function End Module

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

joy.simpson23y ago
I hope this isn't a homework assignment I'm doing for you. There are multiple ways to solve this problem. This is only one solution. You could, of course, use a Select Case block but the code I used is much shorter, using an array. You could also add a Do loop to verify that the user entered at least a 3-character string, or you could keep repeating for more inputs until the user enters nothing as the condition to stop repeating. Module Module1 Sub Main() Dim month As String Console.Write("Enter name of month: ") month = Console.ReadLine() month = month.Substring(0, 3).ToLower() Console.WriteLine("The month number is {0}", monthnum(month)) Console.WriteLine() End Sub Function monthnum(ByVal month As String) As Integer Dim x As Integer Dim thismonth() As String = {"", "jan", "feb", "mar", "apr", "may", "jun", "jul", _ "aug", "sep", "oct", "nov", "dec"} For x = 1 To 12 If month = thismonth(x) Then Return x Next x End Function End Module