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


Меню сайта


Статистика

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


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


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

Занятие 24.2. Примеры реализации ветвления

Пример 4(приложение: broker.rar)

Блок-схема проекта.                                             Интерфейс проекта

    

Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) HandlesButton1.Click

        Dim As Single
        Dim P As Single
        S = Val(Text1.Text)
        If S <= 150000 Then
            P = S * 0.05
        ElseIf S >= 500000 Then
            P = S * 0.03
        Else
            P = S * 0.04
        End If
        Text2.Text = Str(CDbl(VB6.Format(P, "#.000"))) & "тыс.руб"

    End Sub

Пример 5(приложение:  credni ball1.rar)
Интерфейс проекта

  

Программный код

Вариант 1 

Private Sub Button1_Click(...) Handles Button1.Click

        Dim m, r, d As Single
        Dim z As Single

        r = (Val(TextBox1.Text))

        m = (Val(TextBox2.Text))

        d = (Val(TextBox3.Text))

        z = ((r + m + d) / 3)

        Label5.Text = Str(z)

        If r > z Then Label6.Text = "Отличный результат"

        If r < z Then Label6.Text = "Продолжайте тренироваться"

        If r = z Then Label6.Text = "Молодец"

        If m > z Then Label7.Text = "Отличный результат"

        If m < z Then Label7.Text = "Продолжайте тренироваться"

        If m = z Then Label7.Text = "Молодец"

        If d > z Then Label8.Text = "Отличный результат"

        If d < z Then Label8.Text = "Продолжайте тренироваться"

        If d = z Then Label8.Text = "Молодец"

    End Sub

  

     Вариант 2    (приложение: credni ball2.rar)
 

Private Sub Button1_Click(...) Handles Button1.Click
        Dim m, r, d As Single
        Dim z As Single
        r = (Val(TexBoxt1.Text))

        m = (Val(TextBox2.Text))
        d = (Val(TextBox3.Text))
        z = ((r + m + d) / 3)
        Label5.Text = Str(z)
        If r > z Then
            Label6.Text = "Отличный результат"

        ElseIf r < z Then
            Label6.Text = "Продолжайте тренироваться"
        Else : Label6.Text = "Молодец"
        End If

        If m > z Then
            Label7.Text = "Отличный результат"
        ElseIf m < z Then
            Label7.Text = "Продолжайте тренироваться"
        Else : Label7.Text = "Молодец"
        End If

        If d > z Then
            Label8.Text = "Отличный результат"

        ElseIf d < z Then
            Label8.Text = "Продолжайте тренироваться"
 End If
    End Sub

Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

            Label6.Text = ""  :     Label7.Text = "" :      Label5.Text = "":   Label8.Text = ""

            TextBox3.Text = "" :  TextBox2.Text = "" :       TextBox1.Text = "":    TextBox1.Focus()

      End Sub

 

Пример 6. Проект "Кафе" (приложениеПроект Кафе.rar)

Интерфейс проекта                                                                  

Программный код

 Private Sub Button1_Click(...) Handles Button1.Click
        Dim cof, pir As String
        If RadioButton1.Checked Then
            cof = RadioButton1.Text
        ElseIf RadioButton2.Checked Then
            cof = RadioButton2.Text
        Else
            cof = RadioButton3.Text
        End If

        If RadioButton4.Checked Then
            pir = RadioButton4.Text
        ElseIf RadioButton5.Checked Then
            pir = RadioButton5.Text
        Else
            pir = RadioButton6.Text
        End If
        MsgBox(cof & " и " & pir, 64, "Ваш выбор")

 

Задания.

Задание 1

В компьютер вводятся три числа.Выяснить какое из трех чисел меньше.

 

Задание 2

Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Николая – «Привет», Василия – «Здорово», Джона – «Hello», а остальных – «Здравствуйте». Для Василия, кроме этого, он красит форму в зеленый цвет.


Задание 3

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков образовать треугольник.

Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков. 

Задание 4.

В компьютер вводятся два числа. Если первое больше второго, то напечатать их сумму, иначе – произведение. После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.

Занятие 25

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

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