编程题目

Trynew

题目为：将1-9这9个数字分成三个3位数，要求分出的第一个3位数，正好是第二个三位数的

二分之一，是第三个3位数的三分之一。

游客，如果您要查看本帖隐藏内容请回复

GOODWIN

学习学习

yhliang1986

热哈哈哈哈哈哈好

ICEMAN

数学黑洞

lurong

学习学习

逛两脚

做3个俯卧撑，，，走人。。。楼下继续。。。
















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

方漠

我也来一个,呵呵.

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

bjjgq

佩服，高手的对决，精彩

若风1

看看

baije

经典!!!

值得学习