27 lines
656 B
Plaintext
27 lines
656 B
Plaintext
Dim As Integer t(2, 3) = {{1,2},{3,4,1},{5}}
|
|
Dim As Integer i, j, p(6)
|
|
Dim As String pStr(6) = {"Payload#0", "Payload#1", "Payload#2", "Payload#3", "Payload#4", "Payload#5", "Payload#6"}
|
|
Dim As Boolean q(6)
|
|
|
|
For i = Lbound(t) To Ubound(t)
|
|
For j = Lbound(t, 2) To Ubound(t, 2)
|
|
If t(i, j) <> 0 Then
|
|
q(t(i, j)) = True
|
|
t(i, j) += 1
|
|
End If
|
|
Next j
|
|
Next i
|
|
|
|
For i = Lbound(t) To Ubound(t)
|
|
For j = Lbound(t, 2) To Ubound(t, 2)
|
|
If t(i, j) <> 0 Then Print pStr(t(i, j)-1); " ";
|
|
Next j
|
|
Print
|
|
Next i
|
|
|
|
For i = Lbound(q) To Ubound(q)
|
|
If q(i) = False Then Print pStr(i); " is not used"
|
|
Next i
|
|
|
|
Sleep
|