'Answer 1 Dim TBL(6, 7), i For i = 1 To 31 TBL((i + 4) \ 7 + 1, (i + 4) Mod 7 + 1) = i Next
'Answer 2 Dim TBL2(4), WO1, i TBL2(0) = 8: TBL2(1) = 90: TBL2(2) = 20: TBL2(3) = 12: TBL2(4) = 2 For i = 0 To 24 If TBL2(i \ 5) < TBL2(i Mod 5) Then WO1 = TBL2(i \ 5): TBL2(i \ 5) = TBL2(i Mod 5): TBL2(i Mod 5) = WO1 Next
'Answer 3 Dim TBL(10, 10), i For i = 0 To 80 TBL(i \ 9 + 1, i Mod 9 + 1) = (i \ 9 + 1) * (i Mod 9 + 1) TBL(i \ 9 + 1, 10) = TBL(i \ 9 + 1, 10) + TBL(i \ 9 + 1, i Mod 9 + 1) TBL(10, i \ 9 + 1) = TBL(i \ 9 + 1, 10) Next
