学校考试VB数组，谁能帮帮我？

楼上的是错的
我这个可以,调试过
Dim a, b As Variant, i, j As Integer
a = Array(1, 3, 5)
b = Array(2, 4, 8, 9)
For i = LBound(a) To UBound(a)
For j = LBound(b) To UBound(b)
If Val(a(i)) + Val(b(j)) > 5 Then
Print a(i); b(j)
End If
Next j
Next i

dim A(1,3,5),B(2,4,8,9),C(2,3),R,T,X
FOR T=0 TO 3
FOR R=0 TO 2
C(R,T)=A(R)+B(T)
NEXT R
NEXT T
FOR T=0 TO 3
FOR R=0 TO 2
IF C(R,T)>5 THEN
X=X+1
PRINT C(R,T)
END IF
NEXT R
NEXT T