黄泉川彼方
发表于 2010-11-23 23:57:29
叫我妈检查
结果发现我从早上七点到晚上七点都有流量
黄泉川彼方
发表于 2010-11-23 23:57:55
那别人怎麼找你
adolyan 发表于 2010-11-23 21:55 http://bbs.newwise.com/images/common/back.gif今天第一天,以后我也不知道
forge軍曹
发表于 2010-11-24 01:35:11
- - 我表示 有几个充电口给你配,,, 要是主板坏掉就没法了...
那个酸奶的貌似还有救
黄泉川彼方
发表于 2010-11-24 01:45:24
要不我过几天一起寄来
forge軍曹
发表于 2010-11-24 02:05:29
要不我过几天一起寄来
黄泉川彼方 发表于 2010-11-24 01:45 http://bbs.newwise.com/images/common/back.gif
哦......是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 http://bbs.newwise.com/images/common/back.gif
说开着自动刷新忘记关了
四四目目
发表于 2010-11-24 10:01:05
正准备出手一部3000,谁有兴趣
月下の白兔
发表于 2010-11-24 10:04:07
说开着自动刷新忘记关了
超夢 发表于 2010-11-24 09:55 http://bbs.newwise.com/images/common/back.gif
一个月30天都在开着
无名神风
发表于 2010-11-24 10:05:33
正准备出手一部3000,谁有兴趣
四四目目 发表于 2010-11-24 10:01 http://bbs.newwise.com/images/common/back.gif
求版本和价格…==
四四目目
发表于 2010-11-24 10:14:17
求版本和价格…==无名神风 发表于 2010-11-24 10:05 哦学巴士上教程破解的,具体版本不记得,但是都可以破……价格哦不懂……谁给个参考
无名神风
发表于 2010-11-24 10:25:37
哦学巴士上教程破解的,具体版本不记得,但是都可以破……价格哦不懂……谁给个参考
四四目目 发表于 2010-11-24 10:14 http://bbs.newwise.com/images/common/back.gif
木有主板版本感觉很难估价…==
超夢
发表于 2010-11-24 12:56:39
一个月30天都在开着
月下の白兔 发表于 2010-11-24 10:04 http://bbs.newwise.com/images/common/back.gif手机没关嘛,然后黄泉泉是好孩子,之后都没开过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
要学语句什么的吧- -