黄泉川彼方 发表于 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

要学语句什么的吧- -
页: 1 [2] 3 4 5
查看完整版本: 绝体绝命的大危机…