【正文】 MUL DL DIV BL 。四舍五入 JB X3 INC AH X3:MOV [AVER3],AH CMP [AVER1],10 。換回ASCII碼值顯示 ADD [AVER2],30H ADD [AVER3],30H LEA DX,TS2 。顯示整數(shù)部分 MOV AH,2 INT 21H MOV DL,0101110B 。顯示小數(shù)第一位 MOV AH,2 INT 21H MOV DL,[AVER3] 。顯示提示二字符串 MOV AH,9 INT 21H LEA DX,TS3 。 file39。STUDENTS39。MAO39。List Insert Search Delete quit $39。Name Num SEX SCORE CREDIT $39。 1. NAME :$39。 2. Num :$39。 3. SEX :$39。 4. SCORE :$39。 5. CREDIT :$39。 *** ERROR ! ***$39。SELECT A WAY(15) :$39。INPUT THE VALUE :$39。NO THIS STUDENT !$39。THE RECORD DELET SUCCESS !$39。 39。 39。 39。 39。 39。 39。$39。ADDRamp。ADDRamp。 39。Init screen MOV AL,0 MOV CH,0 MOV CL,0 MOV DH,24 MOV DL,79 MOV BH,7 INT 10H MOV AH,2 MOV DH,1 MOV DL,1 MOV BH,0 INT 10H SHOW SEL 。IS 39。? JNZ NEXT1 CALL LIST JMP MAINLOOPNEXT1: CMP AH,17H 。I39。IS 39。? JNZ NEXT3 MOV STATE,39。 CALL SEARCH JMP MAINLOOPNEXT3: CMP AH,20H 。D39。D39。IS 39。? JNZ INPUT RETMAIN ENDPLIST PROC NEAR 。Read LEA DX,MYFCB INT 21H CMP AL,01 JNE N1 JMP FINISHN1: CMP AL,0 JE N2 JMP FINISHN2: SHOW PRINT JMP LISTLOOPFINISH: CALL CLOSEF RETLIST ENDPINSERT PROC NEAR 。Read until at the end MOV AH,14H LEA DX,MYFCB INT 21H CMP AL,01 JE WRITES CMP AL,0 JE READLWRITES: SHOW NAMES 。Write in LEA DX,MYFCB INT 21H CALL CLOSEF RETINSERT ENDPSEARCH PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX CALL OPENF MOV RECID,0 CMP FLAG,0 JZ START RETSTART: SHOW NAMES SHOW AGE SHOW SEX SHOW HEIGHT SHOW WEIGHT SHOW WHICHINWAY: MOV AH,1 。139。539。Input the value to search SHOW PROMPTCMPLOOP: 。D39。 NOTE: Delete is in the module of Search LEA DX,MYFCB INT 21H CMP AL,0 JNZ W_END SUB RECID,2 MOV AH,15H LEA DX,MYFCB INT 21H INC RECID JMP DELW_END: CLD LEA DI,MYDTA MOV CX,50 MOV AL,0 REP STOSB SUB RECID,1 MOV AH,15H MOV MYDTA,1AH LEA DX,MYFCB INT 21H SHOW DELOKRETURN: MOV RECID,CL JMP CMPLOOPEXITS: CALL CLOSEF CMP FLAG,0 JNZ EXT SHOW NOTHISEXT: MOV FLAG,0 POP DX POP CX POP BX POP AX RETSEARCH ENDPOPENF PROC NEAR 。MYFCB39。[1] 劉韜、 basic [m]. 人民郵電出版社，2002年4月.[2] 劉圣才、 basic [m].清華大學(xué)出版社，2002年1月.[3] mike geundenloy[美]著、 basic開發(fā)指南[m].電子工業(yè)出版社，2000年7月.[4] [m].清華大學(xué)出版社，1998年1月.23