結果 : function procedure in qbasic