Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

For i = 1 To y

For j = 1 To r

x (i, j) = Sheets (L). Cells (i + S, j)

Next j

Next i

End Sub

' Подпрограмма "VIVOD":

Sub VIVOD (L, x, y, r, S)

For i = 1 To y

For j = 1 To r

Sheets (L). Cells (i + S, j) = x (i, j)

Next j

Next i

End Sub

Рис.3 Программа применения процедур ввода и вывода

6. Дозапись исходных данных

Для реализации действий, используется оператор Slect Case.

Синтаксис:

Slect Case < проверяемое выражение>

Case < значении, список значений, диапазон значений>

……………………

<инструкции>

Case < значении, список значений, диапазон значений>

<инструкции>

……………………

<инструкции>