Нужно заполнить массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
