1.下面给出从编法可以显示任意行和列的"*"：***************main1.prg*****************clearinput "行数 n=" to ninput "列数 m=" to mdo xing with n,mreturnprocedure xing(i,j)for l=1 to ifor k=1 to j??"*"endfor?endforreturnendprocedure*******************main2.prg********************clearinput "行数 n=" to ninput "列数 m=" to mxing(n,m)returnfunction xing(i,j)for l=1 to ifor k=1 to j??"*"endfor?endforreturnendfunction*************************main3.prg*****************clearinput "行数 n=" to ninput "列数 m=" to mset procedure to xing.prg &&xing.prg的内容见下do xing with n,mreturn******xing.prg***** &&这是一个新的prg文件,和main3.prg一起完成该作用procedure xing(i,j)for l=1 to ifor k=1 to j??"*"endfor?endforreturnendprocedure2.function myrecc()nu=0scannu=nu+1endscanreturn nuendfunction ------------------------------------------第三种方法中，还要在目录中建立一个prg问件：xing.prg，作为子程序文件，代码已给出recount() 的作用是计算表中的记录条数