Minggu, 27 Maret 2011

array huruf pada VB

Untuk perulangan dari huruf A sampai huruf Z
i = Asc ("A")
Do until i >Asc("Z")
       Text1.text = "Huruf" & chr(i)
       i = i + 1
loop

Untuk perulangan dari huruf Z sampai huruf A

i = Asc ("Z")
Do until i >Asc("A")
       Text1.text = "Huruf" & chr(i)
       i = i - 1loop

2 Komentar:

Blogger Trisno mengatakan...

woyyy jangan pake key donkkk... peliitttttt........

29 Maret 2011 pukul 02.32  
Blogger Trisno mengatakan...

peliitttttt...... ga pake bagi - bagi... kmaren ja di bilangin bagi ma pak to......

29 Maret 2011 pukul 02.33  

Posting Komentar

Berlangganan Posting Komentar [Atom]

<< Beranda