VBNet - Форум - Замена цикла со счетчиком на цикл с условием

Вопрос: Замена цикла со счетчиком на цикл с условием Добавлено: 12.05.09 15:50

Автор вопроса: mensab

Сама программа выглядит так:
Sub kyrsovoe_zadanie_2()

Dim benzin(10, 6) As Integer
Dim cena(10, 6) As Double
Dim nach_cena(10) As Double
Dim benzin_ob(10) As Integer
Dim cena_ob(10) As Integer
Dim max As Integer
Dim Index As Integer
Dim i, j As Integer

For i = 1 To 10
For j = 1 To 6
benzin(i, j) = Cells(i + 2, j + 3)
benzin_ob(i) = benzin_ob(i) + benzin(i, j)
Next j
Cells(i + 2, 16) = benzin_ob(i)
Next i

For i = 1 To 10
nach_cena(i) = Cells(2 + i, 3)
For j = 1 To 6
Cells(i + 2, j + 3) = benzin(i, j)

Cells(i + 2, j + 9) = benzin(i, j) * nach_cena(i)
cena(i, j) = Cells(i + 2, j + 9)
cena_ob(i) = cena_ob(i) + cena(i, j)
Next j
Cells(i + 2, 17) = cena_ob(i)
Next i

i = 1
Do
If max <= cena_ob(i) Then
max = cena_ob(i)
Index = i
End If
i = i + 1
Loop Until i = 11
Cells(13, 17) = Cells(2 + Index, 1)
End Sub

Необходимо использовать 5 видов циклов (PS на два варианта у меня мозгов хватило)...остались еще циклы с пост и предусловием...
ООООЧЕНЬ НУЖНА ПОМОЩЬ!!! заранее спасибо!
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245	Профиль \| Цитата \| #1	Добавлено: 12.05.09 16:40
	Эмм. может быть Do While i>10 i=i+1 loop Do Until i<10 i=i+1 loop Do i = i + 1 if i > 10 then Exit Do loop Ответить

Номер ответа: 2 Автор ответа: mensab Вопросов: 2 Ответов: 1	Профиль \| Цитата \| #2	Добавлено: 12.05.09 16:49
	да. но что на что нужно заменить я не могу додуматься Ответить

Номер ответа: 3 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245	Профиль \| Цитата \| #3	Добавлено: 12.05.09 17:25
	Было бы неплохо, если бы ты скинул полностью задание, потому что абсолютно непонятно чем ты заполняешь массивы, откуда ты эти значения берешь, да и что у тебя в итоге должно получиться (Цель программы). Ответить

Страница: 1 |