返回列表 上一主題 發帖

請教2D Array reversed 問題

  1. Dim a, b(1 To 5, 1 To 5), i%, j%
  2.     a = [a1:e5]
  3.     For i = 1 To 5
  4.         For j = 1 To 5
  5.             b(i, j) = a(i, 6 - j)
  6.         Next j, i
  7.         [g1].Resize(5, 5) = b
複製代碼

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題