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

netduiker

于 2007-04-19 12:50:00 发布

阅读量103

点赞数

分类专栏： [随笔分类]重构代码文章标签： C C++ C# Ruby

[随笔分类]重构代码专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VBA实现链表的方法，并通过Append函数演示了链表节点的连接过程。此外，还展示了一个利用错误处理来判断字符串是否包含特定数字的例子。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

类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

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