Занятие 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
| 
