用VBScript脚本语言,编一程序:任意输入边长,求正方形的面积。 用VBScript脚本语言,编一程序:任意输入边

<script language="vbscript">
Input = InputBox("请输入边长")
function area(a)
if isNumeric(a)=true then
msgBox("面积大小为："&a*a)
else
msgBox("你输入的值不为数字")
end if
end function
area(Input)
</script>

n=inputbox("","")
msgbox n^2