无人机是目前很热门的娱乐和科技工具,某公司最近推出了一款先进的无人机,可以探测到不同方向的障碍物,并主动避开。其原理类似于雷达,每向前移动0.02米就向四周发送超声波。假设该无人机与前方障碍物的起始距离为10米(图1),那么当移动到距离只剩下1米时,该无人机就会主动避开(图2)。该运行部分代码利用循环结构来编写,请你来完善该代码。(s为无人机与障碍物之间的距离变量)
图1 图2 |
Private sub Form1_click( )
For s= to 1 step
Print “无人机继续向前移动”
Print“无人机停止移动,并转向”
End sub