qbasic程序实例