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