zoukankan      html  css  js  c++  java
  • 感觉好玩但不一定好用的代码

    类CLink代码如下:
    Private mI As Integer

    Public Function Append(i As IntegerAs 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 StringAs 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
    说白了,很多时候适当利用错误处理进行一些逻辑判断也是好的。
  • 相关阅读:
    极大/小搜索,alpha/beta剪枝
    消息系统
    渲染主线程都在干什么
    好玩的虚拟CPU执行代码
    好玩的隐藏属性
    好玩的对象存储
    透视投影矩阵
    绕任意轴旋转
    视图变换
    正交投影矩阵
  • 原文地址:https://www.cnblogs.com/Duiker/p/719489.html
Copyright © 2011-2022 走看看