推 colawei:j=0 To n+1 ? i=0 To m+1 ? 11/09 23:22
Dim s(m)() As Integer
Dim r(m)() As Integer
ReDim s(m)(n)
ReDim r(m)(n)
For j = 0 To n + 1 Step 1
For i = 0 To m + 1 Step 1
If i = 0 Then
r(i)(j) = LL
^^^^^^^^^^^^ debug到這就說 這個矩陣是空的?
ElseIf j = 0 Then
r(i)(j) = UU
Else
r(i)(j) = NEI
End If
s(i)(j) = 0
Next
Next
--
▄▄▄▄▄▄▄▄
▄ ▄
▄ ▄▄▄▄ ▄
▄ ▄ ▄ ▄▄ ▄▄
▄ ▄▄ ▄▄ ▄ ▄ ▄▄ ▄ ▄
▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.117.36.68