Lollipop

Aug 5, 2007 at 11:03 o\clock

-_-!

by: im_nancysun   Category: Nonsense

无语...绿野你太强了...

10 Comments | Permalink

Comments for this entry:

1. quoteDemonsSword wrote at Aug 5, 2007 at 14:44 o\clock:原来是这个意思...
   Sub Main()
   Dim ChickenName As String
   Dim Names() As String
   Names = Split("silly stupid lollipop lolly")
   ChickenName = BestName(Names)
   End Sub
   
   Function BestName(Names() As String) As String
   QuickSort Names, 0, UBound(Names)
   BestName = Names(0)
   End Function
   
   Function Batter(NameA As String, NameB As String) As Boolean
   Batter = (Len(NameA) - Len(Replace(NameA, "y", ""))) > (Len(NameB) - Len(Replace(NameB, "y", "")))
   End Function
   
   Sub QuickSort(a() As String, l As Long, r As Long)
   Dim i As Long, j As Long, x As String, y As String
   i = l
   j = r
   x = a((l + r) \ 2)
   Do While i <= j
   Do While Batter(a(i), x)
   i = i + 1
   Loop
   Do While Batter(x, a(j))
   j = j - 1
   Loop
   If i <= j Then
   y = a(i)
   a(i) = a(j)
   a(j) = y
   i = i + 1
   j = j - 1
   End If
   Loop
   If l < j Then QuickSort a, l, j
   If i < r Then QuickSort a, i, r
   End Sub
2. quoteim_nancysun wrote at Aug 5, 2007 at 14:54 o\clock:...青蛙你VB学疯了啊
3. quoteDemonsSword wrote at Aug 5, 2007 at 15:01 o\clock:已经疯了吧...
   座右铭:金铁之剑,因锋锐而易折,精气之剑,源天地而不毁
   剑本凡铁,因执拿而通灵,因心而动,因血而活,因非念而死…
   信仰:用精简的代 码获得较高的效率
   目标:程序中定义API数→0
   志向:VB之魔
4. quoteJ.T. wrote at Aug 5, 2007 at 15:21 o\clock:kaka..VB的comment真绝。。熟悉的VB
5. quoteWisp wrote at Aug 6, 2007 at 13:31 o\clock:递归的二分Qsort不错啊
   
   程序取那个y比较多的单词？发现VB跟小学学的QB差很多啊，不太看得懂
6. quoteCH4 wrote at Aug 6, 2007 at 17:13 o\clock:被逼来定一下
7. quote十一维空间 wrote at Aug 8, 2007 at 12:30 o\clock:好无语～
8. quoteCarol wrote at Aug 9, 2007 at 07:29 o\clock:...dizzy...
9. quoteRan wrote at Aug 10, 2007 at 11:54 o\clock:下次跟你聊QQ要小心了~~
   
   以后我的QMD要改为：你可以保持沉默，你所说的� �句话都将被Lollipop作为BLOG证据……
10. quoteRan wrote at Aug 11, 2007 at 02:03 o\clock:PS 极端YM一下那个写VB的人~~
    
    话说刚刚看到的时候吓了一跳，以为走错页面了 类~~~
    
    
    那个啥。。。本人终于挥别VB并基本结束大学生活中和理科搭尬的� �东~~~哇咔咔~~~~

Comment this entry