1233211234567泰无聊论坛中

来源：蜘蛛抓取(WebSpider) 时间：2012-07-29 17:17 标签： 无聊中
7无聊失眠睡不着_满城吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：32,672贴子：
7无聊失眠睡不着收藏
<div class="clearfix BAIDU_CLB_AD BAIDU_CLB_AD_pb" id="BAIDU_CLB_AD_">
跟我老婆一样，半夜醒了睡不着就折腾我，就是不让我睡，给她开了电视我才睡会
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或李宏毅qq中的问题7的答案是什么_百度知道
李宏毅qq中的问题7的答案是什么
我有更好的答案
按默认排序
笑而不语！
上山打老虎
布吉岛。。
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁【7】无聊做的东西= =_汩罗岛吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：8贴子：
【7】无聊做的东西= =收藏
代码我不要了= =反正是没用又无聊又简单的东西Dim a As Integer, b As IntegerPrivate Sub Xingxing()Randomized = 255 * Rnd e = 255 * Rnd f = 255 * Rnd sb1 = ScaleWidth * Rnd
sb2 = ScaleHeight * Rnd
PSet (sb1, sb2), RGB(d, e, f)End SubPrivate Sub Command1_Click()Call XingxingEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Form_Click()DrawWidth = 100For c = 1 To 10
ForeColor = QBColor(0)
Circle (a / 2, b / 2), c * 1500Next cEnd SubPrivate Sub Form_Load()DrawWidth = 7a = Form1.Width: b = Form1.HeightFor c = 1 To 15
ForeColor = QBColor(c)
Circle (a / 2, b / 2), c * 1000Next cDrawWidth = 3Me.ForeColor = QBColor(0)Line (a / 2, 0)-(a / 2, b): Line (0, b / 2)-(a, b / 2)End Sub
<div class="clearfix BAIDU_CLB_AD BAIDU_CLB_AD_pb" id="BAIDU_CLB_AD_">
正好可以拿来水经验用
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 无聊中 的文章

 

随机推荐