基于Excel的试卷自动生成系统的设计与实现
k As IntegerDim total As Integer， selnum As Integer'total 用来暂放本题型的总数，selnum放选中的数量Dim t As IntegerDim wb As WorkbookSet wb=Workbooks.Add'建一临时工作薄，用来暂放选中题型表中数据以避免进行排序时打乱原表中题目的次序。t=1For k=1 To UBound（choice）total=choice（k，2）selnum=choice（k，3）For i=1 To ThisWorkbook.Workshee
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数：