Четверг, 28.03.2024, 21:32
Главная | Регистрация | Вход Приветствую Вас Гость | 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

Форма входа
Поиск
Календарь
«  Март 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

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