chapter04setpeople.pro

来自「IDL可视化工具入门与提高(PDF)及其随书代码」· PRO 代码 · 共 11 行

; Chapter04SetPeople.pro
PRO  Chapter04SetPeople
　　COMMON SetPeopleInformation, MyName, MyAge, MySex, MyTime
　　MyName =' '
　　MyAge = 0B
　　MySex =' '
　　READ,  PROMPT = "请输入姓名：", MyName
　　READ,  PROMPT = "请输入年龄：", MyAge
　　READ,  PROMPT = "请输入性别（Male 或 Female）：", MySex
　　MyTime = SYSTIME()
END