自己写的一个考试软件,能添加Excel题库

游客 2017-10-29 67


 本帖最后由 camgal 于 2017-10-29 20:10 编辑 

今天看见有网友在找考试软件,我将以前自己写的一个小软件贡献出来,可以Excel题库导入,题库的格式在《题》目录下,生成的题库在《tiku》目录下。能浏览记忆,顺序练习,模拟考试,错题练习。方便自己使用,软件比较乱,希望有需求的网友拿去使用。题库是自己制作的,格式按照模板制作就行了。应网友要求,上传 易语言 源码





titi.rar

(91.35 KB, 下载次数: 1643)



2017-10-29 20:02 上传
点击文件名下载附件
易语言 源码下载积分: 吾爱币 -2 CB












主要功能界面.png (28.34 KB, 下载次数: 158)

下载附件


主要功能界面
2017-10-28 22:08 上传






      






Excel题库模版.png (27.46 KB, 下载次数: 24)

下载附件


Excel模板
2017-10-28 22:12 上传






   






QQ截图20171028220106.png (46.18 KB, 下载次数: 12)

下载附件


选择Excel题库导入
2017-10-28 22:03 上传






    






QQ截图20171028220223.png (23.69 KB, 下载次数: 7)

下载附件


选择题库
2017-10-28 22:03 上传






   






QQ截图20171028220249.png (51.94 KB, 下载次数: 6)

下载附件


考试
2017-10-28 22:03 上传













QQ截图20171028220348.png (64.23 KB, 下载次数: 5)

下载附件


判断成绩
2017-10-28 22:03 上传






     






QQ截图20171028220537.png (65.45 KB, 下载次数: 3)

下载附件


浏览记忆
2017-10-28 22:06 上传






   






QQ截图20171028220658.png (57.21 KB, 下载次数: 8)

下载附件


添加错题库
2017-10-28 22:06 上传






   
最新回复 (9)
  • 游客 2017-10-30

    hurric 发表于 2017-11-1 22:20哥们 我下载您发的考试软件了 挺好的;目前只是有一个问题,就是我的EXCEL题库都是,题和选项都在一行中, ...
    在  窗口 双击   导入题库






    QQ截图20171102084954.png (16.17 KB, 下载次数: 4)

    下载附件



    2017-11-2 08:49 上传






    然后 双击 打开Excel题库  按钮控件 进入后 修改






    QQ截图20171028220537.png (48.46 KB, 下载次数: 2)

    下载附件



    2017-11-2 08:48 上传






    没看见你的题库格式没法指导你.版本 2.支持库 eExcel2000.支持库 iext.子程序 _按钮1_被单击.局部变量 局部_计次1, 整数型.局部变量 局部_计次, 整数型.局部变量 局部_导出头, 文本型, , "0".局部变量 局部_标志, 文本型.局部变量 局部_索引, 整数型可视 = 真' 状态条1.置文本 (0, “正在提取数据,请稍候...”)通用对话框_公用.类型 = 0.如果真 (通用对话框_公用.打开 () = 假)    返回 ().如果真结束题库保存名 = 取文本中间 (通用对话框_公用.文件名, 倒找文本 (通用对话框_公用.文件名, “\”, , 假) + 1, 倒找文本 (通用对话框_公用.文件名, “.”, , 假) - 1 - 倒找文本 (通用对话框_公用.文件名, “\”, , 假))' 题库保存名 = 通用对话框_公用.文件名标题 = “数据导入(” + 通用对话框_公用.文件名 + “)”Excel程序1.创建 ()Excel工作簿1.置程序 (Excel程序1)Excel工作簿1.激活工作簿 ()Excel工作簿1.打开 (通用对话框_公用.文件名)Excel工作簿1.表格序号 = 1局部_导出头 = { “题目”, “答案” }超级列表框_导入预览.报表列 = {  }.' 计次循环首 (取数组成员数 (局部_导出头), 局部_计次)    ' 超级列表框_导入预览.插入列 (-1, 局部_导出头 [局部_计次], 80, , , ).' 计次循环尾 ()超级列表框_导入预览.插入列 (-1, 局部_导出头 [1], 780, , , )超级列表框_导入预览.插入列 (-1, 局部_导出头 [2], 50, , , )局部_标志 = “1”局部_计次 = 1.判断循环首 (删全部空 (局部_标志) ≠ “”)    处理事件 ()    局部_标志 = “”    .计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)        Excel工作簿1.首单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)        Excel工作簿1.尾单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)        局部_标志 = 局部_标志 + Excel工作簿1.内容        .如果真 (删全部空 (局部_标志) ≠ “”)            .如果真 (局部_计次1 = 1)                局部_索引 = 超级列表框_导入预览.插入表项 (, , , , , )            .如果真结束            超级列表框_导入预览.置标题 (局部_索引, 局部_计次1 - 1, Excel工作簿1.内容)        .如果真结束    .计次循环尾 ()    局部_计次 = 局部_计次 + 1.判断循环尾 ()信息框 (“Excel 打开成功!含” + 到文本 (局部_计次 ÷ 2 - 1) + “道题”, 0, )Excel工作簿1.关闭 ()Excel工作簿1.释放 ()Excel程序1.退出 ()Excel程序1.释放 ()' 状态条1.置文本 (0, “数据提取完成”)
  • 游客 2017-10-29

    我来试试看
  • 游客 2017-10-29

    感谢大牛分享原创作品
  • 游客 2017-10-29

    很实用,再优化下更好了。谢谢分享!
  • 游客 2017-10-29

    谢谢原创分享
  • 游客 2017-10-29

    感谢分享.下载收藏.
  • 游客 2017-10-29

    感谢楼主分享,很需要
  • 游客 2017-10-29

    感谢提供原创作品!
  • 游客 2017-10-29

    这个厉害了,试试看
返回
发新帖