Kamis, 09 Mei 2013

Latihan 7 Visual Basic - Struktur Looping

Latihan 7 Visual Basic - Struktur Looping



Dim i As Integer

Private Sub Command1_Click()
    List1.Clear
    For i = 1 To 100
        List1.AddItem "Angka " & i
        'If i = 50 Then Exit For
    Next i
End Sub

Private Sub Command2_Click()
    List1.Clear
    For i = 100 To 1 Step -2
        List1.AddItem "Angka " & i
    Next i
End Sub

Private Sub Command3_Click()
    List1.Clear
    i = Asc("A")
    Do Until i > Asc("Z")
        List1.AddItem "Huruf " & Chr(i)
        'If Chr(i) = "M" Then Exit Do
        i = i + 1
    Loop
End Sub

Private Sub Command4_Click()
    List1.Clear
    i = Asc("Z")
    Do While i >= Asc("A")
        List1.AddItem "Huruf " & Chr(i)
        i = i - 1
    Loop
End Sub



18 komentar:

Anonim mengatakan...

Nama : M.sholehudin
Kelas : X RPL1

berhasil pak

danny mengatakan...

Nama:Danny Ariswara
Kelas:X RPL 3

Anonim mengatakan...

Nama :Krisna Rosidah
Kelas :XRPL3

sukses pa

Anonim mengatakan...

Nama :Iin Sopiah
Kelas :XRPL3

udah

Anonim mengatakan...

Nama :Irna Rostiani
Kelas :XRPL3

berhasil hore

Anonim mengatakan...

Nama :Hazrina Nadia
Kelas :XRPL3

udah

Anonim mengatakan...

Nama : Gina Alawiyah
Kelas : X RPL 3

Beres

Unknown mengatakan...

pak saya sudah beres latihan 7
nama:aji ragana
kelas: X RPL 1

Anonim mengatakan...

Latihan 1,2,5,7,8,11 Nya beres
Nama:Tantan Anugerah
Kelas:XRPL1
Succes
:)

Anonim mengatakan...

Nama : Wizdan
Kelas X-RPL1

Succes :D

Anonim mengatakan...

Nama : Zaenudin Maulana S
Kelas : Xrpl1

Alhamdulillah udah pak,

ada 4 program semuaya ada di flashdisk :-)

Anonim mengatakan...

pak beres

suhayandi x rpl 1

Anonim mengatakan...

pak sudah
nama ; andriansyah
kelas xrpl2

Anonim mengatakan...

pak beres
nama ; anggi kurnia
kelas ; xrpl2

Anonim mengatakan...

pak ini tugasnya

nama : susan susanti
kelas : xrpl2

Anonim mengatakan...

nama:mila karmila
kelas:x rpl1

pak beres

Anonim mengatakan...

nama:mita oktaviana
kelas: x rpl 1


beres

Ridwan Maulana mengatakan...

pak udah selesai

nama : ridwan maulana
Kelas : X RPL 3

Posting Komentar

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes