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

4. Исходный код основных модулей программы

Ниже представлен код модуля, содержащего все процедуры, используемые в программе:

Option Explicit

' импортированныефункции

Private Declare Function PathFileExists Lib «shlwapi.dll» Alias «PathFileExistsA» _

(ByVal pszPath As String) As Long

' переменные уровня проекта

Public Price(8) As Currency ' Массив цен на продукты

Public Name_Tovar(8) As String ' Массивназванийпродуктов

Public Sub Summa()

' суммаэлементовсписка

Dim i As Integer

Dim Sum As Currency

Sum = 0

' цикл подсчета суммы стоимости всех товаров

For i = 0 To 7

Form1.MSFlexGrid1. Col = 1

Form1.MSFlexGrid1. Row = i + 1

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

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

Sum = Sum + Price(i)

Nexti

' вывод суммы в строку «Всего»

Form1.MSFlexGrid1. Col = 1

Form1.MSFlexGrid1. Row = 9

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

End Sub

PublicSubColumn_Name()

' процедура заполняет таблицу информацией о продуктах