实践应用
set_tposition (WindowHandle3,50, 50)
write_string (WindowHandle3, '半径 D1=' +Ra[i]$'#f')
set_tposition (WindowHandle3, 150, 50)
write_string (WindowHandle3, '半径 D2=' + Rb[i]$'#f')
set_tposition (WindowHandle3, 250, 50)
write_string (WindowHandle3, '圆心 Row='+Row$'#f' +' Col='+Column$'#f')
set_tposition (WindowHandle3, 350, 50)
write_string (WindowHandle3, '宽 Width='+Width$'#f' +' 高 Height='+Height$'#f'+' 面积 S='+(3.1415926*Ra[i]*Rb[i])$'#f')