EXCEL VBA 賓果程式問題20點- Yahoo!奇摩知識+

2010年6月14日 - SUB TR() Dim J(1 To 9) '輸出陣列. For I = 1 To 9. FF: X = Int(Rnd * 9 + 1) If J(X) = 1 Then GoTo FF J(X) = 1: V = IIf(I Mod 3, (I \ 3) + 1, I \ 3)'欄設定

tw.knowledge.yahoo.com