请教2道程序分析题

Question

三、 程序分析题 1. Private sub Form_Activate()
Dim s(5,5) As Integer
For n=1 to 5
For m=1 to 5
if n=m or n=6-m Then 
s(n,m)=1
else
s(n,m)=0
end if
next m
next n
for n=1 to 5
for m=1 to 5
print space(2);
print s(n,m);
next m
print
next n
end sub
写出以上程序的运行结果:2. Private Sub Command1_Click()
  a = ""
  For n = 1 To 200
    If n Mod 37 = 0 Then
      a = a & Str(n) & Chr(13) & Chr(10)   
    End If
  Next
  Text1.Text = a
End Sub
写出以上程序的运行结果:

Answer 1

将的大妈拷贝到VB的工程中，运行一下，不就知道了

Answer 2

第一题
1  0  0   0  1
0  1  0  1  0
0  0  1  0  0
0  1  0  1  0
1  0  0  0  1
第二题
37
74
101
148
185