Нужно заполнить массив 10 случайными числами и построить график - VB

Узнай цену своей работы

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

Заполните массив десятью случайными целыми числами, каждое из которых лежит в пределах от 50 до 200, и выведите на экран их численные значения, а так же их графическое представление в виде вертикальных закрашенных прямоугольников (типа столбчатая диаграмма) шириной 30 пикселов и высотой, соответствующей их значению. Значение чисел выводятся внутри соответствующих прямоугольников.

Решение задачи: «Нужно заполнить массив 10 случайными числами и построить график»

textual
Листинг программы
Private Sub Form_Load()
AutoRedraw = True
FillStyle = 0
ScaleMode = 3
Dim a(9) As Integer
Randomize
For i = 0 To 9
  a(i) = Int(Rnd * 151 + 50)
  FillColor = QBColor(i + 1)
  Line (i * 30 + 30, a(i))-(i * 30, 0), , B
  Print a(i)
Next
End Sub

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы