Приложение: do until_loop2.rar
do until_loop 3.rar
Занятие 31.2. Циклы в алгоритмах и в программах. Примеры.
Пример 1. (вариант а)
Блок - схема проекта Интерфейс проекта
Программный код проекта
Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click
Dim text As String
Dim n As Short
Dim a As Object
Dim s As Single
n = 0
s = 0
text = InputBox("введите следующее число и щелкните на кн Ok", "ввод очередного числа")
Do Until text = ""
a = Val(text)
n = n + 1
s = s + a
ComboBox1.Items.Add(text)
ComboBox2.Items.Add(Str(n))
ComboBox3.Items.Add(Str(Format(s / n, "##.###")))
text = InputBox("введите следующее число и щелкните на кн Ok", "ввод очередного числа")
Loop
End Sub
Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button3.Click
ComboBox1.Items.Clear()
ComboBox2.Items.Clear()
ComboBox3.Items.Clear()
End Sub
Пример 1. (вариант б)
Интерфейс проекта
Программный код
Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click
Dim text As String
Dim n As Short
Dim a, s, c As Single
n = 0
s = 0
text = InputBox("введите число и щелкните на кн Ok", "ввод числа")
Do Until text = "" ' условие выхода из цикл
a = Val(text)
n = n + 1
s = s + a
c = s / n
ListBox1.Items.Add(n)
ListBox2.Items.Add(a)
ListBox3.Items.Add(s)
ListBox4.Items.Add(Format(c, " ###.### "))
text = InputBox("введите следующее число и щелкните на кн Ok", "ввод очередного числа")
Loop
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
End Sub
