Module Tester Sub Main() Dim randomObject As Random = New Random() Dim randomNumber As Integer Dim output As String = "" Dim i As Integer For i = 1 To 20 randomNumber = randomObject.Next(1, 7) output &= randomNumber & " " If i Mod 5 = 0 Then ' is i a multiple of 5? output &= vbCrLf End If Next Console.WriteLine(output) End Sub End Module
4 1 3 4 3 5 6 2 6 5 5 3 6 4 1 6 6 3 6 3