Excel模拟考试系统的代码，

来源：百度知道 编辑：UC知道 时间：2024/06/17 13:42:16
能否增加如下的代码
1、让每个准考证号只能使用一次。

2、设置一个计时器，30分钟自动点击评分按钮。
Sub 评分()
Rows("1").RowHeight = 58
Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDown
'在成绩记录工作表第3行前插入一行
Sheets("成绩记录").Rows("2:2").Copy
'复制成绩记录工作表第2行
Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues
'以数值方式粘贴到成绩记录工作表A3
Rows("1").RowHeight = 58
Rows("2").RowHeight = 18
'设定前两行高度，以防按钮变形
得分 = MsgBox("您的总分是" & Range("成绩记录!D2").Value & "分。其中：单选题得" & Range("成绩记录!E2").Value & "分，判断题得" & Range("成绩记录!F2").Value & "分。", , "评分结果")
'弹出信息框显示成绩记录!D2、E2、F2、G2的数据，标题为"评分结果"
Range("D2,D5:D34,D36:D55").ClearContents
'清除试卷工作表中输入的内容
Rows("3:55").RowHeight = 0
'设置题目区行高为0，以隐藏所有题目
ActiveSheet.Shapes("出题按钮").Visible

可以实现，建一个新表，一列存入准考证号，另一列存入登录状态，登录过写入1，每当登录时查状态，决定是否允许登录。
设计计时器，用相应的函数即可，点击评分按键就是调用评分(模块)过程。

1、使用准考证成功进入时，记录下准考证号，并在验证准考证时，查看是不是有记录，如果有则提示拒绝；
2、同你所说，设置一个计时器，设置好计时器工作开始开关（登陆后立即开始计时），30分钟时调用“评分”按钮单击事件；