1、vfp表单例1:输入一个除数,求1300之间能被除数整除的数,并求出他们的和。“开始”按钮代码:a=val(thisform.text1.value)for i=1 to 300 if i%a=0 thisform.edit1.value= thisform.edit1.value+str(i,6) thisform.text2.value=str(val(thisform.text2.value)+i) endifendfor “清除”按钮代码:thisform.text1.value=thisform.edit1.value=thisform.text2.value=例题2:在文本框中输入
2、文本,查找编辑框中是否存在。 “查找”按钮代码:m=thisform.text1.textn=at(alltrim(m),thisform.edit1.value)if n!=0 thisform.edit1.selstart=n-1 thisform.edit1.sellength=len(alltrim(m)else messagebox(没有相匹配的单词)endif“退出”按钮代码:thisform.release例题3:“查找”按钮代码:m=thisform.text1.textn=at(alltrim(m),thisform.edit1.value)if n!=0 thisform.
3、edit1.selstart=n-1 thisform.edit1.sellength=len(alltrim(m)else messagebox(没有相匹配的单词)endif“替换”按钮代码:if thisform.edit1.seltext=alltrim(thisform.text1.text) thisform.edit1.seltext=alltrim(thisform.text2.text)else messagebox(没有选择需要置换的单词)endif 例题4.1:十进制整数转化二进制“转化”按钮CLICK事件代码m=thisform.text1.value s=do whil
4、e m!=0 r=mod(m,2) m=int(m/2) s=alltrim(str(r)+senddothisform.text2.value=sthisform.refresh“清除”按钮CLICK事件代码thisform.text1.value=0thisform.text1.setfocusthisform.text2.value=0例题4.2 十进制转化二进制“转化”按钮代码:z=thisform.text1.valuem=int(z)n=z-ms1=s2=do while m!=0 r=mod(m,2) m=int(m/2) s1=alltrim(str(r)+s1enddodo
5、while n!=0 n=n*2 b=int(n) s2=s2+alltrim(str(b) n=n-benddos=s1+.+s2if len(s1)=0 s=0.+s2endifif len(s2)=0 s=s1endifthisform.text2.value=s thisform.refresh “清除”按钮代码:thisform.text1.value=0thisform.text2.value=0thisform.text1.setfocus例题5:输入三个数,显示最大值,并判断奇偶性。“判断”按钮代码:a=val(thisform.text1.value)b=val(thisfo
6、rm.text2.value)c=val(thisform.text3.value)max=aif maxb max=bendifif max=12 hh=0 endif endif x3=x+70*cos(mm-15)*3.14159/30) y3=y+70*sin(mm-15)*3.14159/30) THISFORM.forecolor=rgb(0,255,0) x4=x+60*cos(hh-3)*3.14159/6) y4=y+60*sin(hh-3)*3.14159/6) thisform.forecolor=rgb(0,0,0) thisform.line(x,y,x4,y4)例题
7、9:输入三个数,对其排序“排序”的CLICK事件代码:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)if ab t=a a=b b=tendifif ac t=c c=a a=tendifif bc t=b b=c c=tendif thisform.label2.caption=str(c)thisform.label3.caption=str(b)thisform.label4.caption=str(a) 例题10:闪烁的图片属性设置 interval100指定调用计时器事
8、件的间隔,以毫秒为单位计时器Timer1的init事件代码public cccc=-1计时器Timer1的timer事件代码cc=-ccif cc=1 thisform.image1.visible=.t.else thisform.image1.visible=.f.endif 例题11:数字时钟(按钮显示时间) 属性设置 interval5指定调用计时器事件的间隔,以毫秒为单位计时器Timer1的timer事件代码thisform.cmn.caption=time()例题12:表单显示时间 属性设置 interval100指定调用计时器事件的间隔,以毫秒为单位计时器Timer1的timer事件代码thisform.label1.caption=time()例题13:对XSDA.DBF表进行排序数据环境 XSDA.DBF“选项按钮组”的CLICK事件代码do case case this.value=1 set order to 学号 case this.value=2 set order to 出生日期endcase thisform.refreshWelcome ToDownload !欢迎您的下载,资料仅供参考!