vfp表单.doc

_例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：在文本框中输入文本，查找编辑框中是否存在。 “查找”按钮代码：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.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 while 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 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(thisform.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)例题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指定调用计时器事件的间隔，以毫秒为单位计时器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 c