Столбчатые диаграммы последовательности случайных чисел

Столбчатые диаграммы последовательности случайных чисел.
Задание №1. Дана последовательность 32 случайных
чисел из отрезка [100,2000]. Построить гистограмму
(столбчатую диаграмму) данной последовательности,
т.е. изобразить каждое случайное число в виде
прямоугольника определенной (равной для всех)
ширины и высоты равной значению этого числа.
После выполнения данной программы
на экране появится следующий рисунок:→
...
X+170,2000-A
2
Для данной программы произведем некоторые
расчеты. Нам в этом поможет следующий рисунок 
A
Предположим, что координаты 1-й точки - это X,2000
(Х, 2000), для 2-й - (Х+170,2000-А), где 170 - ширина
1
3
прямоугольника. Данное число получено следующим
образом: примем, что ширина формы будет немного больше 6400. Всего
необходимо построить 32 прямоугольника (6400:32=200), если их строить без
промежутков, то 200 - это ширина прямоугольника, если принять 30 twp
промежутком между прямоугольниками, то и получится 170. А - значение
случайного числа. Т.е. прямоугольник будет нарисован так:
LINE(X,2000)-(X+170, 2000-A),,B
Для того, чтобы нарисовать следующий прямоугольник, необходимо увеличить Х
на 200 (Х=Х+200). Учитывая все проведенные расчеты, наша программа примет
следующий вид:
Private Sub Form_Load()
AutoRedraw = True
End Sub
Private Sub Command1_Click()
Width = 6600
‘больше на 200, чтобы последний поместился на форму
Cls
FillStyle = 0
FillColor = RGB(200, 200, 200)
X=0
‘построение диаграммы начинается от левого края формы
For i = 1 To 32
a = Rnd * 1900 + 100
Line (X, 2000)-(X + 170, 2000-a),,B
X = X + 200
Next i
End Sub
Задание №2.
Задание №3.
Задание №4.
...
...
...
Задание №5. Дана последовательность 30 случайных чисел из отрезка
[300,2500]. Построить гистограмму данной последовательности, изобразив на
ней нечетные (по номеру) – красными с закраской стилем – 4, четные (по
номеру) – зелеными с закраской стилем – 5.
Private Sub Command2_Click()
Width = 6200
Cls
X=0
For i = 1 To 30
a = Rnd * 2200 + 300
If i Mod 2 <> 0 Then
FillStyle = 4
FillColor = RGB(255, 0, 0)
Line (X, 2500)-(X + 170, 2500 - a), , B
End If
If i Mod 2 = 0 Then
FillStyle = 5
FillColor = RGB(0, 255, 0)
Line (X, 2500)-(X + 170, 2500 - a), , B
End If
X = X + 200
Next i
End Sub
Задание №6. Дана последовательность 40 случайных чисел из отрезка
[500,2400]. Построить гистограмму данной последовательности, изобразив на
ней нечетные (по значению) – синими с закраской стилем – 6, четные (по
значению) – желтыми с закраской стилем – 7 (см. рис.).