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, “数据提取完成”)