題組內容

二、程式執行結果(20%，每題 4%)

程式 4 Dim B(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If i + j Mod 4 > 1 Then B(j, i) = 2 * (i + j) Else B(j, i) = 2 * j ^ i End If Next j Next i Print B(2, 1) + B(3, 3)