Laman

Jumat, 04 Juli 2014

Logika GoTo2 Pada Vb.net 2005 Console Application

Logika GoTo2 Pada Vb.net 2005 Console Application :
Imports System.Console
Module Module1

    Sub Main()
        Dim i, j, k As Integer
        Clear()
        Write("SAYA")
        GoTo 50
        Write("SEDANG")
50:     For i = 1 To 3
            j = j + i
            If i = 1 Then GoTo 100
            Write("LAGI")
            k = i + j
        Next i
100:    Write(i + j + k)
        Write(k)
        ReadLine()
        End
    End Sub

End Module



Hasilnya :


Tidak ada komentar :

Posting Komentar