多班选择题考试计时汇总系统

lhdcxz · 发表于 2013-11-30 15:02

本帖最后由 lhdcxz 于 2013-11-30 15:04 编辑

最爱小丑发表于 2013-11-30 14:59
在把难度系数都设为1之后，系统会自动算出每道题的难度系数，根据难度系统来折算每题的分数。但是对我而言 ...

就全部都输入为“1”。有多少道题A列就应该有多少个1.

最爱小丑 · 发表于 2013-11-30 15:30

lhdcxz 发表于 2013-11-30 15:02
就全部都输入为“1”。有多少道题A列就应该有多少个1.

我现在是都把题目的难度系数都设定为1了，但是后面每道题目的折算分数你用管吗？后面的折算分数并不是1啊。

最爱小丑 · 发表于 2013-11-30 15:35

最爱小丑发表于 2013-11-30 15:30
我现在是都把题目的难度系数都设定为1了，但是后面每道题目的折算分数你用管吗？后面的折算分数并不是1啊 ...

lhdcxz · 发表于 2013-11-30 17:41

最爱小丑发表于 2013-11-30 15:35

再把附件发上来。

lhdcxz · 发表于 2013-12-1 10:32

本帖最后由 lhdcxz 于 2013-12-1 18:23 编辑

你没有仔细看1楼的说明。你应该下载的是64楼的版本。也没有发现你说的分数的情况（在难度系数全部是1 的情况下，选100题，看看“单选题库”AC列，每题全部是1分）。已经把你的部分数据拷贝进去了
1楼的是“多班选择题考试（计时、可汇总）”

64楼的注意有个“或”字！
”多班选择题考试（计时、单选或和多选判断、可汇总）_适合多版本2“

lhdcxz · 发表于 2013-12-1 18:26

上面的在调试的时候只设计了允许2000道。现在改为允许10000道题目。别的没有改。

多班选择题考试（计时、单选或和多选判断、可汇总）_适合多版本2.rar (519.63 KB, 下载次数: 720)

lhdcxz · 发表于 2013-12-2 14:30

本帖最后由 lhdcxz 于 2013-12-2 14:35 编辑

把代码重新整理了一下，去掉了原来在调试程序的时候加上的一些题目数量的限制。

多班选择题考试（计时、单选+【或／和】多选【或／和】判断；可汇总）_适合多版本

多班选择题考试（计时、单选+【或／和】多选【或／和】判断；可汇总）_适合多版本.rar (155.75 KB, 下载次数: 794)
多班选择题考试（计时、单选+【或／和】多选【或／和】判断；可汇总）_适合多版本、自动密码

多班选择题考试（计时、单选+【或／和】多选【或／和】判断；可汇总）_适合多版本、自动密码.rar (152.34 KB, 下载次数: 823)
程序、数据分离的多班选择题考试

程序、数据分离的多班选择题考试.rar (237.7 KB, 下载次数: 907)

新人须知：（旧人略过）
1、我的回复附件都是在2003版本下单机调试通过的，没有在其他高版本上调试过（除开宏表函数之外，一般应该没有问题）。
2、我的回复附件最好不要直接打开运行，否则也许会因为在当前文件夹里面找不到你的文件而出现错误（这也是一些人使用我的附件失败的原因）。
应该解压到某个文件夹里面（其他在操作的时候要访问的文件也放到这个文件夹里面）解压后再运行。
（建议新人把附件先“另存为”在桌面,即C:\Users\Administrator\Desktop，解压后再运行）
3、回复附件大多数含VBA代码。如果你没有操作过含VBA代码（也称为“宏”）的Excel文件，
就先要在窗口工具栏的“工具”--“宏”--“安全性”选择“中（或者低）”。
如果你的“宏、安全性选择的是“中”，打开运行的时候要“启用宏”。
新人特别注意第2条的要求。

最爱小丑 · 发表于 2013-12-3 13:15

lhdcxz 发表于 2013-12-2 14:30
把代码重新整理了一下，去掉了原来在调试程序的时候加上的一些题目数量的限制。

多班选择题考试（计时、 ...

老师，我遇到了新的问题：
昨天复习了我添加题库的1000-1700题，于是想随机在这700道题里面抽取100道练习。
我把设置页-单选题总题数的函数修改成了-- =COUNTA(单选题库!D1001:D1700)

结果随机抽提的结果是在题库1-700题里抽的。

我想请教一下，想在题库中间的某段抽提该怎么做？

谢谢老师！

护理考试系统.zip (663.81 KB, 下载次数: 108) 问题.jpg

lhdcxz · 发表于 2013-12-3 13:19

最爱小丑发表于 2013-12-3 13:15
老师，我遇到了新的问题：
昨天复习了我添加题库的1000-1700题，于是想随机在这700道题里面抽取100道练习 ...

这个还没有考虑过。有时间再看看有没有可能。

lhdcxz · 发表于 2013-12-3 13:26

ALT +F11看代码，在模块的“随机出题”里面
Sub SetAPaper(s As String) '随机出题
........................
StartEnd(1, 1) = 1 '开始题号=1（试试把它改为1001）
StartEnd(1, 2) = WorksheetFunction.VLookup(s & "总题数", Sheets("设置").Range("I2:J7"), 2, 0) '结束题号（试试把它改为1700）

		自动登录	找回密码
密码			免费注册

[分享] 多班选择题考试计时汇总系统

评分