<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<style type="text/css">
body{letter-spacing:18px;}
</style>
<body>
<%
for i=0 to 9
'第一行时的情况
if i=0 then
for j=1 to 10
if j=10 then
response.Write "0<br>"
else
response.Write j
end if
next
'第二至十行时的情况
else
'其他行情况
for k=1 to 10
'第一列的情况
if k=1 then
if i=9 then
response.Write "0"
else
response.Write i+1
end if
'第十列的情况
else if k=10 then
response.Write "*<br>"
'第二列以后的情况
else
response.Write "*"
end if
end if
next
end if
next
%>
</body>
</html>
[此贴子已经被作者于2007-5-10 13:14:50编辑过]
