<% option explicit      '放在程序首行,强制变量声明 %>
<html>
<head>
	<title>求m和n的平方和示例</title>
</head>
<body>
	<%
	dim m,n,sum        '实际参数m,n和sum都是全局变量
	m=3                '给m赋值
	n=4                '给n赋值
	call pingfanghe(m,n,sum)          '调用子程序,显示结果
	response.write "m和n的平方和是：" & cstr(sum)
	'下面是子程序,用来计算a和b的和
	sub pingfanghe (a,b,s)   'a,b和s是形式参数
		s=a^2+b^2  
	end sub
	%>   
</body>
</html>
