BARIS BILANGAN

Hey guys, ini materi visual basic tentang membuat n baris bilangan.
yang dipakai itu 1 label , 2 textbox dan 1 commandbutton..

gampang kok buatnya. :)

kodingannya

Private Sub Command1_Click()

N = Val(Text1)

For baris = 1 To N

If baris Mod 2 = 0 Then

awal = 5: akhir = 1

langkah = -1

Else

awal = 1: akhir = 5a

langkah = 1

End If

kal = ""

For i = awal To akhir Step langkah

kal = kal & Str(i)

Next i

List1.AddItem kal

Next baris

End Sub

semoga, bermanfaat ya postingannya ini :)