Latihan 8 Visual Basic - Array Test

Latihan 8 Visual Basic - Array Test

 Dim NamaSiswa() As String

Private Sub Form_Load()
    Dim i As Integer
    ReDim NamaSiswa(1 To 5)

    For i = 1 To 5
        Combo1.AddItem i
    Next i
    Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
    Dim no As Integer, i As Integer
 
    no = CInt(Combo1.Text)
    NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input Nama Siswa")
    If NamaSiswa(no) <> "" Then
        List1.Clear
        For i = 1 To UBound(NamaSiswa)
            List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
        Next i
    End If
End Sub

Private Sub Command2_Click()
    Dim num As Integer, i As Integer
 
    If Not IsNumeric(Text1.Text) Then Exit Sub
 
    num = CInt(Text1.Text)
 
    'ReDim NamaSiswa(1 To num)
    ReDim Preserve NamaSiswa(1 To num)
 
    Combo1.Clear
    List1.Clear
    For i = 1 To UBound(NamaSiswa)
        Combo1.AddItem i
        List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
    Next i
    Combo1.ListIndex = 0
End Sub

Posted in: Latihan,Pemrograman