" exit sub end if S=sqr(l*(l-a)*(l-b)*(l-c)) print S 试一下吧 ||| 将代码直接粘贴然后运行即可 l c b ") if ubound(strcomp) =2 then n1=val(strcomp(0)) n2=val(strcomp(1)) n3=val(strcomp(3)) 判断都跟楼上差不多吧 dim strComp() as string 3分离用Split涵数 2 模式为 1 3") _ n2 as integer _ tmpValue as stringdim n1 as integer 输入可以用一次性输入 2 格式为：1 " _ n3 as integer tmpvalue=replace(inputbox("请输入三角形的三边值 现在这些对于我来说不是问题了 end if end if ||| Dim a " ") =0 then msgbox "输入格式错误"else strcomp=split(tmpvalue " ")if instr(tmpvalue " " 我在才学的时候为这个分离多个参数很是 苦恼 我这里主要是应用新的使用方法 S a=val(inputbox("请输入第一条边的长：")) b=val(inputbox("请输入第二条边的长：")) c=val(inputbox("请输入第三条边的长：")) l=(a+b+c)/2 if l<=a or l<=b or l<=c then msgbox "输入的数据不能组成三角形