zgl263885058的个人资料 - RAT

zgl263885058 zgl263885058

关注数: 4 粉丝数: 34 发帖数: 595 关注贴吧数: 10

秀两张从松浦大桥拍的照片，手机拍的哦

应广大吧友要求，今日特拍下此图分享。。。黑科技人才啊。。。主楼三楼那个地方。。。。你懂得。

应广大吧友要求，今日特拍下此图分享。。。黑科技人才啊。。。主楼三楼那个地方。。。。你懂得。

建议：捡到一卡通之类的刷不了的话就交了吧！求求哪些捡了没交的同学了，我都3张一卡通在你们手里了，刷两次给送沁芳园一楼失物招领处吧，你们拿着也没用，交了失主会由衷感谢你的。。。。

借个炭炉，烧烤炉子，谁有啊？周六想去同学生日，想去江心岛玩，谁炭炉子啊？烧烤那种啊，有木有啊？

有没有谁在主楼西区二楼上课？注意到那个极品涂鸦了没有？西区二楼某仙人在被雨水腐蚀的墙壁上涂鸦一特有才图片，挺震撼。。。全体校友赶紧看，用不了多久就和谐了。。。碍于面子，没拍照。。。下次一定拍回来！

对于周末寝室的网速，你们想想说什么？可以用家乡话。。。。。。打开个网页用了半个小时，且只打开了一半。。。

关于寝室电费，算算账！！！！！！！！！我们计算一下，一个电棒40瓦，2个就是80瓦，每天5个小时就是0.4kwh，30天就是12度电。笔记本正常使用按30瓦每个，4台的话就是120瓦（且当100w吧）每天6小时，一周5天是30小时，周六周天10小时，一周共50小时。一个月4个半月，225小时，22.5度电。合计36度。这个是保守估算了吧？每年的住宿费交哪里了？照明就用掉了一半的电，还要不要人过日子了？

今晚东湖表白失败事件，最主要还是湖水太浅今晚东湖表白失败事件，最主要还是湖水太浅，根本镇不住女猪脚。男猪脚不行啊。。。

电信手机丢了，有谁出没有啊？电信手机丢了，有谁出没有啊？哎，楼下有同命相怜人贴的寻物启事，怎么这么多捡手机不还的人呢，郁闷。

【注意】黑龙江科技学院【假豆浆】分布，今天你喝了没有？昨天看了新闻才知道，喝了那么多次奇怪的豆浆原来是假豆浆。沁芳园2楼乐地铁早上的果味豆浆，和买烤肠那个水吧最近也有所谓的醇豆浆了，我没喝，但是目测百分之九九是假的。分为餐厅的塑封豆浆绝对百分百假豆浆，而且是特劣质的那种，没有豆浆味道，甜的恶心，假如你边喝变坐车估计能加速晕车，亲测，艹了，本来不我喝了后吐酸水了，妈的，当时以为放糖精的原因，如今看来是纯假豆浆啊。特色的塑封那种应该也是假的，只不过没有那么甜如今能大概确定是真豆浆的只有基本大伙（沁芳园1楼，三楼，二食堂2楼，还有便民服务部（就喝过一次，应该是真的，有豆渣在））这几个地方的豆浆能喝，其他都是假豆浆。假豆浆怎么勾兑网上有，反正我觉得喝多了没有好处。

文化广场的舞蹈本来挺好的，怎么后来。。。谁提议将“最炫民族风”作为一个舞曲了！！！我擦，这尼玛以后再也不跳了。。。不解释！

谁有学校改名的最新消息？有希望没有了？谁有学校改名的最新消息？有希望没有了？09的毕业证能换名字么？

“寻人启事”事件结果即将出来，你们说我还要不要贴照片了啊？经过一番广告宣传与，终于找到了那位帅哥的女朋友了，据举报人称，女生正在哭呢。哎，不过还没有主动打电话过来，本来查清楚这个人后已经联系他们导员了，他们导员正在等着要照片呢。那个帅哥还没有消息，不知道是什么意思，抽玉溪的帅哥，我真想把你贴出来！话说回来，此次广告投入2元彩印，4张a4寻人启事（没来得及贴就听说女生哭着呢）5毛钱。主要通过贴吧和网络宣传，感谢大家的关注，给当事人巨大的心理压力，呵呵。大家说说，这个处分得付出多大代价？

这个模块，VB将 Excel的文件导入 Access文件，错在哪？我试了一下，总是提示错误，请大家给试试。这个模块其实挺有用的。做好能不能给我发邮箱个啊？简单的实例就可以，一个按钮就行。。。谢谢大哥大姐们了！！！[email protected] 此一模块共有四个参数： 1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1 2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls 3、sAccessTable：要导入的 Access Table 名称，例如 TestTable 4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb 在声明中加入以下： Private Sub ExportExcelSheetToAccess(sSheetName As String, _ sExcelPath As String, sAccessTable As String, sAccessDBPath As String) Dim db As Database Dim rs As Recordset Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0") Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _ sAccessTable & " FROM [" & sSheetName & "$]") MsgBox "Table exported successfully.", vbInformation, "Yams" End Sub 使用范例如下：将 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

寻人启事寻人启事 4月29日晚上7点50在赛特超市刷卡消费241+2+59+0.3元钱的长发哥们还有您女朋友(呵呵，录像里看到的)，请看到此启事后速与我联系，你们刷卡过程已被录像，不联系的话我就放高清图片到全地球，你懂的。 Tel：137-6688-3723 QQ：2638-85058

vb 编写简易计算器，1.1版来啦，谢谢大家的指正，还望继续~ 修改了部分缺陷，改变了数据类型，添加了计算数据的预判及提示。下载地址：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2F115.com%2Ffile%2Fe6axd7lh%23&urlrefer=1350a8c6243f00132d4b78daa417ea24 简易计算器1.1.rar 本软件纯属学习交流之用，版权所有，盗版不究。 "承蒙各位网友指点，此次对代码中的部分不足做出了修改，比如数据输入合理性判断以及数据类型的修改，界面微调，不过还有bug没有办法修改，比如tan180无法进行正确计算，还请各位高手雅正，不胜感激！"Dim sum As Double Dim k As String Dim pi As Double Dim c As Double Dim d As Double Dim n As Double Dim x As Double Function ln(x) ln = Log(x) / Log(10) End Function Function Logn(x) Logn = Log(x) / Log(n) End Function Private Sub check_Click() Shell "C:\WINDOWS\explorer.exe http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fuser.qzone.qq.com%2F263885058%2Fblog%2F1322900561&urlrefer=a34806b396b99a9e93b29157c03bd775" End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Text1.Text = Text1.Text & 1 Case 2 Text1.Text = Text1.Text & 2 Case 3 Text1.Text = Text1.Text & 3 Case 4 Text1.Text = Text1.Text & 4 Case 5 Text1.Text = Text1.Text & 5 Case 6 Text1.Text = Text1.Text & 6 Case 7 Text1.Text = Text1.Text & 7 Case 8 Text1.Text = Text1.Text & 8 Case 9 Text1.Text = Text1.Text & 9 Case 0 Text1.Text = Text1.Text & 0 Case 10 Text1.Text = Text1.Text & "." End Select End Sub Private Sub Command2_Click(Index As Integer) If Text1.Text = "" Then MsgBox "请先输入第一个数字后再点击符号" Else Select Case Index Case 0 sum = Text1.Text Text1.Text = "" k = "+" Case 1 sum = Text1.Text Text1.Text = "" k = "-" Case 2 sum = Text1.Text Text1.Text = "" k = "*" Case 3 sum = Text1.Text Text1.Text = "" k = "/" End Select End If End Sub Private Sub Command3_Click() If Text1.Text = "" Then MsgBox "您未输入任何需要计算内容，请先输入需要计算内容" Text1.Text = "" Text2.Text = "" Label2.Caption = "" Label3.Caption = "" Else Dim a As Double a = Text1.Text If k = "+" Then sum = sum + a Text2.Text = sum ElseIf k = "-" Then sum = sum - a Text2.Text = sum ElseIf k = "*" Then sum = sum * a Text2.Text = sum ElseIf k = "/" Then If Text1.Text = 0 Then '判断除数是否为0，若为零弹出信息框并清空输入数据，要求重新输入 MsgBox "除数不能为零！请重新输入" Text1.Text = "" Text2.Text = "" Label2.Caption = "" Label3.Caption = "" a = 0 b = 0 k = "" Else sum = sum / a Text2.Text = sum End If ElseIf k = "sin" Then '等号的三角计算 sum = Sin(a * pi / 180) Text2.Text = sum ElseIf k = "cos" Then sum = Cos(a * pi / 180) Text2.Text = sum ElseIf k = "tan" Then Dim m As Integer Dim n As Integer m = a Mod 180 - 90

1 下一页