Контрольная работа: Диаграммы в Visual Basic

Dim a As Variant ' переменная для хранения списка названий

a = Array («Торт Пражский», «Крупа гречневая», «Кофе ЧИБО», «Вафли шоколадные», «Бананы», «Яблоки», «Конфеты Коркунов», «Сосиски молочные», «Всего»)

' настройки таблицы

Form1.MSFlexGrid1. ColWidth(0) = 4200

Form1.MSFlexGrid1. ColWidth(1) = 3000

Form1.MSFlexGrid1. Col = 0

Form1.MSFlexGrid1. Row = 0

Form1.MSFlexGrid1. Text = «Товар»

Form1.MSFlexGrid1. Col = 1

Form1.MSFlexGrid1. Text = «Стоимость, руб.»

' заполнение данными

For i = 0 To 8

Form1.MSFlexGrid1. Col = 0

Form1.MSFlexGrid1. Row = i + 1

Form1.MSFlexGrid1. Text = a(i)

Name_Tovar(i) = a(i)

Next i

' настройка диаграммы

Form1.MSChart1. Title = «Диаграмма стоимости товаров»

Form1.MSChart1. Plot. Axis(0).AxisTitle. Text = «Товары»

Form1.MSChart1. Plot. Axis(1).AxisTitle. Text = «Цена»

End Sub

Public Sub Column_Data()

' процедура заполняет графу цен случайными значениями

Dim i As Integer

Dim k As Integer

Form1.MSFlexGrid1. Col = 1

Randomize

For i = 1 To 8