Membuat Program Phytagoras pada Pemrograman Visual Foxpro

Cmd Sisi Miring:

a=VAL(thisform.txta.Value)
b=VAL(thisform.txtb.Value)
c=VAL(thisform.txtc.Value)
hasil= (b^2)+(c^2)
hasil= SQRT(hasil)
thisform.txthasil.Value=hasil