28,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xuqingz 2004-02-03
- 打赏
- 举报
up
Iamdemon88 2004-01-09
- 打赏
- 举报
我还没来当然不结
HOHO
HOHO
yjgx007 2004-01-09
- 打赏
- 举报
怎么这个贴子还没结啊？
liaoqingpeng 2004-01-09
- 打赏
- 举报
上帝一发笑
人类就思考
人类就思考
qwater 2004-01-09
- 打赏
- 举报
学习，接分
babycoolku 2004-01-09
- 打赏
- 举报
不知道~~~~接分先~~~~呵呵
longlover 2004-01-09
- 打赏
- 举报
怎么这个贴子还没结啊？
楼主，结吧！我是最近一个了...
楼主，结吧！我是最近一个了...
longlover 2004-01-09
- 打赏
- 举报
学习中，接分吧！！:)
nhconch 2004-01-09
- 打赏
- 举报
从我口中说出来就不会报错
我说：1除以0、1除以0、1除以0、1除以0、1除以0、1除以0、1除以0
看，我说得标准吧！
我说：1除以0、1除以0、1除以0、1除以0、1除以0、1除以0、1除以0
看，我说得标准吧！
liaoxing 2004-01-09
- 打赏
- 举报
接分
programmer11 2004-01-09
- 打赏
- 举报
呵呵，这么多的分，不接是傻瓜，哈哈
azh9703 2004-01-09
- 打赏
- 举报
接分
zsww 2004-01-09
- 打赏
- 举报
jiefen !
swich 2004-01-09
- 打赏
- 举报
接分
cuipeng99 2004-01-09
- 打赏
- 举报
Html 算不？
Javascript
infinity
Javascript
infinity
episome 2004-01-09
- 打赏
- 举报
鸟语,肯定不报错
zhaoqy0416 2004-01-09
- 打赏
- 举报
学习，接分
liyan010 2004-01-09
- 打赏
- 举报
Dim i as integer
Dim Language() as String
Dim 人类所有语言
Dim Answer as String
i = -1
For each Lan in 人类所有语言
if (1/0在Lan里会出错) = False then
i = i + 1
Redim Preserve Language(i)
Language(i)=Lan
Answer = Answer & "和" & Lan
end if
next
Msgbox "孟子老先生所要的答案是:" & Answer
Dim Language() as String
Dim 人类所有语言
Dim Answer as String
i = -1
For each Lan in 人类所有语言
if (1/0在Lan里会出错) = False then
i = i + 1
Redim Preserve Language(i)
Language(i)=Lan
Answer = Answer & "和" & Lan
end if
next
Msgbox "孟子老先生所要的答案是:" & Answer
xinchangpeng 2004-01-08
- 打赏
- 举报
除计算机语言外的所有语言.
luluso 2004-01-08
- 打赏
- 举报
除计算机语言外的所有语言.
加载更多回复（108）
