10坏小子
10坏小子
石家庄
关注数: 34
粉丝数: 106
发帖数: 3,012
关注贴吧数: 4
选修电视文化……来的人也太多了吧 快满了
我的电脑打开QQ飞车后进不去 出现这个图 中么办啊 高手们
9月30号的T5686石家庄到高碑店的火车票（一张）有要的吗？ 电话 18732183335
跪求学府书店位置 Ｏrz
啊…主啊…家人在北京给我买了y470NIFI……五千七百六… 好像还没票…你们想说什么
求教：笔记本硬盘640G…750G有多大的区别？
Y470nifi现在多少钱可以入手？还有硬盘750和640有多大的区别啊？ 小白求教……
卧槽…又快情人节了…让我情何以堪…
【求】y470NIFI用CAD…VB等软件没问题吧 游戏没问题…就怕买了学习的用不了…是不是多虑了
朋友开店Y470要五千多…这个多我该控制在多少啊…求吧友帮忙啊 还有就是没了
Y470要五千多（没具体）…要包鼠加一百…thinkpad E420要五千…都是 还有这是朋友的店…我该注意点儿什么
哈哈…来除草的
中关村的Y470NIFI多少钱啊？！带什么东西？！有买过得吗 如题
【签到】2011-07-07明天早上七点零六分…石家庄到高碑店… 要回家了…
新生群…51801695…欢迎你的加入 交流…
大婶们帮忙看看这段代码 Dim a%, b%, c%, z%, i%, n%, y%, k% Public x% Private Sub Command1_Click() Form5.Hide Form1.Show End Sub Private Sub Command2_Click() Form5.Hide form2.Show End Sub Private Sub Command3_Click() Randomize y = y + 1 a = Int(Rnd * 50) + 1 b = Int(Rnd * 50) + 1 c = Int(Rnd * 2) + 1 Select Case c Case 1 Label1.Caption = a Label3.Caption = b Label2.Caption = "+" z = a + b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z Case 2 If a < b Then t = b: b = a: a = t End If Label1.Caption = a Label3.Caption = b Label2.Caption = "-" z = a - b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z End Select If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False Then n = MsgBox("你确定要放弃吗") If n = 1 Then a = Int(Rnd * 50) + 1 b = Int(Rnd * 50) + 1 c = Int(Rnd * 2) + 1 Select Case c Case 1 Label1.Caption = a Label3.Caption = b Label2.Caption = "+" z = a + b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z Case 2 If a < b Then t = b: b = a: a = t End If Label1.Caption = a Label3.Caption = b Label2.Caption = "-" z = a - b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z End Select End If End If If y >= 7 Then Command1.Enabled = False Command2.Enabled = True End If If x >= 1 Then Picture1(k).Picture = LoadPicture("f:\程序设计2\图片\图片\xiaolian.jpg") End If End Sub Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) For i = 0 To 3 Option1(i).Value = False Next i End Sub Private Sub Command4_Click() Hide form2.Show End Sub Private Sub Form_Load() For i = 1 To 8 Picture1(i).Picture = LoadPicture("f:\程序设计2\图片\蓝背景2.jpg") Next i Me.Picture = LoadPicture("f:\程序设计2\图片\2.jpg") For i = 0 To 3 Option1(i).Value = False Next i Randomize a = Int(Rnd * 50) + 1 b = Int(Rnd * 50) + 1 c = Int(Rnd * 2) + 1 Select Case c Case 1 Label1.Caption = a Label3.Caption = b Label2.Caption = "+" z = a + b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z Case 2 If a < b Then t = b: b = a: a = t End If Label1.Caption = a Label3.Caption = b Label2.Caption = "-" z = a - b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z End Select End Sub Private Sub Form5_Load() a = Int(Rnd * 50) + 1 b = Int(Rnd * 50) + 1 c = Int(Rnd * 2) + 1 Label1.Caption = a Label3.Caption = b Select Case c Case 1 Label2.Caption = "+" z = a + b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z Case 2 If a < b Then t = b: b = a: a = t End If Label2.Caption = "-" z = a - b For i = 0 To 3 Option1(i).Caption = Int(Rnd * 100) + 1 Next i Option1(Int(Rnd * 4)).Caption = z End Select Label4.Caption = "=" End Sub Private Sub Option1_Click(Index As Integer) If y = 7 Then Picture1(8).Picture = LoadPicture("f:\程序设计2\图片\机器猫.jpg") For i = 0 To 3 Option1(i).Visible = False Next i Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" Label4.Caption = "" End If If Option1(Index).Caption = z Then x = x + 1 k = y + 1 End If End Sub
【签到】2011-07-02下了一天雨…明天晚上程序答辩
【签到】2011-06-30晚安…
如何在VB中插入背景音乐。。。初学者…求强人帮忙啊 所有运行过程中都要有…求方法…
【签到】2011-06-29说到就要尽力做到…你尽力了吗？呵呵 神马都是浮云…艹
【签到】2011-06-28程序…爷来了 干掉你…
童鞋们…咱们学校有法学系的研究生吗？？？在线等
求助…咱们学校有法学的研究生吗………在线等 急…急…
【签到】2011-06-27程序…你妹
【签到】2011-06-26宅
【签到】2011-06-25回学校
【签到】2010-06-24继续裸婚…
裸婚时代中…嘎嘎
【签到】2011-06-23去年前年凌晨在等高考成绩…各种兴奋…各种睡不 高考的小童鞋们…辛苦了
【签到】2011-06-22考试结束 中考结束 高考出成绩 哎？！！！1
【签到】2011-06-21预习VB…中考加油
【签到】2011-06-20英语考完了
【签到】2011-06-18赖床中
【签到】2011-06-16睡觉啦
马的 用俩电脑刷选课系统 悲剧
【签到】2011-06-15强忍欢笑很痛苦的…呵呵… 也许长痛不如短痛…恩…继续没心没肺…敢问有几个人能真正做到…呵呵
求《建筑材料》教材一本… 大四的学长学姐快走了…急啊
【签到】2011-06-14大物完了 恩…不想说话…
【签到】2011-06-13高数考完了
【签到】2011-06-12化学考完了
【签到】2011-06-11其实我不是没心没肺…我只是不想承诺… 加油加油加油加油加油加油加油臭混蛋…
【签到】2011-06-10继续学习吧
【签到】2011-06-09压力好大…不想让你失望 为什么这么晚才让我遇到你…难以忘记
【签到】2011-06-08高考加油…笨蛋加油…我也加油…挂科受虐 虽然很有压力…一定要坚持住
今年的端午很特别…谢谢你… 笨蛋笨蛋两个笨蛋…
兄弟高考加油…等你好消息…以后我儿子也指望你呢…加油 考个军校回来…我儿子也要当兵
【签到】2011-06-07是真的吗？想了好多… 发现自己有时候好笨…不懂… 农村人我有些招架不住
【签到】2011-06-06昨天竟然没签到…这两天行动有些让我认不得自己 今天玩儿的很嗨…要努力学习了
【签到】2011-06-03周四考试…下周四继续考试…下周日继续考试…然
【签到】2011-06-02太尼玛热了…继续学习 考试神马都是浮云
【签到】2011-06-01节日快乐 想当年小学为了一张三好学生的奖状都能哭一鼻子的我变的越来越不要强了…好像什么都无所谓了
【签到】2011-05-31坚持一天明天又有流量了
【签到】2011-05-30
【签到】2011-05-29昨天下午的考试挪到了今天上午… 恩…
【签到】2011-05-28下午考试
【签到】2011-5-27又周五了… 明天考试
【签到】2011-5-26兄弟加油
【签到】2011-5-24悲剧了 额。。。
。。。。。。。。。 如果 删帖 后果 ？？？
【签到】2011-5-24还有十天该高考了…去年…前年的我在忙碌…现在的 下午导员给我们班开会…不知道挨批的会不会有我
首页
1
2
下一页
