请教2道程序分析题

ping192168101 2012-12-06 09:27:23
三、 程序分析题

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
写出以上程序的运行结果:
...全文
127 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
leilml 2012-12-06
  • 打赏
  • 举报
回复
第一题 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
worldy 2012-12-06
  • 打赏
  • 举报
回复
将的大妈拷贝到VB的工程中,运行一下,不就知道了

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧