Contact: aviboots(AT)netvision.net.il
39,890 questions
51,817 answers
573 users
Module Module1 Sub Main() Const N As Long = 10 For i As Integer = 1 To N Console.WriteLine(i) Next End Sub End Module ' run: ' ' 1 ' 2 ' 3 ' 4 ' 5 ' 6 ' 7 ' 8 ' 9 ' 10