locate x,y,1

可能我还没写的太明白,我的意思是要用上下左右移动键来控制光标的移动且不消动原先的输入的字,并可以对移动到的位置进行修改(通过按回车键来控制),如果光是移动的话不能消动原先的字.

哎,没人答,自己想了想,自己做个光标再用put语句or一下得了!

1.不知道你所说的光标是不是鼠标的意思
2.不知道消动是什么意思

就是光标啊,不是指鼠标!做成方块状不是成了光标了吗,用put(x,y),,or 语句放上去再用上下左右键控制他就成了个光标吗??

我来告诉你什么叫做光标.
locate ,,1,0,7
do
   do:k$=inkey$:loop while k$=""
   select case k$
   case chr$(0)+chr$(72): if csrlin>1 then locate csrlin-1,pos(0)
   case chr$(0)+chr$(75): if pos(0)>1 then locate ,pos(0)-1
   case chr$(0)+chr$(80): if csrlin<25 then locate csrlin+1,pos(0)
   case chr$(0)+chr$(77): if pos(0)<80 then locate ,pos(0)+1
   end select
loop until k$=chr$(27)