如何用VB做一个考试席卷？ - 编程论坛

#2

ZHRXJR2016-05-19 14:56

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

#3

xiangyue05102016-05-19 16:25

这个其实很简单，都不需要用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

#4

QQ81524562016-05-19 17:42

回复楼主 dxhybxz

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