End Sub. Private Sub TextBox1_Change()

Private Sub TextBox1_Change()

num1 = TextBox1.Value

End Sub

Private Sub TextBox2_Change()

num2 = TextBox2.Value

End Sub

Private Sub UserForm_Click()

End Su b

XI. Составить программу, находящую максимальное число из трех заданных.

Private Sub CommandButton1_Click()

Dim n1, n2, n3 As Integer

Dim max As Integer

n1 = TextBox1.Value

n2 = TextBox2.Value

n3 = TextBox3.Value

max = n1

If n2 > max Then max = n2

If n3 > max Then max = n3

MsgBox max

End Sub

Private Sub TextBox1_Change()

n1 = TextBox1.Value

End Sub

Private Sub TextBox2_Change()

n2 = TextBox2.Value

End Sub

Private Sub TextBox3_Change()

n3 = TextBox3.Value

End Sub

Private Sub UserForm_Click()

End Sub

XII. Начертите блок-схему, реализующую следующий словесный алгоритм: ввести два целых положительных числа. Если первое из чисел окажется больше второго, найти среднее арифметическое этих чисел, в иной ситуации найти сумму натурального ряда чисел, последним из которых является второе число. Написать программу, реализующую этот алгоритм

Private Sub CommandButton1_Click()

Dim s, n1, n2 As Integer