海大vfp第5章56.docVIP

循环结构程序设计 1．实验目的 （1）掌握DO WHILE……ENDDO、FOR……ENDFOR语句 （2）了解SCAN……ENDSCAN （3）了解组合框、页框、微调器、OLE对象。 （4）掌握列表框、计时器对象。 2. 实验内容： （1）素数问题 判断按钮command的代码：； n=THISFORM.Text1.value s=0 i=2 DO　WHILE　ｉ=SQRT(n) AND s=0 IF n%=0 S=1 ELSE i=i+1 END IF END DO IF s=0 a =”是一个素数” ELSE a =”不是素数” END IF =MESSAGEBOX(ALLT(STR(n))+a.64+0+0,”信息”) （2）使用列表框输出0~200之间所有含有5的数据 FOR n=0 TO 200 IF “5””n” THISFORM.List1.additem(allt(str(n)) Enif Endfor （3）歌德巴赫猜想（任意一个大于等于6的偶数都可以分解为两个素数之和） Dim? n%,n1%,n2% 　　n=Val（InputBox（输入大于6的正整数）） 　　For n1=3 to n\2 step 2 　　n2=n-n1 　　If? prime（n1）?? Then 　　If? prime（n2） then 　　Print n = n1 + n2 Exit For???????????????????????????????　End if 　End if　Next? n1 For i = 1 To 5 a = For j = 4 To i Step -1 统计每行的空格数a = a Next For k = 1 To 2 * i - 1 每行的*数a = a *Next ListBox1.AddItem aNext private sub form1_click()dim i as integer,j as integerfor i = 1 to 9for j = 1 to iprint tab(4*j);i * j ;next jnext iend sub （6）在文本框中输入一串字符串，点击“去除空格”按钮，可以除掉字符串中所有空格，并把除掉空格的字符串在标签中显示。 thisform.text1.value = strtran(thisform.text1.value,””) 不会做！！！！！！！！！ （7）在Text1中输入正整数n，将其转化为二进制数c，通过Text2输出。 代码 N=thisform.text1.value For a=0 to 1 For b=0 to 1 For c=0 to 1 For d= 0 to 1 For f =0 to 1 N=a*2^0+b*2^1+c*2^2+d*2^3+e*2^4+f*2^5+g*2^6+h*2^7+ Thisform.text2.value=(allt(str(n)) (allt(str(n)) (allt(str(n)) (allt(str(n)) (allt(str(n)) （8）用DO WHILE...ENDDO型循环结构FOR型循环结构实现键盘输入10个数，输出其平均值。Key press 事件 If this.listcount=10 If nkeycode =13 This ,additem(this .diaplay value) N=this diaplay value N=N+ this diaplay value Endif thisform.text1.value=N*10 （9）求算式xyz+yzz=532中x，?y，z的值（其中xyz和yzz分别表示一个三位数）。 For x=0 to 9 For y =0 to 9 For z =0 to 9 If 100*(x+y)+10*(y+z)+2z=532 Thisform.list1.additem（x.1.1） Thisform.list1.additem（y.2.1） Thisform.list1.additem（z.3.1） Endif Endfor Endfor Endfor （10）设计打字测试程序。具体要求： a.当表单开始运行时，出现打字试题，通过标签（Label1）显示，并且修改表单标题为“打字测试”； b.点击“计时开始”按钮，打字开