Гистограмма

 Public Class Form1
    Dim a(), k, x, y As Integer
    Dim h, n, int, max, min, dl As Double
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        n = TextBox1.Text 'кол-во чисел
        int = TextBox2.Text 'кол-во интервалов
        ReDim a(n)
        For i = 1 To n
            a(i) = CInt(Rnd() * 10)
            Label5.Text = Label5.Text + Str(a(i))
        Next
        max = a(1)
        min = a(1)
        For i = 1 To n
            If max < a(i) Then
                max = a(i)
            End If
            If min > a(i) Then
                min = a(i)
            End If
        Next
        dl = (max - min) / int 'находим длину интервала
        x = 1
        For i = 1 To n
            Chart1.Series(0).Points.AddXY(dl * x, 0) ' задает столбик
            x = x + 1
        Next
        k = 0
        For j = 1 To n '1-ый интервал
            If a(j) <= dl Then
                k = k + 1
            End If
            Chart1.Series(0).Points.AddXY(dl, k) ' задает столбик
        Next
        
    End Sub
 
End Class