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

Form1.MSFlexGrid1. Row = i

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

Next i

End Sub

Public Sub Sort()

' сортировка списка по-возрастанию цены

Dim i, k As Integer

Dim R As String ' временная переменная для хранения названия товара

Dim P As Currency ' временная переменная для хранения цены товара

For i = 0 To 7

Form1.MSFlexGrid1. Col = 1

Form1.MSFlexGrid1. Row = i + 1

Price(i) = Val (Form1.MSFlexGrid1. Text)

Next i

' сортировка

For k = 0 To 7

For i = 0 To 6

If Price(i) > Price (i + 1) Then

R = Name_Tovar(i)

P = Price(i)

Price(i) = Price (i + 1)

Name_Tovar(i) = Name_Tovar (i + 1)

Name_Tovar (i + 1) = R

Price (i + 1) = P

End If

Next i

Next k

' перезаполнение таблицы

For i = 0 To 7