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

Posted in: Latihan,Pemrograman