写成这样,可是循环至不停,只能通过任务管理器关闭VFP,怎么办呀! n = int(rand()*100)+1 IF n<=RECCOUNT() AND n !=0 go top REPLACE xh WITH n endif i = 2 do while i<=RECCOUNT() n = int(rand()*100)+1 IF n<=RECCOUNT() AND n !=0 loca for xh = n if !found() GO i repl xh with n i=i+1 ENDIF endif enddo