Private Sub Nights()
Dim count As Integer = 52
Dim p As Integer = 0
Const cols As Integer = 6
Dim montera As String = ""
For i As Integer = 1 To count Step 6
montera += [String].Format("{0,10} {1,2}", i)
p += 1
If (p >= cols) AndAlso (p Mod cols = 0) Then
Console.WriteLine(montera)
montera = ""
End If
Next
Console.WriteLine(montera)
Console.WriteLine("-------------------------------------------------------")
End Sub
i get a erro on this line montera += [String].Format("{0,10} {1,2}", i) Index (zero based) must be greater than or equal to zero and less than the size of the argument list. what do i need to change so it can work?

New Topic/Question
Reply



MultiQuote





|