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

Private Sub Command2_Click()

' упорядочиваем список товаров по стоимости

Sort

End Sub

Private Sub Command3_Click()

' отображаем таблицу в диаграмме

MyChart

Command5. Enabled = True

End Sub

Private Sub Command4_Click()

' генерируем случайные цены

Column_Data

End Sub

Private Sub Command5_Click()

' показываем диалог сохранения диаграммы

Dialog. Show 1

End Sub

Private Sub Command6_Click()

' завершаем работу приложения

End

EndSub

PrivateSubForm_Load()

' заполняем таблицу и выравниваем форму по центру экрана

Dim w, h As Integer

Column_Name

Column_Data

h = Screen. Height

w = Screen. Width

Form1. Left = (w – Form1. Width) / 2