程序：
Private Sub Command1_Click()
Dim tmp As String '暫存數據文件中的壹行數據！
Dim N(4) As Integer '數組元素N(1)存儲0-10的 天數，N(2)存 10-30 的天數 以此類推。
Dim subs() As String '存每天的數據
Dim Fl As Integer '存風力大小
Dim Fx As String '存風向
Dim Elem As Variant '存某壹天的數據
For i = 1 To 4 '初始化
N(i) = 0
Next i
Open "C:\data.txt" For Input As #1 '打開數據文件
Do While Not EOF(1)
Line Input #1, tmp '讀文本中的壹行數據
tmp = Trim(tmp)
subs = Split(tmp, Chr(32)) '將壹行數據按空格分開 存到壹個數組中
For Each Elem In subs
Elem = Trim(Elem) '數組中的元素去掉前後的空格
If Elem <> "" Then '數組中的這個元素不為空格
tt = Trim(Str(Val(Elem)))
If Elem <> tt Then '數組元素不是純數字，也就是不是前兩行的日期
Fx = Right(Elem, Len(Elem) - Len(tt)) '存風向信息
If Fx = "N" Then '如果要統計其他風向，則更改此處
Fl = Val(Elem) '存風力信息
Select Case Fl
Case Is < 10 '包不包括邊界，妳可以改正
N(1) = N(1) + 1
Case 10 To 30 'To前後的兩個數，包括邊界，即[10,30]
N(2) = N(2) + 1
Case 40 To 50
N(3) = N(3) + 1
Case 60 To 70
N(4) = N(4) + 1
End Select
End If
End If
End If
Next Elem
Loop
Close (1)
'輸出！
Print "風向為N的，風力為 0-10的天數為：", N(1)
Print "風向為N的，風力為10-30的天數為：", N(2)
Print "風向為N的，風力為40-50的天數為：", N(3)
Print "風向為N的，風力為60-70的天數為：", N(4)
End Sub
已經驗證，感覺沒什麽錯誤，如果發現請提出！
註釋較多，希望妳能看懂！