g = 9.81
tmax = 7
angle = 20
steps = 0.1
v0 = 40
 
Dim x As Integer
Dim y As Integer
Dim t As Double
 
 
 
For t = 1 To tmax Step steps
x = v0 * t * Cos(angle)
y = v0 * t * Sin(angle) - g * t ^ 2 / 2
Output.Circle (x, y), 2, RGB(255, 255, 0)
For i = 1 To 5000000
Next i
Output.Circle (x, y), 2, RGB(0, 0, 0)
Next t