qbasic语言实例