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

Private Sub Command1_Click()
If Len(Text1.Text) <> 4 Then
MsgBox "код должен содержать ровно 4 цифры" & vbCrLf & _
       "пoследняя цифра может быть только 1,2,3 или 4"
Exit Sub
Else
  k = Val(Right(Text1.Text, 1))
    If k < 1 Or k > 4 Then
       MsgBox "код не распознан" & vbCrLf & _
       "пoследняя цифра может быть только 1,2,3 или 4"
       Exit Sub
    End If
Select Case k
Case 1
otd = "1"
Case 2
otd = "2"
Case 3
otd = "3"
Case 4
otd = "4"
End Select
MsgBox "otdel: " & otd
End If
End Sub
 
Private Sub Form_Load()
Text1.MaxLength = 4
End Sub

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

Private Sub Command1_Click()
Dim x, f As Double, vf As String
x = Val(Replace(Text1.Text, ",", "."))
Text1.Text = x
Select Case x
Case Is < -0.5
vf = "y=x"
f = x
Case Is < 0
vf = "y=2x+1"
f = 2 * x + 1
Case Is < 1
vf = "||x|-1|"
f = Abs(Abs(x) - 1)
Case Else
vf = "|x^2-1|"
f = Abs(x ^ 2 - 1)
End Select
MsgBox "для х = " & x & vbCrLf & _
       "выражение для вычислений:  " & vf & vbCrLf & _
       "значение функции:   f(" & x & ") = " & f
End Sub
 
Private Sub Form_Load() 'не объязательно
Picture1.AutoRedraw = True
Picture1.Scale (-2, -6)-(3, 3)
Picture1.Line (-2, 0)-(3, 0)
Picture1.Line (0, -6)-(0, 3)
  
  Picture1.Line (-2, 2)-(-0.5, 0.5)
     Picture1.Line (-0.5, 0.5)-(0, -1)
       Picture1.Line (0, -1)-(1, 0)
          For i = 1 To 3 Step 0.01
             Picture1.PSet (i, -Abs(i ^ 2 - 1))
          Next i
For i = -2 To 3
Picture1.Line (i, 0)-(i, 0.2)
Picture1.Print i
Next i
For i = -6 To 3
If i <> 0 Then
Picture1.Line (0, i)-(0.2, i)
Picture1.Print i
End If
Next i
End Sub