中国医科大学《VISUAL FOXPRO数据库与程序设计》91K VF编程作业复习汇总.docVIP

clear set talk off ?巧算质数和 ?输入一个正整数N，输出N以内全部质数的和，并打印N以内质数的个数。 ?例如：输入正整数100，则求出100以内所有质数2、3、5、7…97，并计算出这些数的总和。 *提示：* *1）使用循环结构编程* *2）判断是否质数可使用int()函数* ? do while .T. 循环控制用户可反复进行计算 t=0 赋初值 m=0 input 请输入正整数N： to n if n=0 .or. int(n)n 判断是否符合要求 wait 您输入的不是正整数，请按任意键重新输入！ loop 跳回循环起始点 endif ?N以内质数为： ?2 for x=3 to n for y=2 to sqrt(x) if int(x/y)=x/y exit endif next if x/y=int(x/y) loop endif t=t+x 累加器 m=m+1 计数器 ?x next ? ?N以内质数的个数为+alltrim(str(m+1))+个 ?N以内全部质数的和为+alltrim(str(t+2)) ***注意要用函数将数值型数据转为字符型，并去掉前后的零*** wait 您还要继续计算吗？（Y/N） to answer if upper(answer)=Y clear loop else wait 程序运行结束，再见！ clear exit endif enddo return clear set talk off ?打印空心菱形 ?在屏幕中央，打印用“*”字符组成的空心菱形。 *提示：* *1）使用@命令来进行设计* *2）使用循环结构编程时注意控制行列的变化* ? do while .t. _SCREEN.FONTSIZE=12 input 请输入2-8之间的任意一个整数N： to N if N8 .or. N2 .or. int(N)N wait 输入的数不在2和8之间，请按任意键重新输入！ loop 跳回循环起始点 endif I=6 设定正三角顶点的行坐标 P=29 设定下一行左侧的列坐标初值 Q=31 设定下一行右侧的列坐标初值 @I,P+1 say * pict X 输出顶点，开始输出正三角 for M=2 to N I=I+1 换行 @I,Q say * pict X 输出右侧* @I,P say * pict X 输出左侧* P=P-1 下一行左侧列坐标左移1列 Q=Q+1 下一行右侧列坐标右移1列 endfor 正三角输出完毕 P=P+2 设定倒三角第一行左侧列坐标初值 Q=Q-2 设定倒三角第一行右侧列坐标初值 for M=N-1 to 2 step -1 开始输出倒三角 I=I+1 换行 @I,P say * pict X 输出左侧* @I,Q say * pict X 输出右侧* P=P+1 下一行左侧列坐标右移1列 Q=Q-1 下一行右侧列坐标左移1列 endfor 倒三角输出完毕 @I+1,P say * pict X 输出倒三角顶点 wait 您还要继续吗？（Y/N） to answer if upper(answer)=Y clear loop else wait 程序运行结束，再见！ clear exit endif enddo return clear set talk off ?字符串倒序 *提示：* *1）判断是否汉字可使