Contact: aviboots(AT)netvision.net.il
39,866 questions
51,788 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim num As Integer = 0 MyLabel: num = num + 1 If num <= 5 Then Console.Write("{0} ", num) GoTo MyLabel End If End Sub End Module ' run: ' ' 1 2 3 4 5 '
Imports System Public Module Module1 Public Sub Main() Dim number As Integer = 34 Dim str As String If number = 1 Then GoTo Line1 Else GoTo Line2 Line1: str = "Number = 1" GoTo LastLine Line2: str = "Number <> 1" LastLine: Console.WriteLine(str) End Sub End Module ' run: ' ' Number <> 1 '