Public Sub ssss()Dim arr1(1 To 5) As Integer, arr2(1 To 5) As Integer, iFor i = 1 To 5
arr1(i) = i
arr2(i) = i + 2Next'----下面开始----Dim s1$, s2$, t$s1 = " "s2 = " "For i = LBound(arr1) To UBound(arr1)
s1 = s1 & arr1(i) & " "NextFor i = LBound(arr2) To UBound(arr2)
s2 = s2 & arr2(i) & " " ...
