刷题时碰到不会做的题目该怎么办？ - 知乎51被浏览5232分享邀请回答192 条评论分享收藏感谢收起51 条评论分享收藏感谢收起查看: 8246|回复: 13
单位培训有一WORD题库，想做成能随机抽题的题库，不知怎么做？
阅读权限20
在线时间 小时
本帖最后由 zjg303 于
10:44 编辑
1、[题号：1；鉴定点：AAA001；选择题；题分：1；难度：3；一致性：5]
凡是有连通孔隙、裂缝或溶洞，能使油气储存，并在其中渗滤的岩层称为(& & )。
（A）储集岩&&（B）油气藏&&（C）储集层&&（D）断层
2、[题号：2；鉴定点：AAA001；选择题；题分：1；难度：3；一致性：5]
不利于油气储集的构造是(& & )。
（A）岩性尖灭&&（B）断块圈闭&&（C）背斜圈闭&&（D）向斜露头
3、[题号：3；鉴定点：AAA001；选择题；题分：1；难度：3；一致性：5]
通常储藏丰富油气的是(& & )地质构造。
（A）背斜圈闭&&（B）向斜圈闭&&（C）单斜圈闭&&（D）双斜圈闭
4、[题号：4；鉴定点：AAA001；选择题；题分：1；难度：3；一致性：5]
常见的构造油气藏有背斜油气藏(& & )等。
（A）砂岩油气藏&&（B）断层油气藏&&（C）地层油气藏&&（D）古潜山油气藏
5、[题号：5；鉴定点：AAA001；判断题；题分：1；难度：3；一致性：5]
常储藏丰富油气的是向斜地质构造。
答文：×；正确答案：常储藏丰富油气的是背斜圈闭地质构造。
6、[题号：6；鉴定点：AAA001；判断题；题分：1；难度：3；一致性：5]
储集层有两个重要的特性—孔隙性和渗透性。
7、[题号：7；鉴定点：AAA001；判断题；题分：1；难度：3；一致性：5]
若储集层中以含油为主，则称为含油层。
8、[题号：8；鉴定点：AAA002；选择题；题分：1；难度：3；一致性：5]
根据流体是否在孔隙中流动，可将孔隙分为(& & )孔隙和(& & )孔隙。
（A）大、小&&（B）有效、无效&&（C）连通、不连通&&（D）毛细管、超毛细管
9、[题号：9；鉴定点：AAA002；选择题；题分：1；难度：3；一致性：5]
目前石油企业广泛采用的饱和流体法和气体孔隙度仪测定的均是岩石的(& & )孔隙度。
（A）无效&&（B）绝对&&（C）有效&&（D）流动
10、[题号：10；鉴定点：AAA002；选择题；题分：1；难度：3；一致性：5]
岩石渗透性的大小用渗透率来表示，它可以利用(& & )来测定。
（A）欧姆定律&&（B）万有引力定律&&（C）动是守恒定律&&（D）达西定律
11、[题号：11；鉴定点：AAA002；选择题；题分：1；难度：3；一致性：5]
压裂设计中油气层物性常用(& & )声波时差，含水饱和度和油层等参数来描述。
（A）孔隙度&&（B）射孔数&&（C）固井质量&&（D）人工井底
12、[题号：12；鉴定点：AAA002；判断题；题分：1；难度：3；一致性：5]
油气储集层的两个特性是孔隙性和渗透性。
10:43 上传
点击文件名下载附件
23.83 KB, 下载次数: 151
阅读权限20
在线时间 小时
自己顶起，没有人看到吗？现在用WORD VBA的越来越少了。都专注于EXCEL VBA了。
阅读权限20
在线时间 小时
本帖最后由 huanger999 于
09:02 编辑
1、& && &&&在题库的最前面增加一个回车。
2、& && &&&Ctrl+H呼出替换窗口，查找“^p”，替换为“^l”，点击“全部替换”；查找“^l^#、”，替换为“^p”，点击“全部替换”；查找“^l^#^#、”，替换为“^p”，点击“全部替换”；查找“^l^#^#^#、”，替换为“^p”，点击“全部替换”；查找“^l答文”，替换为“^p答文”。
3、& && &&&删除最前面的空行
4、& && &&&保存文件名为“题库2”，这个文件中，奇数段为题目，偶数段为答案，题目与答案相连。
5、& && &&&新建一个文件，输入三~四个回车，保存文件名为“考题”
6、& && &&&运行下面的宏Sub myrandom()
Dim temp1(99) As Integer '如果题库的体量大于100，那么列表长度也要相应扩大
intmin = 1 '题库，从1号题目开始选
intmax = 100 '题库，最大题号为100
intnum = 10&&'从中选择多少道题
intnow = 0
'以下为产生不重复的intnum个题号，新产生的题号再列表的末端
For i = intmin To intmax
temp1(i - intmin) = i
Next
For j = 0 To intnum - 1
introm = (intmax - intmin + 1 - j) * Rnd()
a = temp1(intmax - intmin - j)
temp1(intmax - intmin - j) = temp1(introm)
temp1(introm) = a
Next
'以下为生成考题
For j = 0 To intnum - 1
intcur = temp1(intmax - intmin - j)
Documents(&题库2&).Paragraphs(2 * intcur - 1).Range.Select
Selection.Copy
Documents(&考题&).Paragraphs(j + 1).Range.Select
Selection.HomeKey Unit:=wdLine
Selection.TypeText CStr(j + 1) & &、&
Selection.Paste
Documents(&题库2&).Paragraphs(2 * intcur).Range.Select
Selection.Copy
Documents(&考题&).Paragraphs(j + 1).Range.Select
Selection.EndKey Unit:=wdStory
Selection.TypeText CStr(j + 1) & &、&
Selection.Paste
End Sub复制代码
(11.27 KB, 下载次数: 156)
20:11 上传
点击文件名下载附件
阅读权限20
在线时间 小时
试了一下，不知为什么&&^l&&这个符号查找替换里不能用？
阅读权限20
在线时间 小时
本帖最后由 huanger999 于
09:03 编辑
后面是字母L的小写。是把段落换成换行符。把我转化后的题库贴在这里。
(32.2 KB, 下载次数: 149)
08:57 上传
点击文件名下载附件
对不起，在步骤2的前面少了一个步骤。见红色字的部分。我在上面的帖子里面也进行了修改。
2、& && &&&Ctrl+H呼出替换窗口，查找“^p”，替换为“^l”，点击“全部替换”；查找“^l^#、”，替换为“^p”，点击“全部替换”；查找“^l^#^#、”，替换为“^p”，点击“全部替换”；查找“^l^#^#^#、”，替换为“^p”，点击“全部替换”；查找“^l答文”，替换为“^p答文”。
阅读权限20
在线时间 小时
已试验通过了，谢谢huanger999，如果能把前面查找替换的步骤也写进VBA代码就更好了。
阅读权限20
在线时间 小时
zjg303 发表于
已试验通过了，谢谢huanger999，如果能把前面查找替换的步骤也写进VBA代码就更好了。
呵呵，这个自己录制宏就好了。我也是临时想到这样处理比较方便。
阅读权限20
在线时间 小时
运行时发现了个问题，就是随机选了几次出的题都是一样的，没有达到随机选题的效果。
阅读权限20
在线时间 小时
本帖最后由 zjg303 于
09:32 编辑
加了一条语句，就能达到随机选题了：randomize
Sub myrandom()
Dim temp1(99) As Integer '如果题库的体量大于100，那么列表长度也要相应扩大
intmin = 1 '题库，从1号题目开始选
intmax = 100 '题库，最大题号为100
intnum = 10&&'从中选择多少道题
intnow = 0
'以下为产生不重复的intnum个题号，新产生的题号再列表的末端
For i = intmin To intmax
temp1(i - intmin) = i
For j = 0 To intnum - 1
introm = (intmax - intmin + 1 - j) * Rnd()
a = temp1(intmax - intmin - j)
temp1(intmax - intmin - j) = temp1(introm)
temp1(introm) = a
'以下为生成考题
For j = 0 To intnum - 1
intcur = temp1(intmax - intmin - j)
Documents(&题库2&).Paragraphs(2 * intcur - 1).Range.Select
Selection.Copy
Documents(&考题&).Paragraphs(j + 1).Range.Select
Selection.HomeKey Unit:=wdLine
Selection.TypeText CStr(j + 1) & &、&
Selection.Paste
Documents(&题库2&).Paragraphs(2 * intcur).Range.Select
Selection.Copy
Documents(&考题&).Paragraphs(j + 1).Range.Select
Selection.EndKey Unit:=wdStory
Selection.TypeText CStr(j + 1) & &、&
Selection.Paste
阅读权限20
在线时间 小时
huanger999 发表于
呵呵，这个自己录制宏就好了。我也是临时想到这样处理比较方便。
你好，如何把题库里的选择题和判断题分开，我写的代码不能实现。还得请教你呀。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师扫二维码下载作业帮
2亿+学生的选择
下载作业帮安装包
扫二维码下载作业帮
2亿+学生的选择
这题怎么做!?&
扫二维码下载作业帮
2亿+学生的选择
亲，忘采纳哟
为您推荐：
其他类似问题
扫描下载二维码您的位置：&>& >
> 雨课堂怎么制作试卷/作业？雨课堂试卷制作教程
雨课堂怎么制作试卷/作业？雨课堂试卷制作教程[图]
字体大小：【 |
11:44:26&&&
类型：教育学习大小：10MB评分：6.7平台：标签：
雨不仅能更多的知识，还能自己制作试卷和哦，而怎么制作试卷/作业？在此，小编给你简单的作业制作方法介绍哦。
雨课堂怎么制作试卷/作业？
点击左上角扫一扫，进行微信登录。
点击新建试题，添加单选、多选等题目，形成一套完整的试卷。目前，试卷中不支持插入音频。
点击『生成推送课件/试题』，手机即可收到此份试卷。
试卷可如同“推送课件”一样，发布至班级，作为课后作业。也可在课堂环节实时发布课堂考试。
以上就是小编提供雨课堂制作试卷的相关内容，更多，请"雨课堂友情手机站"！
更多雨课堂内容，请进入专题：
专题类型：学习
更新时间：
专题标签：学习辅导在线教育大学生必备阅读学习
雨课堂是人们学习教育必备的软件。它内含丰富的学习资源给你学习，还能自己制作视频及课件，使你学习更加方便简单哦。雨课堂专题里包含雨...
5.0友情指数
0人0人
猜你喜欢互动弹幕学习辅导在线教育
生活中总会遇到遇到许多的难题，无法得到解决，小编为您带来互动神器，让你将你遇到的问题分享出来，会有大人帮你解决哦，互动软件分许多的种类，例如生活、恋爱、学习、交...
雨课堂软件资讯2
雨课堂软件教程3
雨课堂常见问题1
(您的评论需要经过审核才能显示)推荐这篇日记的豆列
&&&&&&&&&&&&
&(1人关注)