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

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

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

    

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

        Dim S 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