当前位置：文档之家 › VF编程题库

VF编程题库

  • 格式：doc
  • 大小：97.00 KB
  • 文档页数：10

第六章 程序设计编程题 1. 求园的面积（要求判断半径是否合理） Clea Inpu „r=‟ to r If r>0 S=3.14*r*r ?s Else ?‟半径错误！‟ Endif

2. 求分段函数Y的值

Clea Inpu „x=‟ to x If x>0 Y=2*x+5 Else If x=0 Y=x Else Y=abs(x) Endif Endif ?y

3. 输入一个百分制成绩判断其等级（优/良/中/及格/不及格） Clea Inpu „cj=‟ to cj Do case Case cj>=90 ?‟优‟ Case cj>=80 ?‟良‟ Case cj>=70 ?‟中‟ Case cj>=60 ?‟及格‟ Orth ?‟不及格‟ Endcase

4. 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格） Clea Inpu „请输入处理几个人的成绩：‟ to n For i=1 to n Inpu „cj=‟ to cj Do case Case cj>=90 ?‟优‟ Case cj>=80 ?‟良‟ Case cj>=70 ?‟中‟ Case cj>=60 ?‟及格‟ Orth ?‟不及格‟ Endcase endfor

5. 求S＝1+2+3. . . . . .+100

Y= 2x＋5 x>0 x x=0 | x | x<0 Clea S=0 For i=1 to 100 S=s+i Endfor ?s

6. 求S＝1×2×3. . . . . .×100 Clea p=1 For i=1 to 100 p=p*i Endfor ?p

7. 求S＝1+3+5.. . . . .+99 Clea S=0 For i=1 to 99 step 2 S=s+i Endfor ?s

8. 求S＝1－2+3－4. . . . . .－100 Clea S=0 For i=1 to 100 S=s+(-1)^(i+1)*i Endfor ?s

9. 求S＝1+1/2+2/3+3/5. . . . . .前10项之和 Clea S=0 A=1 B=1 For i=1 to 10 S=s+a/b T=a A=b B=t+b Endfor ?s

10. 求S＝1！+2！+3！. . . . . .+10！ Clea S=0 P=1 For i=1 to 10 P=p*i S=s+p Endfor ?s

11. 对学生表中所有入学成绩≥650分的学生免去贷款 Clea Use 学生 Scan for入学成绩>=650 .and. 贷款否=.t. Repl贷款否 with .f. Endscan Use 12. 输出图形

Clea For i=1 to 4 For j=1 to i ??‟*‟ Endfor ? Endfor Clea For i=1 to 4 For j=1 to 4-i ??‟ ‟ &&有一个空格 Endfor For j=1 to 2*i-1 ??‟*‟ Endfor ? Endfor

Clea For i=1 to 4 For j=1 to 4-i ??‟ ‟ &&有一个空格 Endfor For j=1 to i ??‟*‟ Endfor ? Endfor

13. 判断一个整数是否素数 Clea Inpu „x=‟ to x For i=2 to x-1 If mod(x,i)<>0 Loop Else Exit Endif Endfor If i>x-1 ?x,‟是素数‟ Else ?x,‟不是素数‟ Endif

14. 判断十个整数是否素数 Clea For j=1 to 10

* **** * ******* * **** ** *** *** ***** ** *** *** ** ***** *** *** ** **** * ******* * **** * Inpu „x=‟ to x For i=2 to x-1 If mod(x,i)<>0 Loop Else Exit Endif Endfor If i>x-1 ?x,‟是素数‟ Else ?x,‟不是素数‟ Endif Endfor

15. 找出两个数的大数和小数 Clea Inpu „x=‟ to x Inpu „y‟ to y If x>y ?x,‟大‟,y,‟小‟ Else ?y,‟大‟,x,‟小‟ Endif

16. 找出三个数的最大数和最小数 Clea Inpu „x=‟ to x Inpu „y‟ to y Inpu „z‟ to z If xz=t endif endif if yt=y y=z z=t endif ?x,‟是最大数‟,z,‟是最小数‟

17. 找出十个数的最大数和最小数 Clea Dime a(10) For i=1 to 10 Inpu to a(i) Endfor Max=a(1) Min=a(1) For i=2 to 10 If maxElse If min>a(i) Min=a(i) Endif Endif Endfor ?max,min

18. 找出2×3矩阵中的最大数和最小数 clea dime a(2,3) for i=1 to 2 for j=1 to 3 input „a(„+str(I,2)+‟,‟+str(j,2)+‟)=‟ to a(I,j) endfor endfor max=a(1,1) min=a(1,1) for i=1 to 2 for j=1 to 3 if maxmax= a(I,j) else if min> a(I,j) min= a(I,j) endif endif endfor endfor ?‟max=‟,max,‟min=‟,min

19. 对三个整数从大到小排序 Clear Input „a=‟ to a Input „b=‟ to b Input „c=‟ to c If ac=t endif endif If bT=b A=c c=t endif ?a,b,c

20. 对十个整数从大到小排序（用选择法和起泡法两种方法） 选择法: Clear Dime a(10) For i=1 to 10 Input to a(i) Endfor For i=1 to 9 Max=a(i) Num=i For j=i+1 to 10 If maxEndfor If i<>num t=A(i) a(i)=a(num) a(num)=t Endif Endfor For i=1 to 10 ??a(i),' ' Endfor

起泡法： Clear Dime a(10) For i=1 to 10 Input to a(i) Endfor For i=1 to 9 For j=1 to 10-i If a(j)a(j+1)=t Endif endfor Endfor For i=1 to 10 ??a(i),' ' Endfor

21. 输出Fibonacci（斐波那契）数列的前十项 Clear Dime a(10) a(1)=1 a(2)=1 For i=3 to 10 a(i)=a(i-1)+a(i-2) Endfor For i=1 to 10 ??A(i) Endfor

22. 输出杨辉三角的前十行 Clear Dime a(10,10) For i=1 to 10 A(I,1)=1 A(I,i)=1 Endfor For i=3 to 10 For j=2 to i-1 A(I,j)=a(i-1,j)+a(i-1,j-1) Endfor Endfor For i=1 to 10 For j=1 to i ??A(I,j) Endfor ? Endfor

23. 对2×3矩阵转置 Clea Dime a(2,3),b(3,2) for i=1 to 2 for j=1 to 3 input to a(I,j) endfor endfor for i=1 to 3 for j=1 to 2 b(I,j)=a(j,i) endfor endfor for i=1 to 3 for j=1 to 2 ??b(I,j) Endfor ? endfor

24. 求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身） Clea for x=100 to 999 a=int(x/100) b= mod(int(x/10),10) c=mod(x,10) if x==a*a*a+b*b*b+c*c*c ?x Endif endfor

25. 求100以内的所有完数（即一个数恰好等于除它本身外的所有因子之和） Clea for i=3 to 100 s=0 for j=1 to i-1 if mod(i,j)==0 s=s+j endif endfor if i==s ?i endif endfor

26. 已知三角形的三边（从键盘输入），求其面积(S^2=p(p-a)(p-b)(p-c), p=(a+b+c)/2) Clea input 'a=' to a

合集下载

VF试题及答案

VF试题及答案

VF试题及答案（一）一、选择题下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) DBMS的含义是：A) 数据库系统 B) 数据库管理系统C) 数据库管理员 D) 数据库(2)从关系模式中指定若干个属性组成新的关系的运算称为：A) 联接 B) 投影 C) 选择 D) 排序(3)对于“关系”的描述，正确的是：A) 同一个关系中允许有完全相同的元组B) 同一个关系中元组必须按关键字升序存放C) 在一个关系中必须将关键字作为该关系的第一个属性D) 同一个关系中不能出现相同的属性名(4)在表设计器的“字段”选项卡中可以创建的索引是A) 唯一索引 B) 候选索引 C) 主索引 D) 普通索引(5)在程序中不需要用public等命令明确声明和建立，刻直接使用的内存变量是A) 局部变量 B) 公共变量 C) 私有变量 D) 全局变量(6)扩展名为dbf的文件是A) 表文件 B) 表单文件 C) 数据库文件 D) 项目文件(7)下列程序段的输出结果是CLEARSTORE 10 TO ASTORE 20 TO BSET UDFPARMS TO REFERENCEDO SWAP WITH A,(B)A,BPROCEDURE SWAPPARAMETERS X1, X2TEMP=X1X1=X2X2=TEMPENDPROCA) 10 20 B) 20 20 C) 20 10 D) 10 10(8)使用调试器调试第(7)小题的程序，如果想在过程SWAP执行时观察X1的值，可以在其中安置一条命令，程序执行到该命令时，系统将计算X1的值，并将结果在调试输出窗口中显示，这条命令的正确写法是：A) DEBUGOUT X1 B) DEBUG X1 C) OUT X1 D) TEST X1(9) 设X=10, 语句?VARTYPE ("X")的输出结果是A) N B) C C) 10 D) X(10) 表达式LEN(SPACE(0))的运算结果是A) .NULL. B) 1 C) 0 D) ""(11) 为表单建立了快捷菜单mymenu，调用快捷菜单的命令代码DO mymenu.mpr WITH THIS 应该放在表单的那个事件中？A) Destory事件B) Init事件C) Load事件D) RightClick事件(12)(24)题使用的数据表如下：当前盘当前目录下有数据库：学院.dbc，其中有“教师”表和“学院”表。

专升本计算机经典VFP编程题汇总100题

专升本计算机经典VFP编程题汇总100题

1: 第1题m个人的成绩存放在score数组中，请编写函数fun,它的功能是：将低于平均分的人作为函数值返回，将低于平均分的分数放在below所指定的函数中。

答案：int fun(int score[],int m,int below[]){int i,k=0,aver=0;for(i=0;i＜m;i++)aver+=score[i];aver/=m;for(i=0;i＜m;i++)if(score[i]＜aver){below[k]=score[i];k++;}return k;}2: 第2题请编写函数fun，它的功能是：求出1到100之内能北7或者11整除，但不能同时北7和11整除的所有证书，并将他们放在a所指的数组中，通过n返回这些数的个数。

答案：void fun(int *a, int *n){int i,j=0;for(i=2;i＜1000;i++)if ((i%7==0 || i%11==0) && i%77!=0)a[j++]=i;*n=j;}3: 第3题请编写函数void fun(int x,int pp[],int *n),它的功能是：求出能整除x且不是偶数的各整数，并按从小到大的顺序放在pp所指的数组中，这些除数的个数通过形参n返回。

答案：void fun(int x, int pp[ ], int *n){int i=1,j=0;k=0,*t=pp;for(i=0;i＜=x;i++)if(i%2!=0){t[j]=I;j++;}for(i=0;i＜j;i++)if(x%t[i]==0){pp[k]=t[i];k++;}*n=k;}4: 第4题请编写一个函数void fun(char *tt,int pp[]),统计在tt字符中"a"到"z"26各字母各自出现的次数，并依次放在pp所指的数组中。

答案：void fun(char *tt, int pp[]){int i;for (i=0;i＜26;i++)pp[i]=0;while (*tt){switch (*tt){case ‘a’: pp[0]++;break;case ‘b’: pp[1]++;break;case ‘c’: pp[2]++;break;case ‘d’: pp[3]++;bre ak;case ‘e’: pp[4]++;break;case ‘f’: pp[5]++;break;case ‘g’: pp[6]++;break;case ‘h’: pp[7]++;break;case ‘i’: pp[8]++;break;case ‘j’: pp[9]++;break;case ‘k’: pp[10]++;break;case ‘l’: pp[11]++;break;case ‘m’: pp[12]++;break;case ‘n’: pp[12]++;break;case ‘o’: pp[14]++;break;case ‘p’: pp[15]++;break;case ‘q’: pp[16]++;break;case ‘r’: pp[17]++;break;case ‘s’: pp[18]++;break;case ‘t’: pp[19]++;break;case ‘u’: pp[20]++;break;case ‘v’: pp[21]++;break;case ‘w’: pp[22]++;break;case ‘x’: pp[23]++;b reak;case ‘y’: pp[24]++;break;case ‘z’: pp[25]++;break;}tt++;}}5: 第5题请编写一个函数void fun(int m,int k,int xx[]),该函数的功能是：将大于整数m且紧靠m的k各素数存入xx所指的数组中。

计算机VF考试程序题库

计算机VF考试程序题库

题号:1【程序设计】*题目：求连乘数1*2*3*4*……，当积大于720时退出程序。

* （提示：利用do while语句实现）。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------Set talk offs=1 && S表示积I=1**********Program******************** End ********** Set talk onreturn答案：Do while .T.s=s*iIF S>720EXITENDIFI=I+1Enddo? "s=",s题号:2*【程序设计】*题目：求[1,100]内所有能被3或被5整除的数以及个数。

* （提示：利用do while语句实现）。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------Set talk offclearn=0i=1**********Program********** ********** End **********? "满足条件的数的个数为:",nSet talk onReturn答案：Do while i<=100IF MOD(i,3)=0 .OR. MOD(i,5)=0**int(i/3) = i/3 .OR. int(i/5) = i/5?? in=n+1Endifi=i+1enddo题号:3*【程序设计】*题目：从键盘上任意输入2个数，然后将这2个数从大到小显示输* 出。

（注：中间变量用t，不允许使用max（）函数和min（）* 函数）。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------INPUT "输入第1个数：" TO n1 INPUT "输入第2个数：" TO n2 **********Program******************** End ********** ENDIF?n1,n2RETURN答案：IF n1<n2t=n1n1=n2n2=t题号:4*【程序设计】*题目：求自然数1至100的和并输出。

VF题库29-32

VF题库29-32

第２９套一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）（1）根据score数据库，使用查询向导建立一个含有学生"姓名"和"出生日期"的标准查询query31.qpr。

（2）从score数据库中删除视图newview。

（3）用SQL命令向score1表插入一条记录：学号为"993503433"、课程号为"0001"、成绩为"99"。

（4）打开表单myform34，向其中添加一个"关闭"命令按钮（名称为Command1），单击此按钮关闭表单（不可以有多余的命令）。

【解析】本大题考查的主要是数据库和数据库表的一些基本操作，为数据表建立索引、增加字段和设置有效性规则都是在数据表设计器中完成的，建立数据表之间的关联则是在数据库设计器中完成的。

【答案】（1）选择"文件"－"新建"菜单命令，在弹出的"新建"对话框中，选择"查询"，单击"向导"按钮，根据向导的提示,首先选择表student作为查询的数据源，然后选择student表的姓名、出生日期字段为选定字段，连续单击下一步，直至"完成"界面，单击"完成"命令按钮，输入保存的查询名为query31。

（2）在命令窗口输入命令：MODIFY DA TABASE score，打开数据库设计器，在数据库设计器中的"newview"视图上单击右键，在弹出的菜单中选择"删除"，并在弹出的对话框中选择"移去"。

（3）在命令窗口输入如下命令，为score1表增加一条记录。

INSERT INTO score1(学号,课程号,成绩) V ALUES ("993503433","0001",99)（4）打开表单后，添加表单控件工具栏中的命令按钮到表单，在属性面板中修改该命令按钮的Caption属性值为"关闭"，双击该按钮，在Click事件中输入代码：ThisForm.Release。