The eXpLorer - Hello World

Hello World

Sind Sie gut im Lesen von Programmcode, und mögen Sie komplizierten Programmcode? Die folgende Prozedur setzt den Text für eine Message Box zusammen. Versuchen Sie mal herauszufinden, was in der Message Box anzeigt wird.

Sub HelloWorld()
Dim i As Integer, s1 As String, s2 As String
For i = 0 To 5
s1 = s1 & Chr(i * (i * (i * (i * (-0.75 * i + 7.2917) - 22.5) + 16.708) + 28.25) + 72)
Next i
For i = 0 To 6
s2 = s2 & Chr(i * (i * (i * (i * (i * (0.425 * i - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next i
MsgBox s1 & s2
End Sub

Dies ist generierte MsgBox:

Hello World

The eXpLorer