ADimpAsRType必须置于窗体模块的声明部分B应把Open语句中的ForRandom改为ForOutputC在类型定义’TypeRType’之前加上’Private’DPut语句应该写为Put#，p.Name，p.Tel