(相关资料图)
1、Submusub()DimcaseArray(3)AsStringcaseArray(0)="A"caseArray(1)="B"caseArray(2)="C"caseArray(3)="D"DimrowNumAsIntegerFori=1To4Forj=1To4Fork=1To4Forl=1To4rowNum=rowNum+1Cells(rowNum,1)="情形"&CStr(rowNum)Cells(rowNum,2)=caseArray(i-1)Cells(rowNum,3)=caseArray(j-1)Cells(rowNum,4)=caseArray(k-1)Cells(rowNum,5)=caseArray(l-1)NextlNextkNextjNextiEndSub。
本文就为大家分享到这里,希望看了会喜欢。
标签: