【文章內(nèi)容簡介】 = , CON, ADOPENSTATIC, , ADCMDTEXT 28 DO WHILE NOT RSB!KSBJ LOOP SET RSX = NEW SELECT DISTINCT AS KSXZ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = , CON, ADOPENSTATIC, , ADCMDTEXT DO WHILE NOT RSX!KSXZ LOOP IF 0 THEN = 0 = 9 END IF IF 0 THEN29 = 0 END IFEND SUBPRIVATE SUB FORM_RESIZE() CALL RESIZEFORM(ME) 39。窗體改變時，控件隨之變化 = + + 100 = = + 150 = + + 100 = = + 150 = + + 100 = = + 150 FOR I = 0 TO 7 COMLST(I).TOP = COMLST(I).LEFT = TXTFSD(I).LEFT + I * 10 COMLST(I).WIDTH = COMLST(I).WIDTH NEXT I END SUB30PRIVATE SUB TXTFSD_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER)IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0END IFEND SUBPRIVATE SUB EXECPASS() FOR I = 0 TO 7 IF TXTFSD(I).TEXT = THEN MSGBOX 分數(shù)段數(shù)值錯誤！此次統(tǒng)計不實。, , 錯誤項 amp。 I amp。 ： EXIT SUB END IF NEXT I IF CINT(TXTFSD(0).TEXT) CINT(TXTFSD(1).TEXT) AND CINT(TXTFSD(1).TEXT) CINT(TXTFSD(2).TEXT) AND CINT(TXTFSD(2).TEXT) CINT(TXTFSD(3).TEXT) AND CINT(TXTFSD(3).TEXT) CINT(TXTFSD(4).TEXT) AND CINT(TXTFSD(4).TEXT) CINT(TXTFSD(5).TEXT) AND 31CINT(TXTFSD(5).TEXT) CINT(TXTFSD(6).TEXT) AND CINT(TXTFSD(6).TEXT) CINT(TXTFSD(7).TEXT) THEN ELSE MSGBOX 請保持數(shù)值遞減順序！此次統(tǒng)計不實。, , 數(shù)值錯誤： EXIT SUB END IFEND SUBPRIVATE SUB LOADDATA() DIM QUERY AS STRING DIM PICRS AS SET PICRS = NEW QUERY = SELECT AS XM , A. amp。 amp。 AS CJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = B.考試號 WHERE 班級 = 39。 amp。 amp。 39。 AND 考試性質(zhì) = 39。 amp。 amp。 39。 QUERY, CON, ADOPENSTATIC, , ADCMDTEXT32 WITH PICRS DO WHILE NOT .EOF IF CINT(PICRS!CJ) = CINT(TXTFSD(0).TEXT) THEN ICJ(0) = ICJ(0) + 1 COMLST(0).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(1).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(0).TEXT) THEN ICJ(1) = ICJ(1) + 1 COMLST(1).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(2).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(1).TEXT) THEN ICJ(2) = ICJ(2) + 1 COMLST(2).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(3).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(2).TEXT) THEN ICJ(3) = ICJ(3) + 1 COMLST(3).ADDITEM PICRS!XM END IF33 IF CINT(PICRS!CJ) = CINT(TXTFSD(4).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(3).TEXT) THEN ICJ(4) = ICJ(4) + 1 COMLST(4).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(5).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(4).TEXT) THEN ICJ(5) = ICJ(5) + 1 COMLST(5).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(6).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(5).TEXT) THEN ICJ(6) = ICJ(6) + 1 COMLST(6).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(7).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(6).TEXT) THEN ICJ(7) = ICJ(7) + 1 COMLST(7).ADDITEM PICRS!XM END IF .MOVENEXT34 LOOP END WITH = FOR I = 0 TO 7 TXTCOUNT(I).CAPTION = ICJ(I) NEXT I END SUBPRIVATE SUB DATAOUT()FOR I = 0 TO 7 ICJ(I) = 0 COMLST(I).CLEAR COMLST(I).TEXT = 請選 TXTCOUNT(I).CAPTION = NEXT IEND SUB35:代碼分析:DIM RSCOUNT AS DIM CMDEXEC AS DIM I AS INTEGERDIM JWSF AS STRINGDIM ADDFLG AS BOOLEANPRIVATE SUB COMBO1_LOSTFOCUS()ON ERROR GOTO ERRDIM CTL AS CONTROLFOR EACH CTL IN CONTROLS36 IF TYPEOF CTL IS TEXTBOX THEN = 0 END IFNEXT CTLIF = 1 THEN EXIT SUBELSE SELECT DISTINCT AS KSXZ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE LIKE amp。 , CON, ADOPENSTATIC, , ADCMDTEXT = = 請選擇性質(zhì) = FALSE IF = FALSE AND = FALSE THEN DO WHILE = FALSE RSCOUNT!KSXZ = TRUE LOOP37 END IF END IFEXIT SUBERR:CALL EXECERR(DATE, , , , )END SUBPRIVATE SUB COMMAND1_CLICK()ON ERROR GOTO WRONGIF = 1 OR = 1 OR = THEN MSGBOX 統(tǒng)計需要項目未完整提供！ EXIT SUBEND IFIF = 1 AND ( 否 AND 是) THEN MSGBOX 計外生情況描述不完整！ EXIT SUB38 ELSE IF = 否 THEN ELSE END IFEND IFTXTZF(9).TEXT = TXTZF(9).TEXT = TXTZF(0).TEXT * 1 + TXTZF(1).TEXT * 1 + TXTZF(2).TEXT * 1 + TXTZF(3).TEXT * 1 + TXTZF(4).TEXT * 1