用易语言，在窗口1下新建一个edb数据库，并将一个excel表格中的数据导入到此数据库中，并在窗口2中调用

.版本 2

.子程序 _窗口2_创建完毕

置父窗口 (“_窗口2”)

置随机数种子 ()

标签1.是否自动折行 ＝ 真

标签2.是否自动折行 ＝ 真

标签1.标题 ＝ “”

标签2.标题 ＝ “”

打开 (取运行目录 () ＋ “\数据库.edb”, “sjk”, , , , , )

.子程序 _按钮1_被单击

.局部变量 随机, 整数型

置当前库 (“sjk”)

到首记录 ()

随机 ＝ 取随机数 (1, 取记录数 ())

跳到 (随机)

标签1.标题 ＝ 读 (“题目”)

标签2.标题 ＝ 读 (“答案”)

----------------------------------

这是窗口2，窗口1你自已想吧。

如果真 (选择框_excel可视.选中 ＝ 真)

Excel程序_写.显示 ＝ 真

.如果真结束

Excel工作簿_写.置程序 (Excel程序_写)

Excel工作簿_写.打开 (编辑框_需写入excel.内容)

z ＝ 1

x ＝ 1

y ＝ 1

坐标 ＝ 字符 (x ＋ 64) ＋ 到文本 (y)

Excel工作簿_写.表格序号 ＝ z

Excel工作簿_写.首单元格 ＝ 坐标

Excel工作簿_写.尾单元格 ＝ 坐标

Excel工作簿_写.内容=内容

Excel工作簿_写.保存 (编辑框_需写入excel.内容)

Excel工作簿_写.关闭 ()

Excel工作簿_写.释放 ()

Excel程序_写.退出 ()

Excel程序_写.释放 ()

补充内容 (2014-9-6 13:24):

如果真上面少了一行，.版本 2

.支持库 eExcel2000

Excel程序_写.创建 ()

---