利用WORD题库随机组卷方法

如何利用现成的WORD题库

随机挑选题目组卷

第一部分关于选择题的处理

例如下面十道选择题，如何让每题四个选项乱序，十道题也乱序呢？

1.墨分五彩指焦、浓、重、淡、（）。

A.清

B.浊

C.浅

D.灰

2.笔墨纸砚是〔〕不可缺少的工具。

A.中国画

B.油画

C.水彩画

D.水粉画

3.中国画按技法可分为工笔画和〔〕。

A.静物画

B.风景画

C.人物画

D.写意画

4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.花鸟

B.鱼虫

C.动物

D.静物

5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.赵体

B.瘦金体

C.宋体

D.欧体

6.黄筌的代表作品是( )

A.写生珍禽图

B.泼墨仙人图

C.芙蓉锦鸡图

D.双喜图

7.被称为“黄家富贵”的画家是( )。

A.黄胄

B.黄筌

C.徐熙

D.黄庭坚

8.被称为“徐熙野逸”的画家是( )

A.徐熙

B.黄筌

C.文同

D.朱耷

9.中国花鸟画《双喜图》是〔〕的代表作品。

A.赵佶

B.崔白

C.文同

D.朱耷

10.《墨竹图》的作者是( )代的( )。

A.宋崔白

B.清朱耷

C.宋文同

D.当代齐白石

一、将每一道选择题整理成题干一段，四个选项分别为四段的形式，如下：

1.墨分五彩指焦、浓、重、淡、（）。

A.清

B.浊

C.浅

D.灰

2.笔墨纸砚是〔〕不可缺少的工具。

A.中国画

B.油画

C.水彩画

D.水粉画

3.中国画按技法可分为工笔画和〔〕。

A.静物画

B.风景画

C.人物画

D.写意画

4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。

A.花鸟

B.鱼虫

C.动物

D.静物

5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。

A.赵体

B.瘦金体

C.宋体

D.欧体

6.黄筌的代表作品是( )

A.写生珍禽图

B.泼墨仙人图

C.芙蓉锦鸡图

D.双喜图

7.被称为“黄家富贵”的画家是( )。

A.黄胄

B.黄筌

C.徐熙

D.黄庭坚

8.被称为“徐熙野逸”的画家是( )

A.徐熙

B.黄筌

C.文同

D.朱耷

9.中国花鸟画《双喜图》是〔〕的代表作品。

A.赵佶

B.崔白

C.文同

D.朱耷

10.《墨竹图》的作者是( )代的( )。

A.宋崔白

B.清朱耷

C.宋文同

D.当代齐白石

整理过程中可充分利用WORD的替换功能，查找 B 替换为 ^pB，查找 C 替换为 ^pC，查找 D 替换为 ^pD，即可将四个选项分为四段。

如果题干中有ABCD等大写字母或如英语试卷中出现ABCD大写字母的，可将四个大写字母处理为“&A“等形式后再用查找替换功能处理。

二、选中所有选择题，单击插入表格文本转换成表格列数为5，转换如下

三、EXCEL新建一电子簿，复制第二步中表格内所有内容，粘贴到电子簿的sheet1中

四、在这个电子表格中按ALT + F11 组合键调出VBA窗口，插入模块，在模块1代码窗中粘贴如下代码

Sub test()

Dim r%, i%

Dim arr, brr

Randomize

With Worksheets("sheet1")

r = .Cells(.Rows.Count, 1).End(xlUp).Row

arr = .Range("b1:g" & r)

For i = 1 To UBound(arr)

For k = 5 To 2 Step -1

If Len(arr(i, k)) <> 0 Then

Exit For

End If

Next

For j = 1 To k - 1

n = j + Int(Rnd() * (k - j)) + 1

temp = arr(i, j)

arr(i, j) = arr(i, n)

arr(i, n) = temp

Next

dn = ""

For j = 1 To k

xm = Left(arr(i, j), 1)

If InStr(arr(i, 6), xm) <> 0 Then

dn = dn & Chr(j + 64)

End If

arr(i, j) = Chr(j + 64) & Mid(arr(i, j), 2)

Next

arr(i, 6) = dn

Next

.Range("j1").Resize(UBound(arr), UBound(arr, 2)) = arr

End With

End Sub

五、单击运行，运行代码后，关闭VBA窗口，回到电子表格界面，复制sheet1为sheet2，在P1单元格输入公式=100*RAND()，向下填充P列到适当行为止，全选，单击排序按P 列升序或降序排列都可以，选中BCDE四列隐藏，选中A JKLM五列内容，复制,打开WORD 右击选粘贴（粘贴时选择只保留文本）到WORD中，如下

10.《墨竹图》的作者是( )代的( )。 A.宋文同 B.当代齐白石

C.清朱耷

D.宋崔白

9.中国花鸟画《双喜图》是〔〕的代表作品。 A.崔白 B.朱耷 C.赵佶 D.文同

8.被称为“徐熙野逸”的画家是( ) A.朱耷 B.徐熙 C.黄筌 D.文同2.笔墨纸砚是〔〕不可缺少的工具。 A.油画 B.水彩画 C.水粉画 D.中国画

5.赵佶的书法被称为( )，他的代表作是《芙蓉锦鸡图》。 A.瘦金体

B.欧体

C.赵体

D.宋体

4.中国画分为人物、山水、( )三科，这不是简单的题材分工，而是体现一种传统的人文思维。 A.静物 B.花鸟 C.鱼虫 D.动物

7.被称为“黄家富贵”的画家是( )。 A.黄筌 B.徐熙 C.黄庭坚 D.黄胄

6.黄筌的代表作品是( ) A.双喜图B.写生珍禽图 C.泼墨仙人图

D.芙蓉锦鸡图

1.墨分五彩指焦、浓、重、淡、（）。 A.灰B.浅 C.清 D.浊

3.中国画按技法可分为工笔画和〔〕。 A.写意画B.人物画 C.静物画 D.风景画