Dim a(100), max, imax, min, imin, ky, kx

: Корректный выход (кнопка «Выход»).

Private Sub Command2_Click()

Form3.Show

End Sub

: Очистка PictureBox (кнопка «Очистка»).

Private Sub Command3_Click()

Picture1.Cls

End Sub

: Создание массива с исходными данными (кнопка «Создать массив»).

Например, задан ряд данных – массив а(і) где іÎ[1,n], n=4.

Сформировать массив с выводом его на форму.

Private Sub Command4_Click()

n = 4

a(1) = 200

a(2) = 300

a(3) = 500

a(4) = 200

Print a(1), a(2), a(3), a(4)

End Sub

: Установка системы координат (кнопка «Установка шкалы»).

Private Sub Command5_Click()

Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer

'If Text1.Text <> 0 And Text2.Text <> 0 And Text3.Text <> 0 And Text4.Text <> 0 Then

ky = Picture1.Height / (Text2.Text - Text4.Text)

Print "Коэффициент масштабирования по У", ky

kx = Picture1.Width / (Text3.Text - Text1.Text)

Print "Коэффициент масштабирования по У", kx

x1 = Val(Text1.Text) * kx

x2 = Val(Text3.Text) * kx

y1 = Val(Text2.Text) * ky

y2 = Val(Text4.Text) * ky '+ min

Picture1.Scale (x1, y1)-(x2, y2)

Picture1.DrawWidth = 1

Picture1.Line (x1, 0)-(x2 - 100, 0) 'îñü X

Picture1.Print "X"

Picture1.Line (0, y1)-(0, y2) 'îñü Y

Picture1.PSet (10, y1 - 50)

Picture1.Print "Y"

'End If

Picture1.DrawWidth = 3

Picture1.PSet (0, 0)

End Sub

: Изменение системы координат соответственно данным (кнопка «Переустановка шкалы, соответственно массиву»).

Private Sub Command6_Click()

Рекомендация Определите наибольшее и наименьшее значения элементов массива и их порядковые номера.

max = a(1)

imax = 1

min = a(1)

imin = 1

For i = 2 To n

If a(i) > max Then max = a(i): imax = i

If a(i) < min Then min = a(i): imin = i

Next i

If max < 0 Then max = 0

Text5.Text = max

Text6.Text = imax

If min > 0 Then min = 0

Text7.Text = min

Text8.Text = imin

'Print "Разница между максимальным и минимальным элементами составила ", max - min

Picture1.Height = 4000

Picture1.Height = 4000

ky = Picture1.Height / (max - min)

Print "Коэффициент масштабирования по У", ky

Picture1.Width = 4000

kx = Picture1.Width / n

Print "Коэффициент масштабирования по У", kx

Text1.Text = 0

Text3.Text = n

Text2.Text = max

Text4.Text = min

End Sub

: Построение диаграммы (кнопка «Построить диаграмму»).

Наибольшее данное отобразить красным цветом, остальные – синим

Private Sub Command1_Click()

For i = 1 To n

'If i = imax Then Picture1.sColor = vbRed Else Picture1.sColor = vbBlue

Picture1.Line (kx * (i - 1), 0)-(kx * i, a(i) * ky),, B

Next i

End Sub