Вычислить значение функции при заданном вводом значении аргумента - VB

Формулировка задачи:

Помогите пожалуйста решить ряд не сложных, как я думаю, задачек: Развилка: 1. Разработать информационную технологию, позволяющую по штрих-коду определять принадлежность товара одному из отделов про-довольственного магазина (гастрономии, бакалеи, кондитерскому, овощному)(использовать инструкцию Select Case …. End Select 2. разработать информационную технологию, позволяющую определить, какими уравнениями описывается функция в зависимости от значения аргумента. Вычислить значение функции при заданном вводом значении аргумента. Следование: 1. Разработать информационную технологию, позволяющую вычислять площадь равнобедренного треугольника, если заданы его основание и боковая сторона. Заранее вам блпгодарен!

Решение задачи: «Вычислить значение функции при заданном вводом значении аргумента»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a As Double, b As Double
a = Val(Text1.Text) 'основание
b = Val(Text2.Text) 'сторона
Text3.Text = "" 'площадь
If a > 0 And 2 * b > a Then
Text3.Text = "S= " & Round((a * Sqr(b ^ 2 - (a / 2) ^ 2)) / 2, 3) & " ед.кв"
Else
MsgBox "некорректные данные"
End If
End Sub
 
Private Sub Form_Load() 'не объязательно
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(10, 10)
Picture1.Line (2, 9)-(8, 9)
Picture1.Line (2, 9)-(5, 1)
Picture1.Line (5, 1)-(8, 9)
End Sub