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