海大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 （4）输入初始值，输出50个能被31整除的数； 计算按钮command的代码 n=thiaform.text1.value if thisform.list1.listcount =50 if n%31=0 thisform,last1.additem(allt(str(n)) endif n=n+1 end if （5）在同一个列表框中（用按钮控制命令组）输出“*”的斜三角形（正三角形）和输出九九乘法表； 命令按钮组commandgroup1的Click事件的代码 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