|
|
Makes you want to say, "Hmmmmm..."Try executing this VBA procedure. I guarantee you'll be surprised by the result. Sub HowDidHeDoThat()
For x = 0 To 5
x1 = x1 & Chr(x * (x * (x * (x * (-0.75 * x + 7.2917) _
- 22.5) + 16.708) + 28.25) + 72)
Next x
For x = 0 To 6
x2 = x2 & Chr(x * (x * (x * (x * (x * (0.425 * x - 6.8667) _
+ 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next x
MsgBox x1 & x2
End Sub
(contributed by Bob Umlas. Original author unknown).
|