第六章实验报告guoxiya.docVIP

实验一 实验报告 1.NOTE 判断整数奇偶性的程序（PTEST10.prg） CLEAR INPUT“输入整数=”TO X IF(X/2)=INT(X/2) ?X ??“是偶数！” ELSE ENDIF CANCEL 2.用命令方式建立程序时，取的文件名要符合操作系统的规定，命令中可以包括盘符和路径，若命令后面没有文件名，则VFP会打开一个称为“程序一”的新窗口，关闭退出时，系统会提示是否改名保存。 用菜单方式建立程序时，主要是利用“项目管理器”；首先创建一个新项目或打开一个已有项目，在“代码”项下选择“程序”，然后单击“新建”按钮。这样建立的程序会自动成为项目一部分。 实验二 实验报告 1. 实验三 实验报告 1.SET TALK OFF CLEAR INPUT 请输入一个三位整数：” FOR I=LN TO 1 FSN=FSN+SUBSTR(SN,I,1) ENDFOR FN=VAL(FSN) ?N””,FN SET TALK ON 2. CLEAR INPUT输入一个整数: to n n%2=0 ?n^3 IF n%2!=0 ?n^2 ENDIF 3.CLEAR INPUT“请输入考试成绩：”TO cj DO CASE CASE CJ60 ?“不合格” CASE CJ=90 ?“优秀” OTHERWISE ?“通过” ENDCASE RETURN 4.SET TALK OFF CLEAR USE 员工 ACCEPT“请输入员工编号；”TO N LOCA FOR ALLT(编号)=ALLT(N) IF !FOUND() ?“X X编号不存在” ELSE AVER 销售总额 FOR ALLT(编号)=ALLT(N) IF N=2000 ?“优” IF 500N2000 ?“合格” IF N=500 ?“不合格” OTHERWISE ?“无销售记录” ENDIF 实验四 实验报告 1. N=INT(10000/9) ? FOR ? I=1000 ? TO ?N? ? ? K1=STR(I,4) ? ? ? K1B=RIGHT(K1,1)+SUBSTR(K1,3,1)+SUBSTR(K1,2,1)+LEFT(K1,1) ? ? ? IF ? K1B==STR(I*9,4) ? ? ? ? ? ? ? ? I ? ? ? ? ? ? EXIT ? ? ? END IF  END FOR 2. USE TABLELITE APPEND BLANK 3. Close AllUse 表nPage=1nPageTotal=Int((Reccount()-1)/20)+1Do While .T.?Clear??字段1 字段2 字段3 ?Go Top?Skip (n1)*20?For lnCnt=1 To 20??If Recno()Reccount()???字段1,字段2,字段3,???Skip???EndIf??EndFor??????请选择(PgUp上页/PgDn下页/Esc结束)??nChoice=Inkey(60)??Do Case??Case nChoice=27 Or nChoice=0???Exit??Case nChoice=3 And nPagenPageTotal???nPage=nPage+1??Case nChoice=18 And nPage1???nPage=n1??EndCase EndDoReturn 4. 5. CLEAR S=o For n=1 to n S=S*2^n IF s=4000 ?n Else ?”” Endfor Endif Cancel 6. dim num(5)dim i,n,tfor i=0 to 4Randomizenum(i)=CInt(RND *1000)nextfor i=0 to 3for n=i to 4if num(i) num(n) thent=num(i)num(i)=num(n)num(n)=tEnd ifnextnextmsgbox??(5个随机数为: num(0) , num(1) , num(2) , ??num(3) , num(4))