編程題目

方漠

我也來一個,呵呵.

Sub TestAaron()
Dim D1, D2 As Double
Dim t1, t2, t3 As Integer
D1 = Timer
For t1 = 123 To 333
    t2 = t1 * 2
    t3 = t1 * 3
    Call AddNo(t1, t2, t3)
Next
D2 = Timer
Debug.Print (D2 - D1); "毫秒"

End Sub

Sub AddNo(ByVal t1 As Integer, ByVal t2 As Integer, ByVal t3 As Integer)

Dim I As New Collection
On Error GoTo Abc
   I.Add Left(t1, 1), Left(t1, 1)
   I.Add Right(t1, 1), Right(t1, 1)
   I.Add Left(Right(t1, 2), 1), Left(Right(t1, 2), 1)
   I.Add Left(t2, 1), Left(t2, 1)
   I.Add Right(t2, 1), Right(t2, 1)
   I.Add Left(Right(t2, 2), 1), Left(Right(t2, 2), 1)
   I.Add Left(t3, 1), Left(t3, 1)
   I.Add Right(t3, 1), Right(t3, 1)
   I.Add Left(Right(t3, 2), 1), Left(Right(t3, 2), 1)
   If I.Count = 9 Then Debug.Print "T1: " & t1 & "  T2:  " & t2 & " T3: " & t3
Abc:
  Exit Sub

End Sub

逛兩腳

做3個俯臥撐，，，走人。。。樓下繼續(xù)。。。
















古之立大事者，不惟有超世之才，亦必有堅忍不拔之志。---魔獸劍圣異界縱橫
極品家丁 龍蛇演義 惡魔法則 斗羅大陸 異界槍神 凡人修仙傳 魔獸領(lǐng)主 超級農(nóng)民 極品公子 飛升之后

lurong

學(xué)習(xí)學(xué)習(xí)

ICEMAN

數(shù)學(xué)黑洞

yhliang1986

熱哈哈哈哈哈哈好

GOODWIN

學(xué)習(xí)學(xué)習(xí)