2.Напишите алгоритм построения столбиковой диаграммы.

Option Explicit

Option Base 1 ‘ нумерация элементов массива наинается с единицы

Dim A() As Single

Private Sub Form_Click()

Dim i As Integer, N As Integer, S As Single, Bd As Single, Hd As Single

Dim max As Single, dx As Single, Mx As Single, My As Single

Dim cx As Single, cy As Single

Label1.Visible = False

max = -1E+38

N = Val(InputBox("Укажите число параметров"))

ReDim A(N) As Single

max = -1E+38

Bd = 100: Mx = 2 * Bd

For i = 1 To N

A(i) = Val(InputBox("Введите значение " & Str$(i) & "параметра"))

If A(i) > max Then max = A(i)

Next i

Hd = max: My = 2 * Hd

Me.Scale (0, My)-(Mx, 0)

cx = Bd / 2: cy = Hd / 2

dx = Bd / (N + 1)'Рисуем оси координат'

Line (cx, cy)-(cx, cy + Hd), vbBlue ' вертикальная ось

Line (cx, cy)-(cx + Bd, cy), vbBlue 'горизонтальная ось

For i = 1 To N

Line (cx + (i - 1) * dx, cy)-(cx + i * dx, cy + A(i)), QBColor(i), BF

Next I

End Sub

3.Напишите алгоритм построения круговой диаграммы.

Option Explicit

Const Pi As Single = 3.14159

Dim B() As Single

Private Sub Form_Click()

Dim n As Integer, S As Single, Da As Single

Dim f1 As Single, f2 As Single, f3 As Single

Dim R As Single, i As Integer, k As Integer

Dim x As Single, y As Single ' x и y - координаты центра

Cls

n = Val(InputBox("укажите число секторов"))

R = Val(InputBox("Укажите значение радиуса круга")) ' масштабирование формы

Me.Scale (0, 0)-(4 * R, 4 * R)

x = 2 * R: y = 2 * R ‘ поместим круг в центре формы

ReDim B(n)' Ввод данных и вычисление суммы

S = 0

For i = 1 To n

B(i) = Val(InputBox("Введите значение " & Str$(i) & "параметра"))

S = S + B(i)

Next i

Da = 360 / S

k = 0: f1 = 0' Рисование секторов

FillStyle = vbSolid ' сплошное закрашивание

For i = 1 To n

f2 = B(i) * Da

f3 = f1 + f2

If k > 15 Then k = 0

FillColor = QBColor(k) ' цвет сектора

Circle (x, y), R, QBColor(k), -f1 / 180 * Pi, -f3 / 180 * Pi

k = k + 1

f1 = f3

Next i

End Sub

4.Напишите программу построения осей координат.

Line (cx, cy)-(cx, cy+Hd), vbBlue 'вертикальная ось

Line (cx, cy)-(cx + Bd, cy), vbBlue 'горизонтальная ось

5. Какие свойства графических объектов влияют на работу графических методов?

DrawMode-определяет, как рисующий цвет взаимодействует с уже находящимся в объекте цветами.

DrawStyle-определяет узор для рисования.

DrawWidth-устанавливает толщину линий и границу объектов, например окружностей.

FillColor-определяет цвет, которым заполняется прямоугольник или круг.

FillStyle-определяет узор, используемый для заполнения прямоугольника или круга.

FillColor-определяет цвет рисуемых объектов графическими методами, если цвет не был указан при их вызове.

AutoRedraw- определяет будет ли результат работы графических методов автоматически обновляться в окне, если оно скрыто (только для Form и PictureBox)

1

2

3