今天从学校赶出来，去参加了中国福利会少年宫计算机小组人才表彰大会。本来老师叫我早点去的，结果因为各种原因3：30（开会时间）才赶到。

赶到后才发现原来之前是在向上海市各级领导（高校、中学、区县、教委等…………!）介绍优秀学员们的作品，4台计算机中有一台就放着我的那个cnBeta News Reader - -!

于是乎 非常遗憾 我失去了这个难得的展示机会（其实也没有什么）。。。

于是乎 我便又取消了其他我正在进行的研发创作，再次准备投入这一块领域，争取在下一年的人才表彰大会上再展风采。

届时展出的将会是一个更加完善的、BT的新闻集合平台，不再是cnbeta的了~!界面也将彻底改进，代码彻底改写……

PS: 出席大会的表彰学员（不是优秀学员，基本上就是从少年宫出去之后取得佳绩的人）有朱晓伟（前一阵获Intel技术与工程大赛（好像是这么写的）一等奖的那 位——作品：Vision，将现实与虚拟结合，手机可以对准建筑，就能现实相关信息）、？？名字忘了（写了Flash平台，界面比我还要漂亮的一个化学实 验室（现在高一），支持混合、燃烧等- -，获得上海市某个一等奖，国际上某个一等奖）…………等等

当时把这个记录了下，本来想发给晨报的 后来想了想 算了吧 个人比较懒惰- -

嘿嘿~~

这篇日志，作为一个留念——足迹的留念，往事的留念。

运用了指针技术的快速排序模块。指针操作是交换字符串用。

Option Explicit

Private Declare Sub GetMem4 Lib "msvbvm60.dll" (ByRef SrcRef As Long, ByRef DstRef As Long)

Public Sub SwapString(a As String, b As String)
    Dim pT As Long, pA As Long, pB As Long
    pT = StrPtr(a): pA = VarPtr(a): pB = VarPtr(b)
    
    GetMem4 ByVal pB, ByVal pA
    GetMem4 pT, ByVal pB
End Sub

Public Sub QuickSortStr(ByRef arr() As String, ByVal l As Long, ByVal r As Long)
    Dim i As Long, j As Long
    Dim x As String
    
    i = l: j = r
    x = arr((l + r) \ 2)
    
    Do
        While arr(i) < x: i = i + 1: Wend
        While arr(j) > x: j = j - 1: Wend
        If i <= j Then
            SwapString arr(i), arr(j)
            i = i + 1: j = j - 1
        End If
    Loop Until i > j
    
    If i < r Then Call QuickSortStr(arr, i, r)
    If l < j Then Call QuickSortStr(arr, l, j)
End Sub

Public Sub QuickSortLng(ByRef arr() As Long, ByVal l As Long, ByVal r As Long)
    Dim i As Long, j As Long
    Dim x As Long, y As Long
    
    i = l: j = r
    x = arr((l + r) \ 2)
    
    Do
        While arr(i) < x: i = i + 1: Wend
        While x < arr(j): j = j - 1: Wend
        If i <= j Then
            y = arr(i): arr(i) = arr(j): arr(j) = y
            i = i + 1: j = j - 1
        End If
    Loop Until i > j
    
    If i < r Then Call QuickSortLng(arr, i, r)
    If l < j Then Call QuickSortLng(arr, l, j)
End Sub

1.提取自Windows 7 RC 7100，素材经过了修改（裁剪和旋转）

2.这个素材你可以平铺使用它，而且它依然保持内容的无缝连接（看上去的完整）。经典用途：Web页面 等等

3.PNG透明格式，你可以把它叠加到任何其它可平铺使用的图片上

Size:699px*699px*32BitDeep

PS:图片经过了修改，尤其是旋转度数改变了呵呵~另外这个平铺也只是所有高光中部分内容的平铺图片形式，完整的图片无法平铺

PNG Img: