基于Excel的试卷自动生成系统的设计与实现
）.Range（Cells（2，11），Cells（total+1，11））， _order1：=xlAscending， Header：=xlGuess'按第K列排序wb.Sheets（1）.Range（Cells（2，1），Cells（selnum+1，3））.Copy'将前selnum行复制到剪贴板中，每行包括题号、题目内容、答案3列ThisWorkbook.Sheets（"试卷"）.ActivateThisWorkbook.Sheets（"试卷"）.Cells（t，1）.Value=choice（k，1）
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数：