VFP题目2.doc

3改错题：CLEAR*found*I=0do while i=3 ACCEPT 请输入您的用户名： TO 用户名 IF 用户名=ABC ?欢迎使用本系统！ WAIT*found* LOOP ELSE ?用户名错误！ i=i+1 ENDIFENDDO?结束SET TALK ONRETURN答案：I=1ExitCLEA SET TALK OFF S=0 T=1 INPUTN= TO N INPUTX= TO X *found* FOR I=1 TO N A=XI T=T*(1/I) *found* S=S+1/T*A ENDF ?泰勒展开式的和为：,S+1 SET TALK ON答案：FOR I=1 TO N-1 S=S+T*A SET TALK OFFCLEARINPUT A= TO AINPUT B= TO BINPUT C= TO CD=B*B - 4*A*Cif D0 ?X1=X2=,-B/(2*A)ELSE *found* D1=ABS(D) ?X1=,(-B+D1)/(2*A) ?X2=,(-B-D1)/(2*A)ENDIFENDIFSET TALK ONRETURN答案：If d=0D1=sqrt(b*b-4*a*c)set talk off clear x=120030056000y=0s=0do while .t. *found* n=mod(x/10) if n=y s=s+1 endif x=int(x/10) *found* if x!=0 exit endifenddo? sset talk on答案：N=Mod(x,10)If x=0Set talk offcLearinput “n=” to ninput “m=” to mdime a(n,m),b(m,n)for i=1 to n for j=1 to m input “a(“+str(i,1)+”,”+str(j,1)+”)=” to a(i,j) - b(i,j)=a(j,i) 改成 b(j,i)=a(i,j) endfor endfor for i=1 to n for j=1 to m ?a(i,j) Endfor ? EndforFor i=1 to m For j=1 to n?b(i,j) 改成 ?b(i,j) Endfor ?endforset talk on 答案将r=thisform.text1.value 改成 r=val(thisform.text1.value)将if empty(r) 改成 if not empty（r）Loop 改为exitI=数字 改为 i=sqrt(数字)将seek 改为 locate forWith 后改为 奖学金+10S1=奖学金 改为 S1=s1+奖学金Loop 改为SkipA(I,J)=A（I,J-1）+A（I-1,J）改为A(I,J)=A（I-1,J-1）+A（I-1,J）?A(I,J) 改为?str(A(I,J),1)+space(1)Kh=val(subs(考号,4,3)SkipCLEARS=0T=1N=0DO WHILE S=85 and 上机成绩=85For 优秀否=.t.SET TALK OFFCLEARUSE std14C=FOR I=1 TO 3 ACCEPT C+请输入口令：TO PSW LOCATE FOR ALLTRIM(口令)=ALLTRIM(PSW)*found*IF _(1)_ ?欢迎使用本系统！ EXIT ENDIF C=口令错！再试一次。ENDFOR*found*_(2)_ ?无权使用本系统！再见！ENDIFUSESET TALK ON答案：Found()If i=4(1)mod(k,b)=0 (2)k=k-1（1）store 0 to boys, Girls (2)if 性别（1）2*i-1（2）?chr(64+i)（1）10（2）n(i),s(i)4a(i,5)+a(i,j)Locate for 学号=XHCj=各科成绩相加/nInt(num_y/10)*10exitNumber into AYear(date()-year(A.birthday)=18SET TALK OFFCLEARFOR I=10 TO 99 FOR J=2 TO I-1*found* IF _(1)_ EXIT ENDIF ENDFORIF I=J A=INT(I/10)B=MOD(I,10)*found*K=_(2)_FOR P=2 TO K-1 IF K%P=0 EXIT ENDIFENDFORIF K=P ?IENDIF ENDIFENDFORSET TALK ON答案：mod(I,j)=010*b+aset talk offclearc=for i=1 to 3 accept c+请输入口令：to psw if psw=123456 ?欢迎使用本系统！*found* _(1)_ endif*found* _(2)_ ?口令三次错误，无权使用本系统！再见！ else ?口令错！再试一次。 endifendforset talk on答案：ExitIf i32基本操作题答案：仿照教材P165答案：实验8中8.4的第2题答案：实验10中10.4的第5题答案：仿照教材P159答案：见实验9中9.4的第5题答案：仿照实验9中的9.4的第4题1.选择“文件”中的“新建”命令，弹出“新建”对话框，选中“表单”单选按钮，淡季“新建文件”按钮。2.向表单内添加一个文本框和一个选项按钮组（buttoncount设置为“3”）3.设置文本框的属性。Value设置为“表单操作试题”，fontname设置为“楷体-gc2312”，FONTSIZE设置为“20”4.右击选项按钮组，从弹出的快捷菜单中选择“编辑”命令，依次设置为3个选项按钮的CAPTION为“红色表单背景”“蓝色文本框字体”和“退出”5.双击“红色表单背景”选项按钮，选择“CLICK”事件，输入程序代码： Thisform.backcolor.=rgb(255,0,0)6.双击“蓝色文本框字体”选项按钮，选择“click”事件，输入程序代码： Thisform.text1.forecolor=rgb(0,0,255)7.双击“退出”选项按钮，选择”click”事件，输入程序代码 Thisform.releaseN=VAL(THISFORM.TEXT1.VALUE)DIME A(N,N)THISFORM.EDIT1.VALUE=FOR I=1 TO N FOR J=1 TO N IF I=J OR I+J=N+1 A(I,J)=A ELSE A(I,J)=B ENDIF THISFORM.EDIT1.VALUE=THISFORM.EDIT1.VALUE+A(I,J)+SPACE(3) ENDFOR THISFORM.EDIT1.VALUE=THISFORM.EDIT1.VALUE+CHR(13)ENDFORTHISFORM.REFRESHloca for 姓名=thisform.list1.valuethisform.refreshUse score.dbfM=0Go topScan Repl 总分 with 英语+数学+计算机 If 总分/3=70 and 性别 M=m+1EndifEndscanUseThisform.text1.value=mThisform.refreshch=alltrim(thisform.text1.value)k=len(ch)dx=0xx=0qt=0for i=1 to k c=substr(ch,i,1) do case case asc(c)=65 and asc(c)=97 and asc(c)=20 exit endif enddo thisform.label3.caption=str(s) thisform.edit1.value=ch thisform.refreshForm1.init代码：Thisform.setall(“visible”,.f.,”textbox”)Thisform.setall(“visible”,.f.,”label”)Thisform.label1.visble=.t.Thisform.text1.visible=.t.Thisform.refreshText1.valid事件代码：Locate for 学号=alltrim(thisform.text1.value)If not found() Thisform.label2.visble=.t. Thisform.label2.caption=”你所指定的学生不存在”ElseThisform.setall(“visible”,.t.,”textbox”)Thisform.setall(“visible”,.t.,”label”)Thisform.label2.visble=.f.EndifThisform.refresh代码：Thisform.text1.fontsize=thisform.text1.fontsize+1If thisform.text1.fontsize=30 Thisform.timer1.enabled=.f.EndifThisform.refresh5部分编程题Set talk offClearACCEPT m= to mL=LEN(m)?La=at(.,m)if a=0 MB=0 MC=L MA=LELSE MB=L-a MC=L MA=a-1ENDIFB=VAL(m)if abs(B)B MA=MA-1ENDIF?MA,MB,MCSET TALK ONSet talk offCleardime a(10)for i=1 to 10input a(+str(i,1)+)= to a(i)endforfor i=1 to 9 for j=i+1 to 10 if a(i)max Max=b Endif If bk If substr(XB,1,2)=”男” M=M+1 Else N=N+1 EndifSkipEnddo?”工资高于1900的男生个数为:”,M?”工资高于1900的女生个数为:”,NSet talk onSet talk offUse proginReplce all 等级with “优” for 成绩90Replce all 等级with “良” for 成绩80 .and. 成绩70 .and. 成绩=60 .and. 成绩69Replce all 等级with “不及格” for 成绩6