求个很基础的vb题库程序，请帮我编个

来源：百度知道 编辑：UC知道 时间：2024/05/28 14:43:06
计划：有若干道题放在“题目.doc”文件中，这些题既有文字又有图。点“command”按钮后，将打开一个新的doc文件，文件内容是从上述随机抽出的一道题（文字与图）。我学学此基础，高分悬赏，答案采纳后再追加一百分！
我要的是：一、这几道题的文字和图在“题目.doc”里的排版规则；
二、VB代码。尽量从简。

3月8日22：25修改过了。

1、首先制作一个Word文档，在其中画一个表格，每行一格，将题目的文字和图片都放在同一个格子内，每题一行，不要留空行，然后保存在本工程目录中，命名为“题目.doc”；
2、在【工程】-【引用】菜单中找到“Microsoft Word Object Library 11.0”并打上勾，然后粘贴如下代码：
Dim wordApp As Word.Application '声明Word对象

Private Sub Command1_Click() '选题按钮
Dim rnum As Integer '存放题目数，即行数
Dim n As Integer '存放随机数
Command1.Enabled = False
Command2.Enabled = True
Set wordApp = New Word.Application '创建Word实例
With wordApp
.Visible = True '显示Word文档
.Documents.Open App.Path & "\题目.doc" '打开文档
rnum = .ActiveDocument.Tables(1).rows.Count '获取行数
n = Int(Rnd * rnum) + 1 '计算随机数
.ActiveDocument.Tables(1).Cell(n, 1).Select '随机选中一格
.Selection.Copy ’复制格中所有内容，包括图片
.Documents.Add DocumentType:=wdNewBlankDocument '创建空白文档
.Selection.PasteAndFormat (wdPasteDefault) '粘贴赋值的内容
.Windows("题目.doc").Activate
.ActiveWindow.Close&