|
- UID
- 167603
- 帖子
- 3728
- 精华
- 6
- 威望
- 269
- 阅读权限
- 100
- 注册时间
- 2004-5-21
|
dim aa(90)
aa(0)=9387.78
aa(1)=4296.21
aa(2)=13499.6
aa(3)=11083.42
aa(4)=16326.37
aa(5)=16326.37
aa(6)=16326.37
aa(7)=21308.85
aa(8)=92899.48
aa(9)=11633.23
aa(10)=11633.23
aa(11)=16326.37
aa(12)=16326.37
aa(13)=23040.96
aa(14)=13055.31
aa(15)=16326.37
aa(16)=16326.37
aa(17)=16326.37
aa(18)=16326.37
aa(19)=12511.95
aa(20)=11083.42
aa(21)=5242.78
aa(22)=16326.37
aa(23)=9055.33
aa(24)=15607.31
aa(25)=15607.31
aa(26)=14529.04
aa(27)=14529.91
aa(28)=14529.91
aa(29)=14529.91
aa(30)=14529.91
aa(31)=14529.91
aa(32)=14529.91
aa(33)=14529.91
aa(34)=8477.19
aa(35)=15488.89
aa(36)=14893.16
aa(37)=14893.16
aa(38)=14323.59
aa(39)=15607.31
aa(40)=13623.25
aa(41)=60682.3
aa(42)=13018.8
aa(43)=11199.66
aa(44)=11199.66
aa(45)=9886.15
aa(46)=15631.28
aa(47)=15607.31
aa(48)=15607.31
aa(49)=15607.31
aa(50)=16575.73
aa(51)=16709.4
aa(52)=10025.64
aa(53)=10025.64
aa(54)=1673.85
aa(55)=16128.21
aa(56)=16128.21
aa(57)=16128.21
aa(58)=16128.21
aa(59)=16655.06
aa(60)=118804.14
aa(61)=13576.75
aa(62)=13623.25
aa(63)=13623.25
aa(64)=13623.25
aa(65)=14530.8
aa(66)=11914.53
aa(67)=14893.16
aa(68)=14893.16
aa(69)=30225.76
aa(70)=2094.63
aa(71)=10842.8
aa(72)=4061.4
aa(73)=15931.77
aa(74)=15999.18
aa(75)=15999.18
aa(76)=15214.27
aa(77)=15225.03
aa(78)=15214.27
aa(79)=85087.18
aa(80)=46437.61
aa(81)=33882.88
aa(82)=66090.76
aa(83)=5443.78
aa(84)=959.56
aa(85)=8880.97
aa(86)=13055.31
aa(87)=9055.33
aa(88)=12459.4
aa(89)=9387.78
aa(90)=13055.31
for i1 = 0 to 62
for i2 = i1 + 1 to 63
for i3 = i2 + 1 to 64
for i4 = i3 + 1 to 65
for i5 = i4 + 1 to 66
for i6 = i5 + 1 to 67
for i7 = i6 + 1 to 68
for i8 = i7 + 1 to 69
for i9 = i8 + 1 to 70
for i10 = i9 + 1 to 71
for i11 = i10 + 1 to 72
for i12 = i11 + 1 to 73
for i13 = i12 + 1 to 74
for i14 = i13 + 1 to 75
for i15 = i14 + 1 to 76
for i16 = i15 + 1 to 77
for i17 = i16 + 1 to 78
for i18 = i17 + 1 to 79
for i19 = i18 + 1 to 80
for i20 = i19 + 1 to 81
for i21 = i20 + 1 to 82
for i22 = i21 + 1 to 83
for i23 = i22 + 1 to 84
for i24 = i23 + 1 to 85
for i25 = i24 + 1 to 86
for i26 = i25 + 1 to 87
for i27 = i26 + 1 to 88
for i28 = i27 + 1 to 89
for i29 = i28 + 1 to 90
count = aa(i1)+aa(i2)+aa(i3)+aa(i4)+aa(i5)+aa(i6)+aa(i7)+aa(i8)+aa(i9)+aa(i10)+aa(i11)+aa(i12)+aa(i13)+aa(i14)+aa(i15)+aa(i16)+aa(i17)+aa(i18)+aa(i19)+aa(i20)+aa(i21)+aa(i22)+aa(i23)+aa(i24)+aa(i25)+aa(i26)+aa(i27)+aa(i28)+aa(i29)
if count = 444395.79 then
msgbox aa(i1)&Chr(10)&aa(i2)&Chr(10)&aa(i3)&Chr(10)&aa(i4)&Chr(10)&aa(i5)&Chr(10)&aa(i6)&Chr(10)&aa(i7)&Chr(10)&aa(i8)&Chr(10)&aa(i9)&Chr(10)&aa(i10)&Chr(10)&aa(i11)&Chr(10)&aa(i12)&Chr(10)&aa(i13)&Chr(10)&aa(i14)&Chr(10)&aa(i15)&Chr(10)&aa(i16)&Chr(10)&aa(i17)&Chr(10)&aa(i18)&Chr(10)&aa(i19)&Chr(10)&aa(i20)&Chr(10)&aa(i21)&Chr(10)&aa(i22)&Chr(10)&aa(i23)&Chr(10)&aa(i24)&Chr(10)&aa(i25)&Chr(10)&aa(i26)&Chr(10)&aa(i27)&Chr(10)&aa(i28)&Chr(10)&aa(i29),0,"记录完以后再点确定"
end if
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
msgbox "没有答案"
把上述内容保存为vbs运行，俺等了好久也没出答案。。可能配置太低了 ，可以关闭wscript.exe强行结束进程，吃满cpu。。。啥都干不了
[ 本帖最后由 sexx 于 2010-7-5 23:56 编辑 ] |
|
发表于 2010-7-5 22:13
| 
