Начало
Команда 1
Команда 2
…
Команда N
Конец
If Условие _
Then Серия 1 _
[Else Серия 2]
For Счетчик = НачЗнач
To КонЗнач [Step шаг]
Тело цикла
Next [Счетчик]
Dim x, y As Single
Private Sub Button1_Click()
For x = -4 To 4 Step 0.5
y = x ^ 2 - x - 6
ListBox1.Items.Add(x)
ListBox2.Items.Add(y)
Next
End Sub
Do While Условие
Тело цикла
Loop
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть