Nw BBS 壬天堂世界

 找回密码
 注册
搜索
热搜: 资料集合
楼主: 黄泉川彼方
收起左侧

绝体绝命的大危机…

[复制链接]
 楼主| 发表于 2010-11-23 23:57:29 | 显示全部楼层
叫我妈检查
结果发现我从早上七点到晚上七点都有流量
回复

使用道具 举报

 楼主| 发表于 2010-11-23 23:57:55 | 显示全部楼层
那别人怎麼找你
adolyan 发表于 2010-11-23 21:55
今天第一天,以后我也不知道
回复

使用道具 举报

发表于 2010-11-24 01:35:11 | 显示全部楼层
- - 我表示 有几个充电口给你配,,, 要是主板坏掉就没法了...
那个酸奶的貌似还有救
回复

使用道具 举报

 楼主| 发表于 2010-11-24 01:45:24 | 显示全部楼层
要不我过几天一起寄来
回复

使用道具 举报

发表于 2010-11-24 02:05:29 | 显示全部楼层
要不我过几天一起寄来
黄泉川彼方 发表于 2010-11-24 01:45

哦......是1000还是2000 或者3000?
哦...打你电话了..表示没有反应  其实自己自己的话就不用家人收手机 学校还真是多此一举.........不过只是想提高高材生率从而提高入学率
回复

使用道具 举报

 楼主| 发表于 2010-11-24 02:21:55 | 显示全部楼层
一个一千一个两千
手机在我妈那啊啊啊- -
回复

使用道具 举报

发表于 2010-11-24 03:22:18 | 显示全部楼层
手机嘛!还是有必要用,学校太那个了。
回复

使用道具 举报

发表于 2010-11-24 09:55:48 | 显示全部楼层
叫我妈检查
结果发现我从早上七点到晚上七点都有流量
黄泉川彼方 发表于 2010-11-23 23:57

说开着自动刷新忘记关了
回复

使用道具 举报

发表于 2010-11-24 10:01:05 | 显示全部楼层
正准备出手一部3000,谁有兴趣
回复

使用道具 举报

发表于 2010-11-24 10:04:07 | 显示全部楼层
说开着自动刷新忘记关了
超夢 发表于 2010-11-24 09:55

一个月30天都在开着
回复

使用道具 举报

发表于 2010-11-24 10:05:33 | 显示全部楼层
正准备出手一部3000,谁有兴趣
四四目目 发表于 2010-11-24 10:01

求版本和价格…=  =
回复

使用道具 举报

发表于 2010-11-24 10:14:17 | 显示全部楼层
求版本和价格…=  =无名神风 发表于 2010-11-24 10:05
哦学巴士上教程破解的,具体版本不记得,但是都可以破……价格哦不懂……谁给个参考
回复

使用道具 举报

发表于 2010-11-24 10:25:37 | 显示全部楼层
哦学巴士上教程破解的,具体版本不记得,但是都可以破……价格哦不懂……谁给个参考
四四目目 发表于 2010-11-24 10:14

木有主板版本感觉很难估价…=  =
回复

使用道具 举报

发表于 2010-11-24 12:56:39 | 显示全部楼层
一个月30天都在开着
月下の白兔 发表于 2010-11-24 10:04
手机没关嘛,然后黄泉泉是好孩子,之后都没开过UC没发现-____,-
回复

使用道具 举报

发表于 2010-11-24 14:14:11 | 显示全部楼层
和她说我的搜狗输入法整天自动连线更新…然后流量就没了…=  =
回复

使用道具 举报

 楼主| 发表于 2010-11-24 16:25:30 | 显示全部楼层
卖多少 有点兴趣
信息课又教vb
当我们是小学生麽
回复

使用道具 举报

发表于 2010-11-24 16:26:57 | 显示全部楼层
VB是编程?有什么问题么= =
回复

使用道具 举报

 楼主| 发表于 2010-11-24 16:28:59 | 显示全部楼层
范例:公园售票系统:
Private Sub Command1_Click()
Dim height As Double
height = CInt(Text1.Text)
If height >= 120 Then
Text2.Text = " 全票"
ElseIf height >= 100 And height < 120 Then
Text2.Text = " 半票"
Else: Text2.Text = " 免票"
End If
End Sub

































用语言描述或者流程图的方式来叙述下列代码的工作流程。
1.成绩
Private Sub Command1_Click()
Dim score As Integer
Dim grade As String
score = InputBox("请输入你的成绩")
If score >= 60 Then
grade = "及格"
Else
grade = "不及格"
End If
Text1.Text = "你的成绩是:" & grade
End Sub

2.计算(有能力者选做)
Private Sub Command1_Click()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim an As Integer

For i = 1 To 10
a = Int(Rnd * 1000 + 1)
b = Int(Rnd * 1000 + 1)
Frame1.Caption = "题目:" + CStr(a) + "+" + CStr(b)

an = InputBox("请输入正确答案")
c = a + b
If Int(an) = Int(c) Then
MsgBox "对了,你真行"
Else
MsgBox "错了,继续加油!"
End If
Next i

End Sub
回复

使用道具 举报

 楼主| 发表于 2010-11-24 16:29:40 | 显示全部楼层
小学生都会作吧233
回复

使用道具 举报

发表于 2010-11-24 16:36:31 | 显示全部楼层
要学语句什么的吧- -
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|Archiver|Nw壬天堂世界 ( 京ICP备05022083号-1 京公网安备11010202001397号 )

GMT+8, 2024-11-15 01:58 , Processed in 0.024899 second(s), 2 queries , Redis On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表