Суббота, 21.09.2019, 11:01
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Приложение: 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

занятие 32

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz