VFP习题集 数据库练习 下载本文

内容发布更新时间 : 2024/6/26 16:07:23星期一 下面是文章的全部内容请认真阅读。

*题目:求1到50的累加和(S=1+2+3+...+50)并显示。请在【】处添上 * 适当的内容,使程序完整。

*-------------------------------------------------------

***********SPACE********** 【?】 I=1

***********SPACE********** DO WHILE 【?】 H=H+I

***********SPACE********** 【?】 ENDDO ? H

RETURN

*题目:输出3到100之间的所有素数,并要求每行显示5个素数。 *------------------------------------------------------- SET TALK OFF CLEAR N=3 J=0

DO WHILE N<100 I=2

DO WHILE I

IF INT(N/I)=N/I

**********SPACE********** 【?】 ENDIF I=I+1 ENDDO IF I>=N ??STR(N,5) J=J+1 IF INT(J/5)=J/5 **********SPACE********** 【?】 ENDIF ENDIF

**********SPACE********** 【?】 ENDDO

1

SET TALK ON RETURN

*【程序改错】--2222

*-------------------------------------------------------

*题目:本程序求给定两个正整数的最大公约数。

*-------------------------------------------------------

*注意:不可以增加或删除程序行,也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF CLEA

INPUT 'N=' TO N INPUT 'M=' TO M X=MIN(M,N)

FOR I=X TO 1 STEP -1

IF M/I=INT(M/I) and N%I=0 G=I

**********FOUND********** LOOP

**********FOUND********** ENDF

ENDFOR

? \最大公约数是\

SET TALK ON

*题目:将“学生”表中指定的学生(由键盘输入)的奖学金加10元,*并显示该学生的奖学金,其中学生表中有学号、姓名、性别、出 *生年月、简历奖学金、照片等7个字段

*-------------------------------------------------------

*注意:不可以增加或删除程序行,也不可以更改程序的结构。 *------------------------------------------------------- SET TALK OFF CLEAR USE 学生 ACCEPT \请输入学生学号:\ ***********FOUND********** SEEK学号=XH

IF !EOF()

***********FOUND********** REPLACE ALL 奖学金 WITH 10

?学号,姓名,奖学金 ELSE ?\没有找到!\ ENDIF

2

USE

SET TALK ON

*题目:计算并在屏幕上显示部分乘法表。显示格式如下: * 1×1= 1 * 1×2= 2 2×2= 4

* 1×3= 3 2×3= 6 3×3=9

* 将各部分的结果相加(1+2+4+3+6+9)存入变量Z中 * 要求用DO WHILE循环实现

*请按照题目要求,在下面编写程序代码。 *------------------------------------------------------- SET TALK OFF SET LOGERRORS ON CLEAR

Z=0

**********Program********** ********** End ********** DO YZJ23 WITH Z SET TALK ON RETURN

*题目:求1--200间的所有偶数的和,结果输入变量OUT中, * 要求用FOR循环实现

* *请按照题目要求,在下面编写程序代码。 *------------------------------------------------------- SET TALK OFF

SET LOGERRORS ON

OUT=-1

**********Program********** ********** End ********** DO YZJ24 WITH OUT SET TALK ON

RETURN

*题目:下面程序是编写去掉一个最大数,去掉一个最小数,求平均数的程序。* 请在【】处添上适当的内容,使程序完整。 SET TALK OFF CLEAR

INPUT \

***********SPACE********** 【?】

STORE A TO X,Y S=A P=N-2

3