⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 homework.htm

📁 八皇后问题的HTML语言实现
💻 HTM
字号:
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据结构作业之&quot;八皇后问题&quot;</title>
</head>

<body bgcolor="#FFFFFF">
<div align="center"><center>

<table border="0" cellspacing="0" cellpadding="0" width="261" height="15">
  <tr>
    <td width="225"><img src="8queen.jpg" width="157" height="50"></td>
    <td width="36"><img src="Welcome.gif" width="203" height="50"></td>
  </tr>
</table>
</center></div>

<p align="center"><br>
</p>
<div align="center"><center>

<table width="400" border="1" cellspacing="0" cellpadding="0" name="table1" id="table1">
  <tr>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
  </tr>
  <tr>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
    <td><img src="none_white.gif" width="50" height="50"></td>
    <td><img src="none_black.gif" width="50" height="50"></td>
  </tr>
</table>
</center></div>

<p align="center">&nbsp;&nbsp;&nbsp;&nbsp; <input type="image" name="button1"
value="first" src="first.gif" WIDTH="40" HEIGHT="40"> &nbsp;&nbsp;&nbsp;&nbsp; <input
type="image" name="button2" value="previous" src="previours.gif" WIDTH="40" HEIGHT="40"> 
&nbsp;&nbsp;&nbsp;&nbsp; <input type="image" name="button3" value="next" src="next.gif"
WIDTH="40" HEIGHT="40"> &nbsp;&nbsp;&nbsp;&nbsp; <input type="image" name="button4"
value="last" src="last.gif" WIDTH="40" HEIGHT="40"> &nbsp;&nbsp;&nbsp;&nbsp;<script
language="vbscript">

'常量定义

dim i
i=1
dim status(8)

dim count
count=0

dim step1
step1=1

dim final(92,8)


'主函数

sub window_onload
	call xuguoxiong
end sub


'排列函数

sub xuguoxiong

dim j

for j=1 to 8
	status(i)=j

	if check()=true then

		if i=8 then
			count=count+1
			i=i-1
			
			final(count,1)=status(1)
			final(count,2)=status(2)
			final(count,3)=status(3)
			final(count,4)=status(4)
			final(count,5)=status(5)
			final(count,6)=status(6)
			final(count,7)=status(7)
			final(count,8)=status(8)

			exit sub
		
		else
			i=i+1
			call xuguoxiong

		end if

	end if

next 

i=i-1

end sub

'检验该皇后的位置是否与以前的皇后冲突

function check()

dim j
check=true

for j=1 to i-1
	if status(j)=status(i) then
		check=false
		exit function
	end if

	if abs(status(j)-status(i))=abs(j-i) then
		check=false
		exit function
	end if

next

end function


</script> </p>
<script language="vbscript">


sub button1_onclick
dim i
for i=1 to 8
	dim j

	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=none_black.gif width=50 height=50>"
	
	else
		window.table1.all(j).innerhtml="<img src=none_white.gif width=50 height=50>"

	end if

	next 

	step1=1

	for i=1 to 8
		j=final(step1,i)*2-1+i*16-16+i

		if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
			window.table1.all(j).innerhtml="<img src=queen_black.gif width=50 height=50>"
		else
			window.table1.all(j).innerhtml="<img src=queen_white.gif width=50 height=50>"
		end if

	next 

end sub


sub button4_onclick

dim i
for i=1 to 8
	dim j
	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=none_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=none_white.gif width=50 height=50>"
	end if

next

step1=92
for i=1 to 8
	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=queen_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=queen_white.gif width=50 height=50>"
	end if

next 

end sub


sub button2_onclick

dim i
for i=1 to 8
	dim j

	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=none_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=none_white.gif width=50 height=50>"
	end if

next

step1=step1-1

if step1=0 then
	step1=1
end if

for i=1 to 8
	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=queen_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=queen_white.gif width=50 height=50>"
end if

next 

end sub



sub button3_onclick

dim i
for i=1 to 8
	dim j

	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=none_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=none_white.gif width=50 height=50>"
	end if

next

step1=step1+1
if step1=93 then
	step1=92
end if

for i=1 to 8
	j=final(step1,i)*2-1+i*16-16+i

	if (final(step1,i)+i)/2=int((final(step1,i)+i)/2) then
		window.table1.all(j).innerhtml="<img src=queen_black.gif width=50 height=50>"
	else
		window.table1.all(j).innerhtml="<img src=queen_white.gif width=50 height=50>"
	end if

next 

end sub

</script>


<hr width="30%" align="center" size="3">

<p align="center"><font face="幼圆">界面设计:王念&nbsp;&nbsp;&nbsp; 程序设计:许国雄</font></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -