Введение в информатику. Хамухин А.А. - 203 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

202
Worksheets(1).Range("J14").Value = Kn
Worksheets(1).Range("K14").Value = Kb
Worksheets(1).Range("I20").Value = Kg + Kn + Kb
Worksheets(1).Range("J16").Value = Kn * Worksheets(1).Range("A17").Value
‘----- 8 цикл: выведем массу каждого компонента нефти в отдельном окне
For i=1 to kk
y = MsgBox(Mn(i) / 1000, 0, "Масса компонентов нефти в кг")
Next
End Sub
Sub OCHISTKA()
‘-----очистим ячейки с результатами:
‘----- 9 цикл
For i = 1 To kk
Worksheets(1).Cells(i + 2, 6).Value = “ “
Worksheets(1).Cells(i + 2, 7).ClearContents
Worksheets(1).Cells(i + 2, 8).ClearContents
Next i
Worksheets(1).Range("I14").Value = ClearContents
Worksheets(1).Range("J14").Value = ClearContents
Worksheets(1).Range("K14").Value = ClearContents
Worksheets(1).Range("I20").Value = ClearContents
End Sub
Индивидуальные задания
№
вар
Цикл
1
Цикл
2
Цикл
3
Цикл
4
Цикл
5
Цикл
6
Цикл
7
Цикл
8
Цикл
9
1
For-
Each
Do
Until-
Loop
Do
While-
Loop
For-
Next
While-
Wend
Do
Until-
Loop
For-
Each
While-
Wend
Do
While-
Loop
2
Do
While-
Loop
For-
Each
Do
Until-
Loop
Do
While-
Loop
For-
Next
While-
Wend
Do
Until-
Loop
For-
Each
While-
Wend
3
While-
Wend
Do
While-
Loop
For-
Each
Do
Until-
Loop
Do
While-
Loop
For-
Next
While-
Wend
Do
Until-
Loop
For-
Each
4
For-
Each
While-
Wend
Do
While-
Loop
For-
Next
Do
Until-
Loop
Do
While-
Loop
For-
Each
While-
Wend
Do
Until-
Loop
5
Do
Until-
Loop
For-
Each
While-
Wend
Do
While-
Loop
For-
Next
Do
Until-
Loop
Do
While-
Loop
For-
Each
While-
Wend
6
While-
Wend
Do
Until-
Loop
For-
Each
While-
Wend
Do
While-
Loop
For-
Next
Do
Until-
Loop
Do
While-
Loop
For-
Each
7
For-
Each
While-
Wend
Do
Until-
For-
Next
While-
Wend
Do
While-
For-
Each
Do
Until-
Do
While-

Страницы