早些时候会可以当个房奴，自己辛苦点供一套房子，辛苦几年也还是能有一套房子住，现在供房子都没资格了，房子天价，首付都犯愁，就这点工资，自己用都闲不够，哪供得起房子。

这哈心头还是有点难受，人生中又一个选择出现了，我讨厌做选择，而且还是单选的。不是A就是B，选哪个都不好，手心手背都是肉，都心疼。这会儿很想找点高兴的事来说下，就写到这，已经没有心情去写了。

真想漂漂亮亮大哭一场！真受不了。

2月25日，Z404

        当然不光是不爽的事，也有让人心情愉悦的事，刚回成都，踏进公寓大门第一步就眼前一亮，进进出出的人流其中不乏有让人看着舒服的学妹，要说以前没看到，只能说没有关注，整天都泡在寝室当然难发现美女，说老实话成都美女还真的多。

        毕业设计已经修改完毕，明天打印然后去答辩，答辩完毕才装订。上午十点照毕业照，答辩时间安排在下午两点半，晚上班上聚餐。吃最后一顿散伙饭，吃完就各奔东西，想到这些，心里还真的不爽，有点伤感。最不爽的是又要急到回公司，想多呆几天都不得行。

        天下没有不散的宴席，离开只是为了下次的相聚，此时此刻，我正经历着所有毕业生曾经有过的经历，离开母校，离开同学，离开生活了4年的城市，真的很不舍。说着说着就进入状态了，再这样下去就要影响下午办事效率了。

        再见了，成都！再见了，我的母校，我的同学朋友们！

去年元旦前后留影，不少人在这里留影。建设路 ----- 还是比较热闹的一条街。-- （田伟周边）

成华区政府耗资数亿打造“成都第二春熙路” --- 成都建设路  -- （田伟周边）

高地的国际甲级写字楼，现代化都市的象征。 -- 田伟周边

从谷歌卫星地图（08年2月数据）可以看到建设中的高地（高地，房地产商）。-- （田伟周边）

 这里就是我呆了几年的科大润新公寓（又叫万人坑）。-- （田伟周边）

 百度平面地图和谷歌卫星地图。平面、立体双感观。-- （田伟周边）

今天帮成都搞了下宣传，虽然我不是成都本地人，但是也很热爱成都的一草一木，热爱这个城市。图片排版不太美观，也没处理，本来是打算PS一下让图片更美观更有条理的。。。。。。没精力，累得很。

最后来看一个视频，叫钢管兄弟游成都。

我的设计步骤：

1.找到并运行VB（我用的是VB6.0中文企业版），首先新建一个“标准 EXE”，如果已经有做好的工程，可以在“现存”中打开。

2.在FORM1上添加两个TextBox控件，一个Picturebox控件，两个CommandButton，效果如下图。可以根据自己喜好布局。

3.更改控件的标题(Caption)，更改完后添加一个"Image"，在FORM1的任意位置添加都可以，加好后在“Image”属性窗口找到"Picture"选项，这里可以打开更改FORM的背景图片，然后添加两个Lable并且更改其Caption，我改的是“身高（CM）”“体重（KG）”。FORM最上端的“身体质量指数”“BMI测试”也是两个Lable控件，改下标题属性和字体就能达到下面截图效果。

4.上面的步骤做好后就可以编写代码了，编写代码这一步也可以在第二步的时候做。当然编写好代码后我们还要进行调试，尽量找出BUG。

BMI计算公式：BMI＝体重/身高2

体重：单位：公斤 （Kg） 身高：单位：米 （M）

正常范围：18.5≤BMI < 24
体重过重：24≤BMI < 27
轻度肥胖：27≤BMI < 30
中度肥胖：30≤BMI < 35
重度肥胖：BMI≥35

下面是我写的代码，主要是加入了一些取值判断，比如不能为负数，不能小于或者大于莫数值。

Private Sub Command1_Click()
Dim x
If Text1.Text = "" Or Text2.Text = "" Then
    Picture1.Print "请将数据填写完整"
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Text1.Text < 55 Or Text1.Text > 300 Then        '解决当身高(TEXT1)不满足条件但
Picture1.Print vbCrLf; "身高取值范围:55-300"       '体重满足(TEXT2)条件时点击计算
Command1.Enabled = False                           '显示结果的BUG.
Exit Sub                                           '
End If                                             '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
x = Round(Val(Text2.Text / (Text1.Text / 100) ^ 2), 2)
Picture1.Cls
If 20 <= x And x <= 22 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:最佳"
ElseIf 18.5 <= x And x < 20 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:正常体重"
ElseIf 22 < x And x < 24 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:正常体重"
ElseIf x < 18.5 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:偏瘦"
ElseIf 24 <= x And x < 27 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:体重超重"
ElseIf 27 <= x And x < 30 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:轻度肥胖"
ElseIf 30 <= x And x < 35 Then
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:中度肥胖"
Else
Picture1.Print vbCrLf; "BMI值:" & x; vbCrLf; vbCrLf; "测试结果:重度肥胖"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()
Picture1.Cls
If Text1.Text = "" Then
Picture1.Print vbCrLf; "身高取值不能为空"
Command1.Enabled = False
ElseIf Text1.Text < 55 Or Text1.Text > 300 Then
Picture1.Print vbCrLf; "身高取值范围:55-300"
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

Private Sub Text2_Change()
Picture1.Cls
If Text2.Text = "" Then
Picture1.Print vbCrLf; "体重取值不能为空"
Command1.Enabled = False
ElseIf Text2.Text <= 0 Or Text2.Text > 600 Then
Picture1.Print vbCrLf; "体重取值范围:1-600"
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

5.代码编写好后，就编译测试，看有无语法错误等。编译测试通过就可以生成EXE可执行文件。下图中，鼠标放在文本框显示身高取值范围:55-300这个效果是在文本框属性窗口中的ToolTipText里面设置或更改。

6.取值判断，身高取值范围我设置的是55-300厘米，世界上目前还没超过3米的人。

体重数值：这里我设置的范围是1-600公斤，目前世界上最重的人已经打破500公斤。

如果没有达到取值范围的要求，计算按钮将是灰色不可用的。

7.最终运行效果如下，欢迎大家指点。

                        （VB 身体质量指数BMI计算小程序）

虽然这样的小工具网上也有不少，但是用自己做出来的和使用别人做的感觉都不一样，小小的成就感吧，如果有同学需要可以给我留言。

回寝室拿到证件（身份证），迈步向邮局走去，邮局离学校公寓不到一公里，过去还是很快。到邮局我把证件给工作人员登记，我看到桌上放着万网给我邮寄的挂号信，工作人员在我回去拿证件的时候已经把出来了。拿到信我仔细看了下，上面的邮戳也是3月15号的，这样看来已经到邮寄有十来天，邮件上面有一张批条，上面下的是“3.15 9：50 电话联系无人接听”。我看了下邮件上留的是寝室座机电话，寝室的座机已经挂了好久了，打进来的电话接到都没有声音，估计因为这个原因投递员就把信打回来邮局。

这就是信封外观，还印有万网的LOGO。信封左上角就是邮局批条，如果再不去领可能就要收保存费了。

拆开信封里面有万网发票一张（这是主角），万网广告一张（广告无处不在）。

 玩乐一整年 万网会员积分换大礼。（一千多分能换撒？）

这就是主角了，-万网开的发票。北京市邮电通信、金融保险业专用发票。

发票上像刮奖的那个是密码，我开始以为是刮奖区。。。

这有一个小小的插曲，我同学看到这个发票问了我一句，把我雷到了。他问道：“你买的保险哇”

不要广告合个影吧。

 图片来自于网络，版权归原作者所有。