Dim kidsinsports(,) As Integer = {{10, 10, 10}, {20, 10, 15}, {10, 5, 10}, {20, 20, 20}, {11, 10, 12}, {22, 10, 10}, {5, 0, 5}, {10, 12, 23}, {15, 3, 9}, {12, 17, 24}}
    Dim costofsports(,) As Double = {{100, 200, 150, 120, 231, 102, 87, 145, 156, 130}, {100, 56, 78, 99, 105, 180, 230, 165, 134, 75}, {110, 120, 130, 140, 77, 120, 150, 150, 190, 200}}



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim row, column As Integer
        Print_Array()
    End Sub
    Sub print_array()

        lstbox.items.add("The array printed row-wise is:")
        Dim row, column, index As Integer
        Dim cost As String

        For index = 0 To 9
            cost = cost & costofsports(index, 1)
        Next
        lstbox.Items.Add(costofsports)
        lstbox.Items.Add("")

        For index = 0 To 9
            lstbox.Items.Add(costofsports(0, row))
        Next


    End Sub