Private Sub Command1_Click() 就知道有一个海伦公式，不知道怎么描述Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim p As Single, s As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)p=(a+b+c)/2s=Spr(p*(p-a)*(p-b)*(p-c))Text4.Text = ...
|