可用类型符代替As类型] %整型Dim iTem%,iAge% &长整型Dim ITota&,lSum& !单精度Dim sHight!,sWidth! #双精度Dim dblP2#,dblK6# @货币型Dim cWage(@,cSalary(@ $字符型Dim strName$,strPassw$可 用类型符代替[As 类型] % 整 型 Dim iTem%，iAge% & 长整型 Dim lTota&, lSum& ! 单精度 Dim sHight!, sWidth! # 双精度 Dim dblP2#, dblK6# @ 货币型 Dim cWage@,cSalary@ $ 字符型 Dim strName$, strPassw$