首先你们啥？ 问源码？问社区？
如果是问社区的话。
很多吧。也很杂，层次也不一样。比如csdn
‘贰’ 推荐一个公务员在线学习、在线模拟考试的系统源码，谢谢。
猪八戒考试出题软件 3.0
猪八戒考试出题系统是针对各教育、企事业培训单位开发的专业考评软件。用户可以在短时间内轻松完成试题录入、组卷、排版等工作，并可以根据配置参数生成试卷和答案，实现了题库与试卷统一和规范化管理，避免教师每次考试时手工组卷及平时为学生组织练习时的重复劳动，将教师从简单、重复的环节中解脱出来，以更多的精力投入到教学与科研中去。
1.题库管理
1）题库支持所有常见题型：单选、多选、判断、填空、问答、操作题，并可按照客户需求自定义。
2）题库可以按照科目、难度、题型等进行题库的划分。
3）试题支持批量导入导出，并可进行批量备份和编辑。
4）所有试题均可以添加图片等附件。
2.智能组卷
1）系统支持随机和固定试卷，可根据题型、范围、难度、题目数量、总分数等条件随机生成符合自己要求的试卷。
2）防舞弊：打乱题目顺序、实现A、B卷网络考试；监控考生考试情况，发现舞弊者可以取消考试资格。
3）智能抽题：根据设定好的策略从题库中智能抽取试题。
3.试卷导出
1）固定试卷可以在出好试卷后查看试卷内容。
2）对不满意的试题可进行手工或自动换题，直到满意为止。
3）审核后的试卷可导出excel或word试卷用与备份或线下考试。
4）支持在线考试。
5）智能阅卷评卷。
砺剑出题与考核系统 3.62 单机版[下载地址]
此为单机免费版，主要特点如下：
1、追加题库比较方便，内置多样追加模式，对常见文档格式的题目能够快速添加到数据库中；
2、随机出题操作简单，只要把选择的题目类型、题数及分数设置好，马上就可以生成试卷，可以输出为WORD格式、RTF格式或电子试卷格式，可以保存到服务端供全体使用，或直接打印输出；
3、强大的自动判分功能，交试卷后能立即给出分数。
‘叁’ 问答源码用什么源码好
按照我的理解，所谓的源代码世界是比现实世界时间提前的平行世界。男主角通过穿越改变了源代码世界，使得平行的现实世界也得到改变。由于提前在源代码世界给GOODWIN发送的消息，现实世界的GOODWIN接收延迟，帮助了CAPTION，让CAPTION的意识存活在源代码世界中。既然都能从现实世界穿越到源代码世界中，那么短信穿越也是很正常的。最后那个大球还记得么？映照出来的依然是肖恩，这就证明，现实世界的营养供应断后，CAPTION的意识会留在源代码世界中。
‘肆’ 知识竞赛答题系统源码，哪个好
网络搜索中国文明网，点击进入 左上角有个浮动的窗口，即网上签名的快捷通道，点击进入 进入到向国旗敬礼的页面 第一环节“向国旗敬礼” 选择省份和城市，点击“向祖国敬礼” 第二环节“向国旗寄语” 回答不容易,希望能帮到您,满意请帮忙采纳一下，谢谢 !
‘伍’ 问答系统哪个好
Ask2问答系统是一款开放源码的PHP问答程序。
优点：
1、基于自主MVC框架开发，框架结构清晰、易维护、模块化、扩展性好，性能稳定。
2、支持Ucenter、Xunseach、CMS等系统整合，方便易用。
3、简单易懂的模板语法让前端人员可独立完成模板制作及数据调用。
4、站内seo优化的非常好
5、内置文章功能，每个用户能发布自己文章
6、问答内置三套PC模板和一套Wap模板，高仿360问答系统界面，大气简洁
7、程序内置超强问答采集功能，无需写知名问答网站规则，一键采集十几万条数据，新站快速充实网站内容
8、内置强大标签自动识别功能，提问和问题采集均可识别关键词
9、强大搜索系统，搜索问题可通过输入字符串全文检索，如果检索不到通过转化成关键词检索，检索不到还可以转化成模糊检索，相关问题均可列出
完全可以满足政府机构、教育机构、事业单位、商业企业、个人站长使用。
‘陆’ ask2问答系统对比tipask系统哪个更好
还是选择ask2问答系统吧，人家seo功能秒杀国内一切开源问答了，自带问答采集和wap端，wap高仿天涯问答的手机版，我们也在用，PC界面做的不错，简洁大气，框架易用性和扩展性都不错，适合中小企业吧，数据库没分表，反正没测试过上百亿的数据，几千万的有，不卡
‘柒’ 简单的asp答题系统
利用ASP和Access数据库制作局域网网上答题系统
本系统由Index. asp、Lkzk.asp、Save.asp、Db0.fun 四个小程序及Access数据库文件lkzk.mdb组成各程序的功能分别是:
1． Index. asp 是框架网页,负责导入Lkzk.asp、Save.asp两个子网页组成完整的程序页面。
2． Lkzk.asp 是随机出题答题的交互页面生成程序，主要完成随机选题、题目显示、答案输入及正确率、总答题数显示等功能。
3． Save.asp 完成答题正误判断、显示及成绩登记（按客户端IP地址）。
4． Db0.fun 包含打开Access数据库的多个函数(Lkzk.asp、Save.asp都用到的)。
5． lkzk.mdb Access数据库文件,由表“IP”和表“题库”组成。
表（IP）由编号字段ID(数字格式)、客户机地址字段IP(文本格式)、错误答案数字段nnn(数字格式)、正确答案数字段yyy(数字格式) 所组成；
表“题库” 由题号字段ID(数字格式)、单选多选标记字段dx(数字格式)、答案字段xz(文本格式)、试题内容字段na(备注格式)所组成。（注:试题内容的选择部分必须为“A. …… B. …… C. …… D. ……” 格式）
--------------- Index. Asp-----------------
<html>
<head>
<title>网上司考试题库</title>
</head>
<frameset rows="87%,*" framespacing="0">
<frame name="top" src=image/lkzk.asp scrolling="auto">
<frame name="bottom" scrolling="auto" marginwidth="0" marginheight="0">
<noframes>
<body>
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>
--------------Lkzk.asp-------------
<!-- #include virtual="/lkzk/DB0.fun" -->
<%
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库")
%>
<HTML>
<head>
<title>网上司考试题库</title>
</head>
<BODY >
<font size="4" color="#000080">司考试题库
<%
ClientIP = Request.ServerVariables("REMOTE_ADDR")
userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,"."))
rsu2.AbsolutePosition=userIP
Randomize
I=Fix(Rnd*1800)
rs.AbsolutePosition=I+1
%>
总第<%=CStr(I+6)%>题 <%'=rs("type")%>
<FORM Action=save.asp Method=GET target="bottom">
<INPUT Type=Hidden Name=AI Value="<%=I%>">
<HR>
<% s=rs("na")
x=InStr(s,"A.")
sx="多选"
if rs("dx")=0 then
sx="单选"
end if %>
<%=Left(s,x-1)%> '显示除选择部分外的试题内容
<font color="red">
<%=sx%> <BR> '显示是单选还是多选题
</font>
<% s=Right(s,Len(s)-x+1)
x=InStr(s,"B.") %> '以下开始显示复选框及选择部分
<INPUT Type=CheckBox Name=A Value="a">
<%=Left(s,x-1)%><BR>
<%s=Right(s,Len(s)-x+1)
x=InStr(s,"C.")%>
<INPUT Type=CheckBox Name=A Value="b">
<%=Left(s,x-1)%><BR>
<%s=Right(s,Len(s)-x+1)
x=InStr(s,"D.")%>
<INPUT Type=CheckBox Name=A Value="c">
<%=Left(s,x-1)%><BR>
<%s=Right(s,Len(s)-x+1)%>
<INPUT Type=CheckBox Name=A Value="d"> <%=s%>
<BR>
<INPUT Type=Submit Value="查看答案">
<a href="lkzk.asp" target="_self">继续做题</a> <BR>
<%if rsu2("nnn")+rsu2("yyy")=0 then rsu2("yyy")=1 end if%>
正确率：<%=FormatNumber(rsu2("yyy")/(rsu2("nnn")+rsu2("yyy"))*100, 2, True)%>%
总答题数：<%=rsu2("nnn")+rsu2("yyy")%>
</form>
</font>
</BODY>
-----------------Save.asp-------------------
<!-- #include virtual="/lkzk/DB0.fun" -->
<%
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库")
%>
<HTML>
<BODY >
<% I=CInt(Request("AI"))
rs.AbsolutePosition=I+1
ssx="错"
A=Replace( Request("A"), ", ", "" )
if A=rs("xz") then '判断答题正误
ssx="对"
end if
%>
<FONT Color=Red>
您答<%=ssx%>了 '显示答案正误等信息
</FONT>
试题库总第<%=CStr(I+1+5)%>题 您的答案是：<%=A%>
参考答案是：<%=rs("xz")%>
<%
ClientIP = Request.ServerVariables("REMOTE_ADDR")
userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,"."))
rsu2.AbsolutePosition=userIP
rsu2.Update
If ssx="对" then
rsu2("yyy") =rsu2("yyy")+1
End if
if ssx<>"对" then
rsu2("nnn") =rsu2("nnn")+1
End if
rsu2.Update '以下将正误结果记录于数据库表“IP”中
%>
</BODY>
</HTML>
--------------Db0.fun----------------
<% ' 以下为函数程序
'---------------------------------------------------
Function GetMdbConnection( FileName )
Dim Provider, DBPath
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath(FileName)
Set GetMdbConnection = GetConnection( Provider & DBPath )
End Function
'---------------------------------------------------
Function GetMdbRecordset( FileName, Source )
Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" )
End Function
'---------------------------------------------------
Function GetMdbStaticRecordset( FileName, Source )
Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" )
End Function
'---------------------------------------------------
Function GetConnection( Param )
Dim conn
On Error Resume Next
Set GetConnection = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then Exit Function
conn.Open Param
If Err.Number <> 0 Then Exit Function
Set GetConnection = conn
End Function
'---------------------------------------------------
Function GetMdbRs( FileName, Source, Cursor, Password )
Dim conn, rs
On Error Resume Next
Set GetMdbRs = Nothing
If Len(Password) = 0 Then
Set conn = GetMdbConnection( FileName )
Else
Set conn = GetSecuredMdbConnection( FileName, Password )
End If
If conn Is Nothing Then Exit Function
Set rs = Server.CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then Exit Function
rs.Open source, conn, Cursor, 2
If Err.Number <> 0 Then Exit Function
Set GetMdbRs = rs
End Function
'---------------------------------------------------
%>
具体参考:
‘捌’ 知识竞赛答题软件源码，哪个好
知识竞赛答题软件没有公开源码的，这个大多是商业软件，象天纵竞赛答题软件均是要收费的，就算是免费的，别人服务也会收费，软件即服务，没有服务的软件你也不敢要不是吗，不然竞赛时出问题也不知道找谁解答，没有保障。
‘玖’ 求网站源码 在线答题系统 答题完毕显示答案
估计按照你的要求很难找到。找人进行二次开发，或从新做一套也不是难事。