Unnamed

Public Structure stKund
        Dim Namn As String
        Dim KonsumtionPerMånad() As Double
        Dim Månadslön As Double
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intAntKunder, idxKund, idxMån, intÅrsKonsum As Integer
        Dim Kunder(), Kreditvärdiga_kunder() As stKund

        intAntKunder = CInt(InputBox("Hur många kunder?"))

        ReDim Kunder(intAntKunder)

        For idxKund = 1 To intAntKunder ' Sätter första kund till index 1
            Kunder(idxKund).Namn = InputBox("Kund nr. " & idxKund & ". Namn?")
            ReDim Kunder(idxKund).KonsumtionPerMånad(12) 'Skapar array för 12 månader. 
            For idxMån = 1 To 12 'Första månad börjar på index 1.
                Kunder(idxKund).KonsumtionPerMånad(idxMån) = CInt(InputBox("Kund nr. " & idxKund & ". Konsumtion för månad " & idxMån & "?"))
            Next
            Kunder(idxKund).Månadslön = CInt(InputBox("Kund nr. " & idxKund & ". Månadslön?"))
        Next

        For idxKund = 1 To intAntKunder
            For idxMån = 1 To 12
                intÅrsKonsum += Kunder(idxKund).KonsumtionPerMånad(idxMån)
            Next

            If intÅrsKonsum < Kunder(idxKund).Månadslön * 12 Then
                ReDim Preserve Kreditvärdiga_kunder(idxKund)
                Kreditvärdiga_kunder(idxKund) = Kunder(idxKund)
            End If
        Next

        MsgBox("Antal kreditvärdiga kunder är: " & UBound(Kreditvärdiga_kunder))
    End Sub