创调
活动一：创调情境、导入新课
= 1 v = Val() Do While t = 100 x = v * t y = g * t * t / 2 Circle (x, y), 30 t = t + 1 Loop End Sub 确定重力加速度的值 g= 设定小球运动起始时间 t=1 计算小球水平坐标 x=v*t 计算小球竖直坐标 y=g*t*t/2 以（ x,y)为圆心画圆（代替小球） 累加小球运动时间 t=t+1