请教2道程序分析题
三、程序分析题
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
写出以上程序的运行结果:
[最优解释]
第一题
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
[其他解释]
将的大妈拷贝到VB的工程中，运行一下，不就知道了
