乙個有趣的統計

出於好玩的態度，我從4月起開始持續對我的部落格每日訪問情況在excel中做了個記錄，記錄的格式如下：

今天頭腦中突然閃過乙個念頭，對週末和非週末的訪問情況做個統計，於是寫了個模組：

sub statistic()

' dim i as integer
dim visitdatestr as string
dim visitdate as date
dim weekindex as integer
dim visitcount as integer
dim visitweekendcount as integer
dim visitnowcount as integer
dim visitpersoncount as long
dim visitpersonwcount as long
dim visitpersonnowcount as long
visitcount = 0
visitweekendcount = 0
visitpersoncount = 0
visitpersonwcount = 0
visitnowcount = 0
visitpersonnowcount = 0
dim visitpersoncountperday as integer
for i = 3 to 185
visitdatestr = range("a" & i).value
visitpersoncountperday = range("b" & i).value - range("b" & (i - 1)).value '每日增量
visitcount = visitcount + 1
visitpersoncount = visitpersoncount + visitpersoncountperday
visitdate = datevalue(left(visitdatestr, 4) & "-" & mid(visitdatestr, 5, 2) & "-" & right(visitdatestr, 2))
weekindex = weekday(visitdate, vbmonday)
select case weekindex
case 6, 7
'range("a" & i).interior.colorindex = 43
visitweekendcount = visitweekendcount + 1
visitpersonwcount = visitpersonwcount + visitpersoncountperday
case else
visitnowcount = visitnowcount + 1
visitpersonnowcount = visitpersonnowcount + visitpersoncountperday
end select
next
msgbox ("記錄總日期：" & visitcount & " 天，週末：" & visitweekendcount & " 天，非週末：" & visitnowcount & "天" & vbcrlf & _
"平均訪問人次：" & (visitpersoncount / visitcount) & vbcrlf & _
"週末平均訪問人次：" & (visitpersonwcount / visitweekendcount) & vbcrlf & _
"非週末平均訪問人次：" & (visitpersonnowcount / visitnowcount))
end sub

結果如下：

看來還是非週末的時候學習的人數更多。

由於.net平台下c#和vb.net很相似，本文也可以為c#愛好者提供參考。

學習更多vb.net知識，請參看vb.net 教程 目錄

乙個有趣的故事

我有乙個老同學，乙個人娶了兩個老婆，一中一外。這件事情在紐約的華人裡面非常轟動，老同學自己從來不迴避，他經常出沒各種派對，嘴裡叼著雪茄菸，手裡拿著香檳說 我他媽得做個床，能睡三個人的床連他媽美國都沒賣的。老同學的大老婆是個美國人，在華爾街做事情，而且非常出色 二老婆是上海人，我沒見過本人，只看過 漂...

乙個有趣的題目

看到qq群裡有人發了乙個很有意思的題目 如果 昨天是明天就好了，那麼今天就是周五了，請問句中的今天是週幾？晚上睡覺的時候又想起這個問題，發現這個問題還大有文章，其實問題的關鍵在於上面的綠色背景的如果兩個字，既然是如果，那麼思維就可以完全發散，如果時間可以穿越，明天真的可以穿越到昨天，那麼今天其實就是...

乙個有趣的問題

今早朋友圈某人以100軟妹幣求助這樣乙個問題 概率論是學的一塌糊塗，但是突然想起類似用蒙特卡洛方法可以模擬出來概率。於是向著這100軟妹幣出發了。但是首先遇到了第乙個問題。陣列b的亂序排列感覺有點棘手。首先的第一反應是 迴圈隨機產生1 100的隨機數，判斷陣列中是否已經有該數，若已存在，則重新生成隨...