实践应用

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')

 

posted on 2018-02-01 15:05  qqhfeng16  阅读(1651)  评论(0编辑  收藏  举报