我有一个试题库，分为三大类，填空题、单项选择题、多项选择题、判断题。其中题号、题目、ABCD选项、正确答案分别放在EXCEL表格的A列到F列中，如下图：
，请问如何用VB6做一个程序？本人初学，主要想学习如何在VB中调用EXCEL中的数据。

你这个表格中缺少题型，因为在答题时选择的题目是那种题型，根据题型显示答题的选项。例如单选题与多选题不一样，填空题与选择题不一样，选择题与判断题也不一样。
为什么必须使用Excel，使用Access数据库不是更好吗？你的问题不是几句话就能说清楚的，我可以帮你做。

这个其实很简单，都不需要用VB。直接用Excel的VBA也是可以的。
两者差别不大，只是：1.VB的控件更全，可以设计一个更漂亮的界面。VBA控件有限； 2. VB还需要调用Excel，VBA直接就可以用了。

我给你的建议是：
1.首先是明确你的程序功能，至少在题目中我没看出来要干嘛。 图库本身用Excel就可以实现了，你的程序干嘛的呢？ 按照你分配的各题型的个数，分别随机抽取题目？ 还是答题卡结果录入机器之后，自动打分？
2.根据用途设计好你的数据库结构，虽然你用的是Excel，但是也算是一个数据库。 随机抽题现在这样就可以了。自动打分可不行，因为你的题号与卷子上的题号可不一样。
3.代码实现。这个其实很简单，下面给你一段代码例子。

VB代码：需先引用Microsoft Excel类型库，从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000是9.0，其他的版本不一样）

Dim xlApp As Excel.Application '定义EXCEL类     
Dim xlBook As Excel.Workbook '定义工件簿类     
Dim xlsheet As Excel.Worksheet '定义工作表类      
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类  
Set xlBook = xlApp.Workbooks.Open(App.Path + "\银行导出表.xls") '打开EXCEL工作簿     
Set xlsheet = xlBook.Worksheets("Sheet1") '打开EXCEL工作表  xlsheet.Activate '激活工作表
For  i=1 to 10 

 xlsheet.range("A"& i)= i   'Range 和Cells都可以对单元格进行读，写
 a=xlsheet.Cells(i,2)
Next i

VBA代码, 可以看出来就是前面获得Excel程序，文档对象的代码省略了

 
For  i=1 to 10 

 Sheets("Sheet1").range("A"& i)= i   

 a=Sheets("Sheet1").Cells(i,2)
Next i

这个用SQL或者AC做数据库比较方便些，然后excel或者word做输出