网页设计制作手机网站,浦口区网站建设经验丰富,php网站导航,杭州市建设工程招标信息网程序填空(改错)题#xff1a;在考生文件夹的paper 子文件夹中#xff0c;已有文件Modify.prg#xff0c;请自己打开文件#xff0c;在标记之前填写所缺代码、调试、保存#xff0c;并完成以下功能1、显示指定表中的全部字段名#xff0c;并由用户输入显示表信息…程序填空(改错)题在考生文件夹的paper 子文件夹中已有文件Modify.prg请自己打开文件在标记之前填写所缺代码、调试、保存并完成以下功能1、显示指定表中的全部字段名并由用户输入显示表信息的条件最后列表显示满足条件的记录SET TALK OFFCLEARINPUT M TO MNMDO WHILE INT(N)N ______ 1NN*10ENDDOSTORE MOD(N,10) TO D,X ______ 2DO WHILE N0 _______ 3R MOD(N,10) ______ 4IF RDDRENDIFIF RXRENDIFN INT(N/10) _______ 5ENDDO?M,中位值最大的数码是STR(D,1),最小的数码是STR(X,1) 。SET TALK ON2已知在考生目录的Paper子目录中已有学生表(学生.dbf)(学号姓名性别出生年月简历奖学金照片)要求显示“学生”表中的全部字段名。SET TALK OFFCLEARUSE 学生*****1*****FOR N 1 TO RECCOUNT() FCOUNT()*****2*****FOUND(N) ?FIELDS(N)ENDFORUSESET TALK ON3将给定的正整数数值表达式的值分解因子并输出各个质数因子。如24的因子有2、2、2和3SET TALK OFFSET ESCAPE OFFCLEAR?按ESC键结束操作DO WHILE .T.INPUT M TO MIF INT(M)!M OR ABS(M)!M?输入的数据不符合题目要求LOOPENDIF?ALLTRIM(STR(M,19))的质数因子有I2DO WHILE IMIF M%I0??STR(I,6)****************************MMOD(M,I) MINT(M/I)LOOPENDIFII1ENDDOIF INKEY(0)27EXITENDIFENDDOSET TALK ONSET ESCAPE ON4要求显示输出“学生”表中的1971年或以前出生的学生姓名和出生年月SET TALK OFFCLEARUSE 学生*****1*****LOCATE FOR 出生年月1971 {^1971-12-31}DO WHILE !EOF()?姓名,出生年月*****2*****SKIP continueENDDOUSESET TALK ON5求当135…n!的值不超过10的20次幂时的临界值及n的值。SET TALK OFFCLEAR*****1*****S0 S1STORE 1 TO T,NDO WHILE S1E20TT*(N1)*(N2)SST*****2*****NN1 NN2ENDDO?S,S-T?N,N-2SET TALK ON61)设计一个显示不同颜色和半径的圆的表单2)利用计时器时间产生半径递增的圆其颜色是随机产生的3)在单击“暂停”时停止画圆此时该命令按钮变成“画圆”再次单击“画圆”时继续前面的画圆过程。******************LOCAL rad public radthis.rad2 rad2t
