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