代码如2113下: dim a!b!c!s!p!a=inputbox("请输5261入第一条边长4102") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的1653面积是;s end if 扩展资...
代码如下: dim a!b!c!s!p!a=inputbox("请输入第一条边长") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的面积是;s end if 扩展资料: 语言缺点: v**ual ...