【導讀】本系統(tǒng)研究的目標和內(nèi)容以及主要參考文獻······························································1. 程序的運行環(huán)境·······························································································2

　　

【正文】 from question where q_type=39。問答題 39。 and subject=@subject)@wdt begin select 4 return 4 end select 0 return 0 GO 本存儲過程需要置入 5個參數(shù)：考試科目（ subject）和各種題型的數(shù)量（ xzt,tkt,pdt,wdt）。 另一個存儲過程是 paperbuild,本存儲過程主要用來生成試卷，在生成過程中，采用了二次生成的新辦法，打破了傳統(tǒng)的一次生成法，從而從根本上解決了試卷知識點和難度的控制問題，它先在知識點范圍內(nèi)生成一半的題目，然后再根據(jù)已經(jīng)生成的題目的相關(guān)數(shù)據(jù)來決定下半部分題目的生成參數(shù)，因此解決了難度很知識點難以控制 的缺點，也使考試系統(tǒng)更加人性化、合理化，本存儲過程代碼如下： CREATE proc paperbuild @papername char(200), @subject char(10), @xzt int,@xztn int,@tkt int,@tktn int,@pdt int,@pdtn int, @wdt int,@wdtn int as /* power by ： liujun address:衡陽師范學院計算機系 0102班 選擇題生成部分 */ declare @bxzt int,@ken varchar(8000) declare @tempsql varchar(8000),@lxzt int,@lsnd int set @bxzt=@xzt/2 set @ken=(select top 1 kenlist from tempkenlist where papername=@papername) set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@bxzt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。選擇題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 order by newid()39。 execute(@tempsql) set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) set @lxzt=@xzt@bxzt set @lsnd=(select avg(difficulty) from paper where papername=@papername and q_type=39。選擇題 39。) if @lsnd@xztn begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lxzt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。選擇題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in(select question1 from paper where q_type=39。39。選擇題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end else begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lxzt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。選擇題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in(select question1 from paper where q_type=39。39。選擇題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) /* 填空題生成部分 */ declare @btkt int,@ltkt int set @btkt=@tkt/2 set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@btkt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。填空題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 order by newid()39。 execute(@tempsql) set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) set @ltkt=@tkt@btkt set @lsnd=(select avg(difficulty) from paper where papername=@papername and q_type=39。填空題 39。) if @lsnd@tktn begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@ltkt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。填空題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in(select question1 from paper where q_type=39。39。填空題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end else begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@ltkt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。填空題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in(select question1 from paper where q_type=39。39。填空題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) /* 判斷題生成部分 */ declare @bpdt int,@lpdt int set @bpdt=@pdt/2 set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@bpdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。判斷題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 order by newid()39。 execute(@tempsql) set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) set @lpdt=@pdt@bpdt set @lsnd=(select avg(difficulty) from paper where papername=@papername and q_type=39。判 斷題 39。) if @lsnd@pdtn begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lpdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。判斷題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in (select question1 from paper where q_type=39。39。判斷題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end else begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lpdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。判斷題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and difficulty39。39。39。+str(@lsnd)+39。39。39。 and ken in 39。+@ken+39。 and question1 not in (select question1 from paper where q_type=39。39。判斷題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) /* 問答題生成部分 */ declare @bwdt int,@lwdt int set @bwdt=@wdt/2 set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@bwdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。問答題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 order by newid()39。 execute(@tempsql) set @tempsql=39。update paper set papername=39。39。39。+@papername+39。39。39。 where papername is null39。 execute(@tempsql) set @lwdt=@wdt@bwdt set @lsnd=(select avg(difficulty) from paper where papername=@papername and q_type=39。問 答題 39。) select @wdtn if @lsnd@wdtn begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lwdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。問答題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 and difficulty39。+str(@lsnd)+39。 and question1 not in (select question1 from paper where q_type=39。39。問答題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end else begin set @tempsql=39。insert into paper(question1,q_type,right_answer,option1,difficulty) select top 39。+str(@lwdt)+39。 question1,q_type,right_answer,option1,difficulty from question where q_type=39。39。問答題 39。39。 and subject=39。39。39。+@subject+39。39。39。 and ken in 39。+@ken+39。 and difficulty39。+str(@lsnd)+39。 and question1 not in (select question1 from paper where q_type=39。39。問答題 39。39。 and papername=39。39。39。+@papername+39。39。39。) order by newid()39。 execute (@tempsql) end