1、Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "......
