Question

How to print random weekday in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub PrintWeekday(ByVal weekday As Integer)
        Select Case weekday
            Case 0
                Console.WriteLine("Sunday")
            Case 1
                Console.WriteLine("Monday")
            Case 2
                Console.WriteLine("Tuesday")
            Case 3
                Console.WriteLine("Wednesday")
            Case 4
                Console.WriteLine("Thursday")
            Case 5
                Console.WriteLine("Friday")
            Case 6
                Console.WriteLine("Saturday")
            Case Else
                Console.WriteLine("default")
        End Select
    End Sub

	Public Shared Sub Main()
        Dim rnd As Random = New Random()
        Dim weekday As Integer = rnd.Next(0, 6)

        PrintWeekday(weekday)

        PrintWeekday(rnd.Next(0, 6))
    End Sub
End Class





' run:
'
' Sunday
' Wednesday
'

 

70+ SQL courses for beginners and professionals