>>485
できたよ〜

'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