vfp实验四要求.docVIP

实验四（实验报告） 实验目的 掌握VFP编程中的多种循环结构的语句 掌握VFP编程中的常用循环控件 能够用循环结构解决一般的问题 实验内容 分别用当型循环和步长型循环计算1＋2＋3＋…＋100的和 当型循环： s=0 n=1 do while n=100 s=s+n n=n+1 enddo thisform.text1.value=s 步长型循环： s=0 for n=1 to 100 s=s+n endfor thisform.text1.value=s 用当型循环或步长型循环计算100！的值 当型循环： n=val(thisform.text1.value) t=1 i=1 do while i=n t=t*i i=i+1 enddo thisform.text2.value=t 步长型循环： n=val(thisform.text1.value) t=1 for i=1 to n t=t*i i=i+1 endfor thisform.text2.value=t  用当型循环或步长型循环计算S=1!+2!+3!+…+100!的值 当型循环： s=0 t=1 n=1 do while n=6 t=t*n s=s+t n=n+1 enddo thisform.text1.value=s 步长型循环： s=0 t=1 for n=1 to 6 t=t*n s=s+t endfor thisform.text1.value=s 用列表框制作九九乘法表 设置list1的columncount属性为10，columnlines为.F.， columnwidths为80,60, 60, 60,60, 60, 60, 60, 60, 60 command1的click代码： thisform.list1.clear thisform.list1.addlistitem( *,1,1) for k=1 to 9 thisform.list1.addlistitem(str(k,3),1,k+1) endfor for n=1 to 9 thisform.list1.addlistitem(str(n,3),n+1,1) for k=1 to n thisform.list1.addlistitem(str(k*n,3),n+1,k+1) endfor endfor 用组合框制作如下功能 Form1的init事件代码： public a a=1 this.text1.setfocus Text1的keypress事件代码： LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=13 if !empty(this.value) bo1.additem(this.value) bo1.displayvalue=this.value endif a=0 this.selstart=0 this.sellength=len(rtrim(this.text)) endif Text1的valid事件代码： if a=1 return .t. else a=1 return 0 endif Combo1的rightclick代码： if this.listindex0 thisform.text1.value=this.list(this.listindex) this.removeitem(this.listindex) this.value=1 endif