【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“程序24.prg”一文,供大家参考学习
m1=CREATEOBJECT('myo')
WITH m1
.n1=5
?CHR(07)
* .ts()
ENDWITH
*m1.ts()
DEFINE CLASS myo AS CUSTOM
n1=0
*!* PROCEDURE ts
*!* FOR I=1 T0 this.n1
*!* ??I
*!* ENDFOR
*!* ENDPROC
Enddefine