首页 > 电子期刊 > J > 计算机时代

基于Excel的试卷自动生成系统的设计与实现

ts.CountIf Trim（ThisWorkbook.Sheets（i）.Name）Like Trim（choice（k，1）） ThenThisWorkbook.Sheets（i）.ActivateThisWorkbook.Sheets（i）.Copy before：=wb.Sheets（1）wb.Sheets（1）.Range（Cells（2，11），Cells（total+1，11））.Formula="=rand（）" '第K列用来放随机数wb.Sheets（1）.Range（Cells（2，1），Cells（total+1，11））.Sort _key1：=wb.Sheets（1
<<上一页  下一页>>

首页 > 电子期刊 > J > 计算机时代

广州市越秀区图书馆版权所有。
联系电话：020-87673002

本站访问人数：