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
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:
woyyy jangan pake key donkkk... peliitttttt........
peliitttttt...... ga pake bagi - bagi... kmaren ja di bilangin bagi ma pak to......
Posting Komentar
Berlangganan Posting Komentar [Atom]
<< Beranda