【正文】 ENDCASE FOR I=1 TO 6 amp。amp。處理各班設(shè)計(jì) DO CASE CASE I=1 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù) 庫(kù) K=RECCOUNT() DECLARE TEMP(K) GOTO 1 KM_MCH=語(yǔ)文 J=1 FOR J=1 TO K TEMP(J)=YW SKIP ENDFOR CASE I=2 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù)庫(kù) K=RECCOUNT() DECLARE TEMP(K) GOTO 1 KM_MCH=數(shù)學(xué) J=1 FOR J=1 TO K TEMP(J)=SX SKIP ENDFOR CASE I=3 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù)庫(kù) K=RECCOUNT() DECLARE TEMP(K) 重慶科技學(xué)院《 VF 程序設(shè)計(jì)》課程設(shè)計(jì)報(bào)告 34 GOTO 1 KM_MCH=英語(yǔ) J=1 FOR J=1 TO K TEMP(J)=YY SKIP ENDFOR CASE I=4 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù)庫(kù) K=RECCOUNT() DECLARE TEMP(K) GOTO 1 KM_MCH=歷史 J=1 FOR J=1 TO K TEMP(J)=LS SKIP ENDFOR CASE I=5 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù)庫(kù) K=RECCOUNT() DECLARE TEMP(K) GOTO 1 KM_MCH=政治 J=1 FOR J=1 TO K TEMP(J)=ZZ SKIP ENDFOR CASE I=6 amp。amp。處理一個(gè)班的成績(jī) USE amp。BJ_NAME amp。amp。打開數(shù)據(jù)庫(kù) K=RECCOUNT() DECLARE TEMP(K) GOTO 1 KM_MCH=地理 J=1 FOR J=1 TO K TEMP(J)=DL SKIP ENDFOR ENDCASE amp。amp。下面的操作是進(jìn)行排序操作 M=0 N=0 重慶科技學(xué)院《 VF 程序設(shè)計(jì)》課程設(shè)計(jì)報(bào)告 35 Y=0 amp。amp。指針變量 X=0 amp。amp。中間變量 FOR M=2 TO K IF TEMP(M)TEMP(M1) N=M1 X=TEMP(M) DO WHILE XTEMP(N) TEMP(N+1)=TEMP(N) N=N1 IF N=0 EXIT ENDIF ENDDO TEMP(N+1)=X ENDIF ENDFOR amp。amp。排序完畢 ZH1=0 ZH2=0 ZH3=0 amp。amp。計(jì)算離均差 FOR M=1 TO 1 ZH1=ZH1+TEMP(M) ENDFOR FOR M=2 TO 2 ZH2=ZH2+TEMP(M) ENDFOR FOR M=3 TO 3 ZH3=ZH3+TEMP(M) IF EOF() EXIT ENDIF ENDFOR P=(ZH1/3)*+(ZH2/1)*+(ZH3/1)* CLOSE ALL USE TEACHER amp。amp。c 查找任課教師姓名 LOCATE FOR NAME==KM_MCH KR_TEACHER= USE USE amp。amp。填寫離均差表 GOTO ABC REPLACE WITH BJ_MCH, WITH P REPLACE WITH KM_MCH, WITH KR_TEACHER 重慶科技學(xué)院《 VF 程序設(shè)計(jì)》課程設(shè)計(jì)報(bào)告 36 ABC=ABC+1 CLOSE ALL ENDFOR ENDFOR CLOSE ALL 計(jì)算系數(shù) FOR A=1 TO 6 DO CASEamp。amp。處理六科成績(jī) CASE A=1 KM_NAME=”語(yǔ)文 ” KM_DAIMA=”YW” CASE A=2 KM_NAME=”英語(yǔ) ” KM_DAIMA=”YY” CASE A=3 KM_NAME=”數(shù)學(xué) ” KM_DAIMA=SX” CASE A=4 KM_NAME=”物理 ” KM_DAIMA=”WL” CASE A=5 KM_NAME=”化學(xué) ” KM_DAIMA=”HX” CASE A=6 KM_NAME=”生物 ” KM_DAIMA=”SW” ENDCASE XSGS=0 FOR I=1 TO 3 DO CASE CASE I=1 USE XSGS=XSGS+RECCOUNT() CASE I=2 USE XSGS=XSGS+RECCOUNT() CASE I=3 USE XSGS=XSGS+RECCOUNT() ENDCASE ENDFOR *初始化數(shù)組 DECLARE TEMP(XSGS) FOR HOU=1 TO XSGS 重慶科技學(xué)院《 VF 程序設(shè)計(jì)》課程設(shè)計(jì)報(bào)告 37 TEMP(HOU)=0 ENDFOR *初始化指針 J=1 amp。amp。 計(jì)算應(yīng)理系統(tǒng) FOR I=1 TO 3 DO CASE CASE I=1 BJ_DAIMA=”” CASE I=2 BJ_DAIMA=”” CASE I=3 BJ_DAIMA=”” ENDCASE USE amp。BJ_DAIMA GOTO 1 FOR X=1 TO RECCOUNT() TEMP(J)=amp。KM_DAIMA SKIP J=J+1 IF JXSGS EXIT ENDIF ENDFOR M=0 N=0 amp。amp。指針變量 X=0 amp。amp。中間變量 FOR M=2 TO XSGS IF TEMP(M)TEMP(M1) N=M1 X=TEMP(M) DO WHILE XTEMP(N) TEMP(N+1)=TEMP(N) N=N1 IF N=0 EXIT ENDIF ENDDO TEMP(N+1)=X ENDIF ENDFOR QIAN=INT(XSGS*)amp。amp。計(jì)算起始位置 重慶科技學(xué)院《 VF 程序設(shè)計(jì)》課程設(shè)計(jì)報(bào)告 38 HOU=INT(XSGS*) QIAN_HE=0 HOU_HE=0 FOR I=1 TO QIAN amp。amp。計(jì)算前 27%總分 QIAN_HE=QIAN_HE+TEMP(I) ENDFOR FOR I=HOU TO XSGSamp。amp。計(jì)算后 27%總分 QIAN_HE=QIAN_HE+TEMP(I) ENDFOR FOR I=HOU TO XSGSamp。amp。計(jì)算后 27%總分 HOU_HE=HOU_HE+TEMP(I) ENDFOR YLXS=(QIA