Дипломная работа: Решение задач с помощью современых компьютерных технологий

Do Until условие

конструкции

Loop

и

Do

конструкции

Loop Until условие

Пример использования конструкции приведен ниже.

nCounter = 2

Do While nCounter < 10

nDecades(nCounter) = nCounter * 2

nCounter = nCounter * 2

Loop

ПРИЛОЖЕНИЕ А

Листинг программы 1

'Программа написана на VBA Благиревым Артемом Михайловичем гр.ПО - 03в

'Донецкий Институт Искусственного Интеллекта - 2004г

Private Sub CommandButton1_Click()

Dim a(10, 10) As Single

Dim i, j, k, d, m, n, max As Integer

Dim s(10) As Single

For i = 1 To 10

For j = 1 To 10

For k = i + 1 To 10

Open "C:\base.dat" For Input As #1

Do While Not EOF(1)

max = 0

Input #1, a(i, j)