编程题目

方漠

我也来一个,呵呵.

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个俯卧撑，，，走人。。。楼下继续。。。
















古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。---魔兽剑圣异界纵横
极品家丁 龙蛇演义 恶魔法则 斗罗大陆 异界枪神 凡人修仙传 魔兽领主 超级农民 极品公子 飞升之后

lurong

学习学习

ICEMAN

数学黑洞

yhliang1986

热哈哈哈哈哈哈好

GOODWIN

学习学习