简易实用的考试系统，试卷随机生成（考试、模拟单机版）下载

patton9900 · 发表于 2011-4-13 07:15

楼主能帮我增加简答题题型么，不用计算机自动判卷就可以

bennylee2010 · 发表于 2011-4-14 12:39

...我正在做考试系统。。。。。台好了

xiesunsea · 发表于 2011-4-17 04:18

太感谢了，谢谢分享，如果有制作过程就更好了

wkbu · 发表于 2011-4-17 20:46

本帖最后由 wkbu 于 2012-3-29 20:30 编辑

office2003测试正常，VBA工程无密码，有其他方面需求可自行更改。

longan520 · 发表于 2011-4-29 23:27

分享了··

hshhdj · 发表于 2011-5-4 21:39

运行时错误‘9’:
下标越界

fffff5 · 发表于 2011-5-23 16:01

还想请楼主帮忙告知导出的试卷在哪？

wkbu · 发表于 2011-5-23 19:56

点击“导出”后，关闭窗口，可以看到工作表中已经新增加的“试卷1”

hshhdj · 发表于 2011-5-26 21:06

烦请楼主告知，导入的题库超过10000时，报“运行时错误‘9’: 下标越界”错的解决办法。谢谢哦。

wkbu · 发表于 2011-5-27 21:46

在userform2中将此句中的800改为10000，“ThisWorkbook.Sheets(2).Range("A1:G10000").Value = wk.Sheets(1).Range("A1:G10000").Value”
将所有的as Integer改为As Long再试试

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

[分享] 简易实用的考试系统，试卷随机生成（考试、模拟单机版）下载