叁水的个人资料 - RAT

叁水叁水

关注数: 0 粉丝数: 1 发帖数: 93 关注贴吧数: 0

语文背诵篇目全文 1L喂百度声明：在我没发完之前不许断楼，为班里做好事...

政治哲学常识 1L喂百度，防吞...

“气候酷派”让我酷 1L喂百度，防吞楼

完结任何事物都有完结，就是再美好或者再痛苦的事情都有完结。《哈利波特》完结了，有人哭了。气候酷派完结了，我却没有哭。不是结果多么糟糕，真的是那句话“走到现在这个地步，成功或者失败已经无关紧要了。” 第三名，不是一个让人欣喜到发狂的名次，也不是一个失落到泪流满面的名次。但胸口好像还是被什么堵着，莫名的空虚，妈妈说高考完了也是这种感觉，无所事事的茫然。看着手机屏幕上的便签——“写作业，弄气候”，现在只觉得双目无焦，按下删除的键，指尖却被刺痛。手机里存了大量的关于气候酷派的资料，什么《FOREVER GREEN》的歌词啊，什么偶尔冒出的新奇想法啊，以前都小心翼翼的不要删除，现在要标记删除都觉得无比困难。以前觉得快完吧，完了就什么都好了，可现在觉得气候酷派融进了自己身体，要剥离起来好疼，而且自己好像已经有了后遗症，看见有关于环保，尤其是节能减排的东西就会觉得恶心，就会想要怎样更好的利用，怎样加到我们小组的活动里。天哪，这种思维究竟多久才会改的回来。一年，漫长的一年，漫长到我中间还得了一次阑尾炎住院。一年，短暂的一年，短暂到和大家一起熬了几百个小时。一年，痛苦的一年，痛苦到想要放弃，生气摔电话哭。一年，快乐的一年，快乐到那几个大家一起熬夜的晚上永远都不可能有了。就这样，完结了。感谢我的爸爸妈妈，不是你们的支持我走不到今天。感谢木头、戈戈，在我最困难的时候你们的加入将我从放弃的深渊拉了回来。感谢牟、张，虽然有过很多不愉快，但我们还是走到了最后。感谢ACE，在最后时候出现。感谢驴叔，谢谢你熬夜制作的视频。感谢陈嵩涛，谢谢你的黑白版队标才使我们的布袋出炉。感谢吴子硕，最后无偿的帮忙，即使我们有时候忙到无视你。感谢孙经理，感谢您让我们可怜的经费变成精致的布袋，我明白你们根本没有利润。感谢+X、晓彤，在我难过的时候给予我安慰。感谢黄主任，虽然钱不多，但学校还是支持我们的活动。感谢胡老师，我明白有很多的钱都是您倒贴的。感谢王老师，我们翘了很多节自习以及请了很多假您都没有说什么。感谢班里所有在第一阶段为我们投票的同学们。感谢所有到场为我们加油的+X、蔚蔚、李夕武、木头的爸妈、胡静的女儿刘颖、我的爸妈……感谢所有帮助过我们的人。还有我的身体，感谢我的身体让我撑到了最后。感谢我自己，即使没有人记得感谢我，即使我才是最该接受感谢的人。就这样，完结。

有关周日的比赛百度太能吞了...重发...***********************************************************12月2日（周日）10：25 - 10：40Evergreen小队（北京市第35中学）展示10：40 - 11：05茶歇12：05 - 13：30午餐15：00 - 15：15茶歇17：00 - 17：20 公布所有小队成绩，单项奖结果及发奖最佳创意奖，最佳团队合作奖，最佳学校组织奖，最佳科研奖主持人公布最佳网络人气奖（结果已于在线投票阶段产生） 17：20 – 17：40公布三等奖（三队）结果及发奖 / 公布二等奖（两队）结果及发奖公布一等奖（一队）结果及发奖*********************************************************以上是有关我们的时间安排，能去的尽量声援啊~~~我们的座位是橘色的4号（七八九排）如果这里图片看不清的去我相册PS.小组成员务必尽快查看邮箱，有重要通知！*********************************************************再次拜托各位...

化学期中复习嗯...我又飘来了...本来这个是做的PPT...天知道标离子符号有多么费劲...于是...我实在完不成了...又怕像上学期一样被骂...就做成截图了嗯...大家凑合看吧...想要原PPT的把邮箱留下...觉得没有用的现在就可以关了

最近在北京的人进来根据团支部书记宋戈的安排，我们要在近期去趟汽南小区（就是上次去的那个），近期在北京的人有可能去的来报到，我统计下人数。（非团里的人员也可报名，算作入团申请的积极活动表现）PS宋戈最近有事，这次活动我带队。

VB 所有的九道题我都做了一遍，已经打包好了，谁要要找我

计算机第九题——显示绘图动态效果 Private Sub Command1_Click()For x = 0 To 4000 Step 0.05Line (1800, 1100)-(1800 + x, 1100), RGB(255, 0, 0)Next xEnd SubPrivate Sub Command2_Click()For x = 0 To 800 Step 0.05Line (1800, 1400)-(1800 + x, 1400 + x), RGB(0, 255, 255), BFNext xEnd SubPrivate Sub Command3_Click()For x = 0 To 4000 Step 400PSet (1800 + x, 2500), RGB(0, 0, 255)Next xEnd SubPrivate Sub Command4_Click()For x = 0 To 500 Step 0.05Circle (2300, 3200), x, RGB(0, 255, 0)Next xEnd SubPrivate Sub Command5_Click()ClsEnd SubPrivate Sub Command6_Click()EndEnd SubPrivate Sub Form_Load()Label1.Caption = "显示动态绘图效果"End Sub

计算机第五题——图片运动这里只是编程部分，实际操作应该都不难（我中文提示要改的都是应该在右侧改）要放一个Timer（左侧那个秒表一样的东西），而且Enabled属性为False，且Interval为1000要注意的是Image1的Stretch应该为True另，图片的地址到时看老师放在哪里就填哪里的路径，这里只是瞎猜 Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = TrueFor x = 0 To 6000 Step 0.1Image1.Left = xNext xFor y = 0 To 4000 Step 0.1Image1.Top = yNext yFor x = 6000 To 0 Step -0.1Image1.Left = xNext xFor y = 4000 To 0 Step -0.1Image1.Top = yNext yIf Image1.Left > 0 ThenTimer1.Enabled = FalseElseTimer1.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseTimer1.Enabled = TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Command2.Enabled = FalseImage1.Picture = LoadPicture("D:\tu\1.jpg")Image1.Left = 0Image1.Top = 0Label1.Caption = NowTimer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption = NowEnd Sub

计算机第四题——绘制三角函数图像这里只是编程部分，实际操作应该都不难Dim x0, y0 As IntegerPrivate Sub Command1_Click()ClsCommand1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Command2_Click()a = Text1.Textb = Text2.Textc = Text3.TextFor X = 0 To 2 * 3.14 Step 3.14 / 180Y = a * Sin(b * X + c)PSet (x0 + X * 500, y0 - Y * 500)Next XCommand1.Enabled = TrueEnd SubPrivate Sub Form_Load()Label1.Caption = "用鼠标单击窗口中一点,以确定坐标位置,然后输入abc各值"Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Clsx0 = Xy0 = YLine (x0 - 500, y0)-(x0 + 3500, y0)Line (x0 + 3400, y0 - 50)-(x0 + 3500, y0)Line (x0 + 3400, y0 + 50)-(x0 + 3500, y0)Line (x0, y0 + 1000)-(x0, y0 - 1000)Line (x0 - 50, y0 - 900)-(x0, y0 - 1000)Line (x0 + 50, y0 - 900)-(x0, y0 - 1000)Command1.Enabled = FalseCommand2.Enabled = TrueEnd Sub

计算机第三题——选图这里只是编程部分，实际操作应该都不难（我中文提示要改的都是应该在右侧改）要注意的是Image1的Stretch应该为True；Height和Width都为1000。BorderStyle改为1-fixed…可出现凹陷感，用老师的话说叫好看另，图片的地址到时看老师放在哪里就填哪里的路径，这里只是瞎猜Private Sub Form_Load()Image1.Picture = LoadPictureOption1.Value = FalseOption2.Value = FalseOption3.Value = FalseOption4.Value = FalseOption5.Value = FalseOption6.Value = TrueOption7.Value = FalseEnd SubPrivate Sub Option1_Click()Image1.Picture = LoadPicture("D:\tu\1.jpg")End SubPrivate Sub Option2_Click()Image1.Picture = LoadPicture("D:\tu\2.jpg")End SubPrivate Sub Option3_Click()Image1.Picture = LoadPicture("D:\tu\3.jpg")End SubPrivate Sub Option4_Click()For x = 1000 To 4000 Step 1Image1.Width = xImage1.Height = xNext xEnd SubPrivate Sub Option5_Click()For x = 4000 To 1000 Step -1Image1.Width = xImage1.Height = xNext xEnd SubPrivate Sub Option6_Click()Image1.Picture = LoadPictureImage1.Width = 1000Image1.Height = 1000End SubPrivate Sub Option7_Click()EndEnd Sub

计算机第二题——显示系统日期或时间这里只是编程部分，实际操作应该都不难（我中文提示要改的都是应该在右侧改）要注意的是HScroll的MAX为255，MIN为0还有就是要放两个Timer（左侧那个秒表一样的东西），而且Enabled属性为False，且Interval为1000Label1的BorderStyle改为1-fixed…可出现凹陷感，用老师的话说叫好看Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()HScroll1.Value = 0HScroll2.Value = 0HScroll3.Value = 0Label1.ForeColor = 0Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub HScroll1_Change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub Option1_Click()Label1.Caption = DateTimer1.Enabled = FalseTimer2.Enabled = FalseEnd SubPrivate Sub Option2_Click()Timer1.Enabled = TrueLabel1.Caption = TimeTimer2.Enabled = FalseEnd SubPrivate Sub Option3_Click()Timer2.Enabled = TrueLabel1.Caption = NowTimer1.Enabled = FalseEnd SubPrivate Sub Text1_Change()If Text1.Text > 255 ThenText1.Text = 255End IfHScroll1.Value = Text1.TextEnd SubPrivate Sub Text2_Change()If Text2.Text > 255 ThenText2.Text = 255End IfHScroll2.Value = Text2.TextEnd SubPrivate Sub Text3_Change()If Text3.Text > 255 ThenText3.Text = 255End IfHScroll3.Value = Text3.TextEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Timer2_Timer()Label1.Caption = NowEnd Sub有问题的及时提出，我不想害了全班人...

计算机第一题——菜单编辑器这里只是编程部分，实际操作应该都不难要注意的是HScroll的MAX为255，MIN为0像gb就是关闭之类的字母缩写大家都明白，我就不啰嗦了Private Sub ct_Click()ct.Checked = Not ct.CheckedText1.FontBold = ct.CheckedEnd SubPrivate Sub Form_Load()ct.Checked = Falsext.Checked = Falsexhx.Checked = Falsez12.Checked = TrueText1.FontSize = 12HScroll1.Value = 0HScroll2.Value = 0HScroll3.Value = 0HScroll4.Value = 0HScroll5.Value = 0HScroll6.Value = 0Text1.BackColor = QBColor(15)Text1.ForeColor = QBColor(0)End SubPrivate Sub gb_Click()EndEnd SubPrivate Sub HScroll1_Change()Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll4_Change()Text1.BackColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)End SubPrivate Sub HScroll5_Change()Text1.BackColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)End SubPrivate Sub HScroll6_Change()Text1.BackColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)End SubPrivate Sub xhx_Click()xhx.Checked = Not xhx.CheckedText1.FontUnderline = xhx.CheckedEnd SubPrivate Sub xt_Click()xt.Checked = Not xt.CheckedText1.FontItalic = xt.CheckedEnd SubPrivate Sub z12_Click()z12.Checked = Truez16.Checked = Falsez20.Checked = Falsez24.Checked = FalseText1.FontSize = 12End SubPrivate Sub z16_Click()z16.Checked = Truez12.Checked = Falsez20.Checked = Falsez24.Checked = FalseText1.FontSize = 16End SubPrivate Sub z20_Click()z20.Checked = Truez16.Checked = Falsez12.Checked = Falsez24.Checked = FalseText1.FontSize = 20End SubPrivate Sub z24_Click()z24.Checked = Truez16.Checked = Falsez20.Checked = Falsez12.Checked = FalseText1.FontSize = 24End Sub刚做的，应该没多大问题

吧里能水的都来先到这里http://www.britishcouncil.org.cn/member/regist.jsp注册一个号再到这里发表评论（每天最好投一票，主要目的是造势）http://www.britishcouncil.org.cn/climatecool/activity_bj_plan_list.jsp?id=14&pg=2&pno=11、2班的评论都没什么内容，不过也125条了，大家去帮忙顶一下吧，咱们才11条！

1 下一页