vfp的题目,题目已经在图片里了,是利用“计时器”的功能编程,谢谢!
展开全部
在表单里init事件中写入代码:
PUBLIC i
i=0
thisform.timer1.Interval=1000
双击计时器进入timer事件中写入代码:
s="欢迎参加等级考试"
i=i+1
IF i<=LENC(s)
thisform.text1.Value=thisform.text1.value+SUBSTRc(s,i,1)
ELSE
i=1
thisform.text1.Value="欢"
ENDIF
在退出按钮CLICK事件代码:
thisform.timer1.Interval=0
PUBLIC i
i=0
thisform.timer1.Interval=1000
双击计时器进入timer事件中写入代码:
s="欢迎参加等级考试"
i=i+1
IF i<=LENC(s)
thisform.text1.Value=thisform.text1.value+SUBSTRc(s,i,1)
ELSE
i=1
thisform.text1.Value="欢"
ENDIF
在退出按钮CLICK事件代码:
thisform.timer1.Interval=0
展开全部
先在表单的init事件中加上:
public aa,i
aa="欢迎参加等级考试"
i=1
然后在计时器控件中加上代码:
if i<len(aa)
thisform.text1.value=thisform.text1.value+substr(aa,i,2)
i=i+2
else
i=1
thisform.text1.value=""
endif
最后将计时器的Interval属性设为1000
public aa,i
aa="欢迎参加等级考试"
i=1
然后在计时器控件中加上代码:
if i<len(aa)
thisform.text1.value=thisform.text1.value+substr(aa,i,2)
i=i+2
else
i=1
thisform.text1.value=""
endif
最后将计时器的Interval属性设为1000
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询