一个简单的小程序,用realbasic语言编写的