永发信息网

如何用excel 2003制作考试系统

答案:1  悬赏:10  手机版
解决时间 2021-07-25 00:20
  • 提问者网友:战魂
  • 2021-07-24 20:19

要求是:1.我是excel菜鸟,最好是能帮忙做一个考试系统,传给我。

2.做一个能出题,评分和到一定时间停止的考试软件。

3.或者来个详细分解图,最好一步步详细的教我怎么做。

最佳答案
  • 五星知识达人网友:骨子里都是戏
  • 2021-07-24 21:33

  参考文章:用Excel建立模拟考试系统(上) ,用Excel建立模拟考试系统(中)

  8.评分和记录保存

  右击“评分”按钮,选择“指定宏”,输入宏名“评分”,单击“新建”按钮,编辑如下代码:

  Sub 评分()

  Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDown

  '在成绩记录工作表第3行前插入一行

  Sheets("成绩记录").Rows("2:2").Copy

  '复制成绩记录工作表第2行

  Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues

  '以数值方式粘贴到成绩记录工作表A3

  得分 = MsgBox("最终得分" & Range("成绩记录!D2").Value & "其中:单选题" & Range("成绩记录!E2").Value & "、多选题" & Range("成绩记录!F2").Value &"、判断题" & Range("成绩记录!G2").Value &, , "评分结果")

  '弹出信息框显示成绩记录!D2、E2、F2、G2的数据,标题为"评分结果"

  Range("D2,D5:D34,D36:D75,D77:D106").ClearContents

  '清除试卷工作表中输入的内容

  Rows("3:106").RowHeight = 0

  '设置题目区行高为0,以隐藏所有题目

  ActiveSheet.Shapes("出题按钮").Visible = True

  ActiveSheet.Shapes("评分按钮").Visible = False

  '显示出题按钮,隐藏评分按钮

  ActiveWorkbook.Save

  '保存

  End Sub

  9.其他设置

  选中A4单击“窗口/冻结空格”以始终显示1:3行的标题和按钮。右击C、E列选择隐藏。为答题区以外单元格设置填充色以示区别,把评分按钮重叠到出题按钮上(如图1)。

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯