用回溯算法实现从题库中随机抽取一题或多题组成规定分数的试卷

最新推荐文章于 2023-05-11 14:35:12 发布

iteye_14829

最新推荐文章于 2023-05-11 14:35:12 发布

阅读量254

点赞数

分类专栏： ASP 文章标签： c# javascript xhtml ViewUI

本文链接：https://blog.csdn.net/iteye_14829/article/details/82509197

版权

ASP 专栏收录该内容

30 篇文章 0 订阅

订阅专栏

<%@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>
<style type="text/css">
<!--
body,td,th {
	font-size: 9pt;
}
-->
</style></head>

<body>
<%
fen=15
a=array(10,8,5,5,3,3,2,2,1,1)
b=array(1,2,3,4,5,6,7,8,9,10)
dim c(11)
l=ubound(a):fas=0
Set d = CreateObject("Scripting.Dictionary")
response.Write("从以下数中任意抽取一个或多个数，使它们的和是："&fen&"<br>")
for j=0 to l
	response.write(a(j)& " ")	
next
response.Write("<br><br>可组成的方案：<br>")
call f(0,0)

sub f(k,s)
	if s=fen then
		res=""
		for i=0 to l			
			if c(i)=1 then 
				if res<>"" then res=res & "+"
				res=res & b(i)
				res=res & "(" & a(i) & ")"
			end if
		next
		d.Add fas,res		
		res=res & "<br>"
		response.Write(fas & "、" & res)
		fas=fas+1
		exit sub
	end if
	if s>fen or k>l then exit sub
	c(k)=1
	call f(k+1,s+a(k))
	c(k)=0
	call f(k+1,s)
end sub

Randomize
sjs=Int((fas*Rnd))
response.Write("<br>随机抽的是第"&sjs&"条方案<br>")
response.Write(d(sjs))
%>
</body>
</html>

iteye_14829

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
用回溯算法实现从题库中随机抽取一题或多题组成规定分数的试卷

&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt;&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"&gt;&lt;html xmlns=&qu
复制链接

扫一扫