Вычислить значение выражения - VB (59625)

Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single
Dim Z As Single
Dim min As Single, max As Single
 
A = Val(InputBox("A=?"))
B = Val(InputBox("B=?"))
C = Val(InputBox("C=?"))
 
If A + B - C >= 0 Then
   If A - 1 < B - C Then min = A - 1 Else min = B - C
   If A > C Then max = A Else max = C
   Z = min + max
Else
   If A < B Then min = A Else min = B
   If min > C - 1 Then min = C - 1
   Z = min + A ^ (3 / 2)
End If
MsgBox "Z(" & A & "," & B & "," & C & ")=" & Z
 
End Sub