QBASIC实验样本 -