请教2道程序分析题

[ping192168101]

三、 程序分析题

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
写出以上程序的运行结果:

[worldy]

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

[leilml]

第一题 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