一个实用的闹钟,是用VB做的