如何用EXCEL制作随机题库?

zorsite

比如：
我有三种题型，单选，多选，判断，各50题。
现在欲将这三种题型每次各随机抽取一道，显示在一个页面上。
也就是说：
每次抽题，都随机抽取一道单选、一道多选、一道判断，然后显示在同一页面上。

我是这样做的：
首先有三张题库表，每个表中各有50行，第一行只用一个单元格放置题面。
假设这三张表为sheet1,sheet2,sheet3，每个表A1~A50放置题目。
然后将这三张表隐藏，再新建一张表做选题界面。
选题界面很简单，一个“选题”按钮，三个显示题面的标签。
选题按钮的代码意思如下：
定义3个范围在1~50的变量，这三个变量主要是从三张表中随机抽取题面。
然后再将这三个表中相应行的数据赋于三个标签。
选题按钮单击代码如下：

Private Sub CommandButton1_Click()
Dim s1, s2, s3 As Integer
s1 = Int(Rnd() * 50 + 1)
s2 = Int(Rnd() * 50 + 1)
s3 = Int(Rnd() * 50 + 1)
Label1.Caption = Sheet1.Cells(1, s1)
Label2.Caption = Sheet2.Cells(1, s2)
Label3.Caption = Sheet3.Cells(1, s3)
End Sub
可是这样做没有成功。请问该如何操作？

guzhen9315

请问该如何操作？

上附件呀！

guzhen9315

Private Sub CommandButton1_Click()
Dim s1, s2, s3 As Integer
s1 = Int(Rnd() * 5 + 1)
s2 = Int(Rnd() * 5 + 1)
s3 = Int(Rnd() * 5 + 1)
Label1.Caption = Sheets("Sheet1").Cells(s1, 1)
Label2.Caption = Sheets("Sheet2").Cells(s2, 1)
Label3.Caption = Sheets("Sheet3").Cells(s3, 1)
End Sub

guzhen9315

我4楼白说了。
我真服了你了。

你小学数数也没学好？

zorsite

附件来了……
是一个不成功的附件，请大家帮忙啊

guzhen9315

Label1.Caption = Sheets("Sheet1").Cells(s1, 1)
Label2.Caption = Sheets("Sheet2").Cells(s2, 1)
Label3.Caption = Sheets("Sheet3").Cells(s3, 1)

zorsite

guzhen9315 发表于 2012-4-7 21:20
Label1.Caption = Sheets("Sheet1").Cells(s1, 1)
Label2.Caption = Sheets("Sheet2").Cells(s2, 1)
Labe ...

谢谢指点！
经过改正后，点击“出题”三次后label1出现了sheet1中A1单元格的内容。但是其他标签中没有内容显示。
并且再点击“出题”按钮3个label都没有任何反应……

lxz2393

上面的代码是正确的，没有出现楼主想要的效果是因为每个表中的题目没有50题，而是5题，所以要把Int(Rnd() * 50 + 1)中的50改成5。

zorsite

lxz2393 发表于 2012-4-7 22:55
上面的代码是正确的，没有出现楼主想要的效果是因为每个表中的题目没有50题，而是5题，所以要把Int(Rnd() * ...

呵呵，谢谢！我倒是忽略这个问题了。2楼的让我传附件，我就随便做了一个，但是匆忙间有弄不齐50题，就选了5道题充数了。

但我把50改为5之后只有label1中有题面显示，在label2和label3中没有内容，不知是什么原因？

EXCEL随机出题2.rar (11.92 KB, 下载次数: 538)

2012-4-8 00:13 上传

点击文件名下载附件

zorsite

guzhen9315 发表于 2012-4-8 07:34
Private Sub CommandButton1_Click()
Dim s1, s2, s3 As Integer
s1 = Int(Rnd() * 5 + 1)

嗯^我第二个附件中的代码和这个一样.昨天晚上试的时候是不可以的,今天再试又可以了...
不知道是哪里的问题.
谢谢啦.

另有一个疑问:
如果想在WORD或PPT中实现此功能的话,可不可以采用这种思路:
定义15个变量,
a1,a2,a3,a4,a5
b1,b2,b3,b4,b5
c1,c2,c3,c4,c5
数据类型为string

然后把每道题的题面赋予这些变量.
比如
a1 =" 1.某注册会计师的女儿持有委托单位的债券，但数额较小．一般我们认为这不会影响注册会计师的独立性。"
a2 = "2.注册会计师在执业过程中严格遵守独立审计准则，并克尽应有的职业谨慎，但仍有可能未发现会计报表中的错报和漏报。"
.....
如此定义15个变量后,再在"选题"按钮中调用这些变量,使这些题干随机显示在3个label中.

比如:
Label1.Caption = a1
Label2.Caption = b5
Label3.Caption = c5

该如何实现随机选题?