VF习题VF习题.docVIP

1．题目：编写函数，根据上网时间计算上网费用，计算费用的方法如下： 上网时间在10小时以内（含10小时），费用是50元； 上网时间为11到30小时（含30小时），费用是4元/小时； 上网时间超过30小时，费用是3元/小时。 将费用存放在变量Y中。 SET TALK OFF SET LOGERRORS ON CLEAR INPUT 请输入上网时间： TO X Y = FUN(X) ? Y=,Y YZJ() SET TALK ON RETURN FUNCTION FUN(X) **********PROGRAM******* Do case Case x=10 Y=50 Case x10 and x=30 Y=4x Case x30 Y=3x endcase ********** END ********** RETURN Y FUNCTION YZJ() USE IN LOCAT FOR TIHAO=1 IF FOUND() O=FUN(N1) O1=FUN(N2) O2=FUN(N3) DO YZJ1 WITH O,O1,O2 ELSE ?试题输入文件已损坏，请重新配置考试环境 ENDIF RETURN 2．题目：编写函数，从键盘输入1个字符串，统计其中含有字母a的个数。把这个数放入变量Y中。例如：输入“abcaea”，结果为3。 ----------------------------------------- SET TALK OFF SET LOGERRORS ON CLEAR ACCEPT 请输入一个字符串： TO X Y = FUN(X) ? Y=,Y YZJ() SET TALK ON RETURN FUNCTION FUN(X) **********PROGRAM******* y=0 for i=1 to len(X) if a=substr(X,i,1) y=y+1 endif endfor ********** END ******** RETURN Y FUNCTION YZJ() USE IN LOCAT FOR TIHAO=1 IF FOUND() O=FUN(N1) DO YZJ1 WITH O ELSE ?试题输入文件已损坏，请重新配置考试环境 ENDIF RETURN 3．题目：在屏幕上纵向输出计算机等级考试。（要求用循环语句实现） 并将第五行的字符输出到给定变量中请按照题目要求，在下面编写程序代码。 ----------------------------------------- SET TALK OFF SET LOGERRORS ON Y= **********Program********** S=计算机等级考试 i=1 do while i14 ?subs(s,i,2) i=i+2 enddo Y=级 ********** End ********** DO YZJ5 WITH Y CANCEL 4．题目：求2到20之间所有的素数。（素数是只能被1和本身整除的数） 将所有素数输出，并求所有素数的和，输出并存入变量Y中 请按照题目要求，在下面编写程序代码。 ----------------------------------------- CLEAR SET TALK OFF SET LOGERRORS ON Y=-1 **********Program********** Y=0 for i=2 to 20 for j=2 to i if int(i/j)=i/j exit endif endfor if j=i ?i,是素数 Y=Y+I endif endfor ********** End ********** DO YZJ7 WITH Y RETURN 5．题目：从键盘任意输入的三个数按从大到小排序。 排序后存入变量A，B，C中 请按照题目要求，在下面编写程序代码。 ----------------------------------------- SET TALK OFF SET LOGERRORS ON A=-1 B=-1 C=-1 input x= to x input y= to y input z= to z FUN(X,Y,Z) YZJ() RETURN FU