[求助]屏幕上的显示结果如何复制 (有程序段)
clea all
@ 0 ,0 clea
dime aa(26,4)
for m1=1 to 4 step 1
for n1=1 to 26 step 1
aa(n1,m1)=0
endfor
endfor
*生成4行26列0
rand(-1)
i=0
j=0
for k=1 to 240 step 1
if i=0
? " "
endif
if i=10
?? " "
endif
if j=6
if i=0
? " "
? " "
? " "
endif
endif
ii001=int(26*rand()+1)
??str(ii001,3)
kk002=int(j/6)*2+int(i/10)+1
aa(ii001,kk002)=aa(ii001,kk002)+1
i=i+1
if i=20
j=j+1
i=0
endif
endfor
?" "
?" "
?" "
for k=1 to 26 step 1
?? str(k,3)
endfor
for m1=1 to 4 step 1
? " "
for n1=1 to 26 setp 1
??str(aa(n1,m1),3)
endfor
endfor
wait("")
retu 以上程序运行结果在屏幕上显示,如何能将显示结果直接复制粘贴到文本文件上??恳请大家帮忙!!