感觉好玩但不一定好用的代码

类CLink代码如下：

Private mI As Integer

Public Function Append(i As Integer) As CLink
    mI = mI + i
    Set Append = Me
End Function

Public Function GetValue() As Integer
    GetValue = mI
End Function

用法如下：

    Dim c As CLink
    Set c = New CLink
    MsgBox c.Append(1).Append(2).Append(3).GetValue
    Set c = Nothing

好玩的就是Append函数的用法，《Programming Ruby》里边有一段这么的用法，只是感觉有趣。

判断是否包含字符串的一个用法，下边只是一个范例：

Private Function IncludeNumber(s As String) As Boolean
    Static c As Collection
    Dim i As Integer
    Dim v As String
    If c Is Nothing Then
        Set c = New Collection
        For i = 0 To 9
            c.Add i, "c" & i
        Next
    End If
    On Error GoTo e:
    c.Item "c" & s
    IncludeNumber = True
    Exit Function
e:
End Function

说白了，很多时候适当利用错误处理进行一些逻辑判断也是好的。