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

Form1.MSFlexGrid1. Row = i + 1

Form1.MSFlexGrid1. Text = Name_Tovar(i)

Form1.MSFlexGrid1. Col = 1

Form1.MSFlexGrid1. Text = Format$(Price(i), «#0.00»)

Next i

End Sub

Public Sub MyChart()

' процедура отображения табличной информации на диаграмме

Dim i As Integer

Form1.MSChart1. ColumnCount = 1

Form1.MSChart1. RowCount = 8

For i = 1 To 8

Form1.MSChart1. Row = i

Form1.MSChart1. Data = Price (i – 1)

Form1.MSChart1. RowLabel = Name_Tovar (i – 1)

Next i

End Sub

Public Sub EditGridData()

' окно редактирования стоимости товара

Dim s As String

If Form1.MSFlexGrid1. Col = 1 Then

s = InputBox («Введите новую стоимость для товара» + Name_Tovar (Form1.MSFlexGrid1. Row – 1), «Изменениестоимости», Form1.MSFlexGrid1. Text)

If (s <> Form1.MSFlexGrid1. Text) And (Len(s) <> 0) Then

Form1.MSFlexGrid1. Text = s

End If

End If

End Sub

Public Sub UpdateChart()

' процедура выводит информацию о свободном месте на диске в mschart1