2008年9月29日星期一

2天以后回家

9点起来
趁着兴致，下载几首摩杰座，试听完后选了1手中国风——从新爱（大概是这个名），放进千千静听
悠扬深情的旋律，仿佛让我穿越到明朝，虽然听不清歌词


2天以后
回家，去南山之麓，田路阡陌，青山绿水，悠然自得；
聚首，找一块场地，踢一个下午的球，重温记忆，年少轻狂；

发贴者：Everlasting ShanshanCai @ 11:04 0 条评论

2008年9月11日星期四

这个博客居然能用了

难道我又可以重新开始写写日志了么

标签：

发贴者：Everlasting ShanshanCai @ 19:31 0 条评论

2007年5月13日星期日

512与小护士小游宁波溪口，雪窦山











发贴者：Everlasting ShanshanCai @ 22:06 1 条评论

2007年5月6日星期日

07的五一

最为轻松愉快的五一节！
就这样很快的过去了，我又回到了寝室，电脑面前，开始了似乎有着规律的生活

最开心的莫过于shanshan和我不分开的过完了这个节日，我们很有兴致打着单调的二人诸暨麻将，也打着三人的千分扑克游戏，日复一日，而且衣食无忧。我们去过一趟义乌，带着并不廉价的批发货，为了回家在车站逗留了4个小时等半夜12点的慢车，还闹了别扭，不过还是打了千分。

没有游山玩水，但也感受到春日的朝气和光芒，那普照大地的一刻似乎只有在这个儿时的城市才让人感觉到永恒，还有那傍晚吹拂的风，风就应该给人以这种舒适清凉的感觉，只有在这里才有的感觉。

看完了一本书，“明朝的那些事儿”，从前bbs上连载的延续，相信很多人喜欢

标签：

发贴者：Everlasting ShanshanCai @ 20:16 4 条评论

2007年4月28日星期六

第四章第二次

1.
Private Function jiecheng(n As Integer) As Long
Dim n As Long
n = 1

For i = 1 To n
n = n * i
Next

jiecheng = n

End Function
Private Sub Command1_Click()

Dim sum As Long
Dim i As Integer
sum = 0
For i = 1 To 10
sum = sum + jiecheng(i)
Next

Text1.Text = sum

End Sub


2.
Private Sub Command1_Click()
Dim s As Integer
Dim m As Integer
Dim n As Integer
s = Text1.Text
For m = 3 To s / 2
If sushu(m) And sushu(s - m) Then
Text2.Text = m
Text3.Text = s - m
Exit For
End If
Next
End Sub

Private Function sushu(x As Integer) As Boolean
If x = 1 Then
sushu = False
Else
If x = 2 Then
sushu = True

Else

For n = 2 To x / 2
If x Mod n = 0 Then
Exit For
End If
Next

If n > x / 2 Then
sushu = True
Else
sushu = False
End If

End If
End If
End Function

3.
Private Sub sum(m As Integer, n As Integer, ByRef s As Double)
Dim i As Integer
Dim sum As Double
sum = 0
For i = 1 To n
sum = sum + mi(m, i) / jiecheng(i)
Next
s = sum

End Sub
Private Function mi(m As Integer, n As Integer) As Long
mi = 1
For i = 1 To n
mi = m * mi
Next
End Function


Private Function jiecheng(n As Integer) As Long
Dim prod As Long
prod = 1

For i = 1 To n
prod = prod * i
Next

jiecheng = prod

End Function
Private Sub Command1_Click()
Dim m%, n%, y As Double
m = 2: n = 10
Call sum(m, n, y)
Text1.Text = y
End Sub

发贴者：Everlasting ShanshanCai @ 16:02 0 条评论

2007年4月23日星期一

inter和我，和我的朋友在一起

岁月蹉跎，而老将至。
虽然我没有成就一点资本，可inter终于夺冠了。自从1999年开始企盼这个意甲联赛冠军，到今日终于如愿以偿，比起2002年5月5日的兴奋与伤感，如今却没有过多的激动，心头却有一丝的默落。或许是今年的冠军胜之不武，来的太过容易，或许腹肉再生的麻木，也或许身边没有了一起庆祝的好友。总之，除了现在有点百感交集之外，昨晚夺冠的瞬间，我确实没有过多的激动！

美国的鸭蛋，北京的大海，我们从高中开始的梦就这样实现了，从今天开始继续奋斗

但是请让我们记住这一天吧！
马特拉齐进两球 国际米兰提前5轮卫冕意甲冠军 4月22日 22:52



冠军献给Javier Zanneti, 泪。。。。。

“哈维尔-萨内蒂是马西莫-莫拉蒂主席在1995年入主俱乐部以后买进的第一名球员。在国际米兰队锡耶纳的决定性胜利以后，队长说：“感觉非常好，整个国际米兰大家庭应该得到它，从马西莫-莫拉蒂，他已经做出了很多牺牲，到我们的众多球迷们，他们应该得到这个巨大的乐趣。我们应该成为意大利的冠军。我们将品味这个瞬间。”

　　“冠军将献给谁呢？献给所有国际米兰球迷，以及那些不再和我们在一起的人们像扎琴多-法切蒂、佩皮诺-普里斯科和伟大的贝尼托-洛伦齐；从个人角度说，献给我的妻子和女儿。我们今天都深受鼓舞，我们的确能感受到这场比赛。我们竭尽全力，获得了这场比赛的胜利，并获得了这个意甲冠军。”
”
我们的主席



我喜爱的Dejan和Hernan




最后是我们颇具争议的Robert Mancini和他的家人,但是英俊这一点毋庸置疑





以上图片感谢inter官网提供@inter

发贴者：Everlasting ShanshanCai @ 20:44 2 条评论

2007年4月22日星期日

Pierce Brosnan 推荐影片之Dante's Peak（1997）

<待补>
Dante's Peak bt下载地址：右边link



导 演： (罗杰·唐纳森 Roger Donaldson)

主 演： 皮尔斯 布鲁斯南 Pierce Brosnan
　　　　琳达 汉弥顿 Linda Hamilton

上 映： 1997年02月07日 美国 更多地区

地 区： 美国 更多详细拍摄地

对 白： 英语

评 分：

IMDb评分5.5/10( 13090票 )　详细

颜 色： 彩色

声 音： 数字化影院系统(DTS)

时 长： 109 分钟

类 型： 动作 冒险 剧情

分 级： 美国：PG-13 冰岛：12 阿根廷：13 澳大利亚：M 加拿大：PG 芬兰：K-12/9 法国：U 德国：12 荷兰：12 挪威：15 波兰：15 葡萄牙：M/12 新加坡：PG 西班牙：7 瑞典：11 英国：12

发贴者：Everlasting ShanshanCai @ 19:03 0 条评论