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

tangqingfu · 发表于 2013-6-4 13:34

谢谢分享！

eyese · 发表于 2013-6-6 19:26

值得学习！很感谢分享！

kezhiye · 发表于 2013-6-13 20:39

好东西，谢谢分享!

Laofofo · 发表于 2013-6-14 11:37

good job ，谢谢分享。

kezhiye · 发表于 2013-6-15 13:59

哪位老师能否帮忙把wkbu老师14楼的作品改成另外一种形式，即题库文件不是一个专业一个单独的工作簿，而是一个专业就是主程序里的一个工作表。

kezhiye · 发表于 2013-6-15 22:30

哪位老师能否帮忙把wkbu老师14楼的作品改成另外一种形式，即题库文件不是一个专业一个单独的工作簿，而是一个专业一个工作表，也就是一共只有一个工作簿，各专业的试题分别放在这个工作簿的不同工作表里。

WCHGSZ · 发表于 2013-6-21 16:38

留个脚印，方便日后学习

kezhiye · 发表于 2013-6-23 23:06

强烈渴望楼主能帮忙将多选题更新成五个选项。

wkbu · 发表于 2013-6-24 20:05

由于比较忙，已经很长时间没来论坛了，做的“考试系统”有许多不完善的地方，也没有精力去改，请各位朋友见谅。
想把多选题改成五个选项，请重点从下面的代码中进行调整。

If cxt > 0 Then
For i = axt + bxt + 1 To axt + bxt + cxt''''''''''''''''''''''''''''''''''循环从什么位置开始....通过axt、bxt的数量计算出多选题的起始位置
Set mycon = Controls.Add("forms.Label.1", , Visible)
mycon.Top = 100 + (axt + bxt) * 40 + (i - 1) * 70'''''''''''''''确定控件行间距
mycon.Height = 30
mycon.Width = 700
mycon.Left = 35
mycon.Font.Size = 14
Controls("Label" & i).Caption = i & "、" & arr(i, 1)
For j = 1 To 2
a = a + 1
Set mycon = Controls.Add("forms.OptionButton.1", , Visible)
mycon.Top = 110 + (axt + bxt) * 40 + (i - 1) * 70 + j * 20''''''''''''距顶端距离
mycon.Height = 20
mycon.Width = 700
mycon.Left = 35
mycon.Font.Size = 12
Controls("OptionButton" & a).GroupName = i
If j = 1 Then Controls("OptionButton" & a).Caption = "正确"
If j = 2 Then Controls("OptionButton" & a).Caption = "错误"
Next
Next
End If
End If

kezhiye · 发表于 2013-6-24 21:02

wkbu老师你好！试题界面已调成了多选题五个选项，但是对交卷的答案与标准答案进行核对没能修改成功。我是在你原来的答案左边插入一列，放置多选题的第五个答案选项。对交卷的答案与标准答案进行核对的代码不知是哪些，我对SJJ程序中的4.5.6等数字改来改去，结果都没有成功。现将附件上传，还望wkbu老师帮忙，谢谢！

考试（五项）.rar (225.51 KB, 下载次数: 182)

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

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