为了活跃下气氛，只要在本吧发个作品即可当小吧！！！

给个小吧 谢谢

又砸了。。。哦

dim proverb$(2,100)
randomize time$("seconds")
np=20
for p=1 to 2
for q=1 to np
read a$
proverb$(p,q)=a$
next
next
q=0
totalline=12
if totalline>np then totalline=np
while q<totalline
q=q+1
for p=1 to 2
r=1+int(rnd(1)*np)
while proverb$(p,r)="-"
r=1+int(rnd(1)*np)
wend
print proverb$(p,r); "";
proverb$(p,r)="-"
next
if q mod 4 <> 0 then
print "，"
else
print "。"
print
end if
wend
data "蔚蓝的地球"
data "大把的钞票"
data "空旷的山谷"
data "空无一人的教室"
data "残缺的尸块"
data "哥特式的大教堂"
data "锈迹斑斑的剪刀"
data "老式的电风扇"
data "整齐划一的队伍"
data "宏伟的紫禁城"
data "旁若无人的情侣"
data "熊熊燃烧的秸秆"
data "呆萌的麦兜"
data "不死的春哥"
data "豆比的小伙伴"
data "冷酷的杀手"
data "漏着气的气球"
data "淡淡的忧伤"
data "五音不全的嗓门"
data "滴着血的武士刀"
data "挂在高高的天上"
data "忍不住笑出声来"
data "默默地燃烧着自己"
data "永远地沉没了"
data "洒得到处都是"
data "顿时惊呆了"
data "悄悄地退了回去"
data "依然不知疲倦地唱着"
data "用纸折了一只小鸟"
data "竟然消失了"
data "经历了几千年的风风雨雨"
data "总是那么搞笑"
data "再也转不了了"
data "已经存在了几十亿年"
data "没有一个人影"
data "让人不忍直视"
data "好像在述说着什么"
data "感觉自己需要上油了"
data "轻轻地叹了一口气"
data "终于在沉默中爆发了"

附诗一首：
宏伟的紫禁城顿时惊呆了，
空无一人的教室洒得到处都是，
不死的春哥默默地燃烧着自己，
熊熊燃烧的秸秆没有一个人影。
漏着气的气球永远地沉没了，
蔚蓝的地球依然不知疲倦地唱着，
锈迹斑斑的剪刀挂在高高的天上，
空旷的山谷再也转不了了。
滴着血的武士刀竟然消失了，
老式的电风扇好像在述说着什么，
呆萌的麦兜让人不忍直视，
豆比的小伙伴终于在沉默中爆发了。

QB的动画DATA大量数据全是乱码但是动画正常，很精彩
我在VB爱好者发帖没有人跟
http://www.vbgood.com/forum.php?mod=viewthread&tid=151399&page=1&extra=#pid723386

发帖按钮在哪里？只能跟帖吗？

我想回复自己，以便巩固。但是似乎自己不能回复自己。

如何发新贴？