Расчёт частотности случайных чисел - VB

Формулировка задачи:

Сгенерировать последовательность из 1000 случайных целых чисел в диапазоне [0, 10]. На основе полученных данных рассчитать частоту повторения каждого из чисел и построить: а) гистограмму; б) точечную гистограмму; в) кусочно-линейный график; г) круговую диаграмму; д) круговую диаграмму с разнесенными секторами.

Решение задачи: «Расчёт частотности случайных чисел»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Main "Gist"
End Sub
 
Sub Main(ByVal S As String)
    Dim Arr(1 To 1000) As Byte, i As Integer
    Dim nArr(10) As Integer, max As Integer, min As Integer
    Randomize
    List1.Clear
    Picture1.Cls
    For i = 1 To 1000
        Arr(i) = Int(Rnd * 11)
        List1.AddItem "Arr(" & i & ") = " & Arr(i)
        nArr(Arr(i)) = nArr(Arr(i)) + 1
    Next i
    min = 1000
    For i = 0 To 10
        If nArr(i) > max Then max = nArr(i)
        If nArr(i) < min Then min = nArr(i)
    Next i
    Select Case S
           Case "Gist"
                Picture1.Scale (0, max + 10)-(111, 0)
                For i = 0 To 10
                    Picture1.Line (10 * i + 1, 8)-(10 * i + 10, nArr(i)), RGB((nArr(i) - min) * 20, max - nArr(i), (nArr(i) - min) * 5), BF
                    Picture1.CurrentX = Picture1.CurrentX - 8
                    Picture1.CurrentY = Picture1.CurrentY + 8
                    Picture1.Print nArr(i)
                    Picture1.CurrentY = 8: Picture1.CurrentX = 10 * i + 4
                    Picture1.Print i
                Next i
    End Select
End Sub
                        