<html>
<head>
<title>选择结构程序举例2</title>
<script language = "vbscript">
sub ShowMessage
dim x,y
x = inputbox("请输入x的值:")
if not isnumeric(x) then
msgbox "输入错误,请输入数字 ！"
else if x > 0 then
y = x
else if x < 0 then
y = -x
else
y = 0
end if
if isnumeric(x) then
msgbox "x的值为"& x & ",y的值为" & y
end if
end sub
call ShowMessage
</script>
</head>
<body>
。。。
</body>
</html>
------解决方案--------------------
其实，些什么都行。
------解决方案--------------------