Не пойму в чем ошибка(( - VB

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

Помогите с заданием плиз, вот собственно задание: я написал код, но он не хочет работать, при чем ошибка появляется после введения корней...
Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single
Dim J As Single, D As Single, K As Single
Dim P As Single, S As Single
 
A = Val(InputBox("вводим A"))
B = Val(InputBox("вводим B"))
C = Val(InputBox("вводим C"))
 
P = (A + B + C) / 2
J = 2 * Sqr(P - A)(P - B)(P - C)
S = J / A
D = J / B
K = J / C
 
 
 
Label1.Caption = S
Label2.Caption = D
Label3.Caption = K
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
как бы я не менял, например: "J = 2 * Sqr((P - A)(P - B)(P - C))" или sqr на sqrt и тд и тп не помогает(... вот ошибка: заранее благодарен =)


textual

Код к задаче: «Не пойму в чем ошибка(( - VB»

J = 2 * Sqr(P * (P - A) * (P - B) * (P - C))
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.667 из 5

Источник