two * H) / 1000 * H / 1000Р temp(6) = "M3"Р Case Is = "锥形"Р Sone = L / 1000 * B / 1000Р temp(1) = " S1=" & SoneР Stwo = one / 1000 * two / 1000Р temp(2) = " S2=" & StwoР temp(3) = ""Р temp(4) = " 上长=" & one & " 下宽=" & twoР temp(5) = (Sone + Stwo + Sqr(Sone * Stwo)) * H / 3000Р temp(6) = "M3"Р Case Is = "放坡锥形"Р Sone = (L + one * 2) / 1000 * (B + one * 2) / 1000Р temp(1) = " S1=" & SoneР Stwo = (L + one * 2 + two * H * 2) / 1000 * (B + one * 2 + two * H * 2) / 1000Р temp(2) = " S2=" & StwoР temp(3) = ""Р temp(4) = " 工作面=" & one & " 坡度=" & twoР temp(5) = (Sone + Stwo + Sqr(Sone * Stwo)) * H / 3000Р temp(6) = "M3"Р Case Is = "面积锥形"Р temp(1) = ""Р temp(2) = ""Р temp(3) = ""Р temp(4) = " S1=" & one & " S2=" & twoР temp(5) = (one + two + Sqr(one * two)) * H / 3000Р temp(6) = "M3"Р Case Is = "柱钢筋"