共有 707 人关注过本帖
标题：想请大神帮忙看看这个程序有什么错误，运行的时候显示有六个
等　级：新手上路
&&已结贴√
&&问题点数：20&&回复次数：2&&&
想请大神帮忙看看这个程序有什么错误，运行的时候显示有六个
功能描述：
1、&&& 对学生成绩记录进行检索（按学号、姓名）；
2、&&& 成绩排序（按总成绩降序排列）。
编程提示：
1、&&& 预先建立一个成绩文件，要求至少30条记录；
2、&&& 每条记录有6个字段，序号、学号、姓名、三门课成绩；
3、&&& 姓名可用字母或拼音代替。
data&&& segment
endcde db 0
x&&&&&&db 0
row&&& db 01
clrf&&&db 13,10,'$'
student label byte&&&&&&&&&&&&&&& ;学生表的定义
maxlen&&db&&& 30
namelen db&&& ?
namerec db&&& 30 dup(),0dh,0ah
numlen&&db&&& ?
numrec&&db&&& 30 dup(),0dh,0ah
xuhaolen db&&&?
xuhaorec db&&&30 dup(),0dh,0ah
grade1&&&db&&&?
grade1rec&&&db&&&30 dup(),0dh,0ah
grade2&&&db&&&?
grade2rec&&&db&&&30 dup(),0dh,0ah
grade3&&&db&&&?
grade3rec&&&db&&&30 dup(),0dh,0ah
grade4&&&db&&&?
grade4rec&&&db&&&30 dup(),0dh,0用以保存总成绩
handle&&&dw&&?&&&&&&&&&&&&&&&&&&&&& ;用以保存文件代号
prompt1&&db&&'name ?'
prompt2&&db&&'num ?'
prompt3&&db&&'xuhao ?'
prompt4&&db&&'grade1 ?'
prompt5&&db&&'grade2 ?'
prompt6&&db&&'grade3 ?'
students db 'd:\stu.dat',0&&&&&&&&& ;文件名为students存在d盘下，文件属性为0
openerror db 'error',0dh,0ah,'$'
writherror db 'error',0dh,0ah,'$'
readerroe&&db 'error',0dh,0ah,'$'
code segment
assume cs:code,ds:data,es:data
mov ax,data
call CREATH
call readh
call maingrade
call Reorder
call showgradesreen
call clseh
CREATH proc near&&&&&;建立文件
mov ah,3ch&&&&&&&&&&&;DOS文件建立3ch号功能调用
mov cx,0&&&&&&&&&&&& ;文件属性与上述定义一致
lea dx,students
mov handle,ax
lea dx,openerror
creath endp&&&&&&&&& ;建立文件结束
WRITH proc near&&&&&&;写文件或设备
mov ah,40h
mov bx,handle
lea dx,namerec&&&&&& ;输入学生信息
lea dx,numrec
lea dx,xuhaorec
lea dx,grade1rec
lea dx,grade2rec
lea dx,grade3rec
jnc b1&&&&&&&&&&&&&&& ;如果没有进位（输入正确），则跳转到b1
lea dx,writherror
mov namelen,0
writh endp&&&&&&&&&&&&;写文件或设备子程序结束
READH proc near&&&&&& ;读文件或设备子程序
mov ah,3fh
mov bx,handle
lea dx,namerec&&&&&& ;读取学生信息
lea dx,numrec
lea dx,xuhaorec
lea dx,grade1rec
lea dx,grade2rec
lea dx,grade3rec
lea dx,readerror
mov endcde,01
cmp namerec,1ah&&&&&& ;是否有结束标志（1ah是人为设置的结束标志？）&&&
cmp numrec,1ah&&&&&
cmp xuhaorec,1ah&&&&&
cmp grade1rec,1ah&&&&&
cmp grade2rec,1ah&&&&&
cmp grade3rec,1ah&&&&&
readh endp&&&&&&&&&&&;读取文件子程序结束
Maingrade proc near&&;计算总成绩
lea bx,grade1rec
loop0:&&&&&&&&&&&&&&&&&&;将三门成绩相加
add [bx+x],grade2rec+x
add [bx+x],grade3rec+x
mov grade4rec,[bx+x]
loop loop0
maingrade endp&&&&&& ;计算总成绩子程序结束
Reorder proc near&&& ;按总成绩降序排列
mov al,grade4rec+x
cmp al,grade4rec+x+1
jb cotinue
xchg al,grade4rec+x+1
mov grade4rec+x,ax
loop loop2
loop loop1
reorder endp&&&&&& ;按总成绩降序排列子程序结束
showgradescreen proc near&&;将成绩显示在屏幕上
lea [al],grade4rec
mov ah,02h
mov dl,[al+x]
loop loop3
showgradescreen endp&&&&&;将成绩显示在屏幕上子程序结束
Errm proc near&&&&&&&&&&&;错误调整
mov ah,40h
mov errcde,01&&&&&&&&&&&&;回送给errcde 01，说明不是第一次就写入文件成功
errm endp&&&&&&&&&&&&&&& ;错误调整子程序结束
clseh proc near&&&&&&&&& ;关闭文件
mov namerec,1ah
call writh
mov ah,3eh
mov bx,handle
mov numrec,1ah
call writh
mov ah,3eh
mov bx,handle
mov xuhaorec,1ah
call writh
mov ah,3eh
mov bx,handle
mov grade1rec,1ah
call writh
mov ah,3eh
mov bx,handle
mov grade2rec,1ah
call writh
mov ah,3eh
mov bx,handle
mov grade3rec,1ah
call writh
mov ah,3eh
mov bx,handle
clseh endp&&&&&&&&&&&&&&;关闭文件程序结束
proch proc near&&&&&&&&&;键盘接受输入
mov ah,40h
lea dx,prompt1
lea dx,prompt2
lea dx,prompt3
lea dx,prompt4
lea dx,prompt5
lea dx,prompt6
mov ah,0ah
lea dx,student
cmp namelen,0
cmp numlen,0
cmp xuhaolen,0
cmp grade1len,0
cmp grade2len,0
cmp grade3len,0
mov al,20h
mov cl,namelen
lea di,student
call writh
mov al,20h
mov cl,numlen
lea di,student
call writh
mov al,20h
mov cl,xuhaolen
lea di,student
call writh
mov al,20h
mov cl,grade1len
lea di,student
call writh
mov al,20h
mov cl,grade2len
lea di,student
call writh
mov al,20h
mov cl,grade3len
lea di,student
call writh
proch endp&&&&&&&&&&&;键盘输入程序结束
scrl proc near&&&&&& ;检查名册子程序
cmp&&row,18h
mov ah,09h
lea dx,clrf
mov ax,0601h
call scren
scrl endp&&&&&&&&&&&;检查名册子程序结束
scren proc near&&&&&;
mov bh,1eh&&&&&&&&& ;??bh???
mov cx,0&&&&&&&&&&&&;????????
mov dx,184fh&&&&&&&&;????????????
int 10h&&&&&&&&&&&& ;????????????
scren endp&&&&&&&&& ;结束
curs proc near&&&&&&;????(同上一子程序，看不懂bh是什么？ 10h是什么？？？)
mov dh,row
curs endp&&&&&&&&&&&;????????
[ 本帖最后由 晨小料 于
08:59 编辑 ]
搜索更多相关主题的帖子:
来　自：神界
等　级：版主
威　望：314
帖　子：10114
专家分：39962
&&得分:10&
调用中断的代码都已经不适用了
DO IT YOURSELF !
等　级：贵宾
威　望：11
帖　子：107
专家分：441
&&得分:10&
需要继承和发展，否则讨论问题不方便，
读懂楼主的程序需要九牛二虎之力，
记住程序中的错误是有价值的，限期整改。
版权所有，并保留所有权利。
Powered by , Processed in 0.023514 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved大神们帮帮忙看看呢有什么不对的地方吗_龙鱼吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：36,241贴子：
大神们帮帮忙看看呢有什么不对的地方吗收藏
视频来自：有人说立鳞有人说不立，我都不知道怎么办，我昨天下盐，升温33，加了新水进去，鳞片掉是因为拿回来就掉了
掉这么多。。。只能用老三样，别急着下药，勤换水静养几周看看再说。
咋掉了那么多鳞 怎么不挑条好的。。。掉鳞虽小事但长好特慢，长好了也会有差别，你可一定要耗的住啊呵呵，这么小的鱼不存在什么立鳞，是掉的鳞片引起其它鳞片松动而己，温度高点，大盐一包，爆氧，慢慢恢复吧
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或请大神们帮我看看看看有什么地方要换的？_电脑吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：993,113贴子：
请大神们帮我看看看看有什么地方要换的？收藏
电脑型号 X86 兼容 台式电脑操作系统 Windows XP 专业版 32位 SP3 ( DirectX 9.0c ) 处理器 AMD Athlon(速龙) II X2 240 双核主板 七彩虹 C.A780GC (AMD 780G/780V/790GX/890GX)内存 2 GB ( 威刚 DDR2 800MHz )主硬盘 希捷 ST340014A ( 40 GB / 7200 转/分 )显卡 ATI Radeon HD 3200 Graphics
( 256 MB / ATI )显示器 明基 BNQ7820 BenQ G2220HD ( 21.7 英寸 )声卡 ATI IXP SB600/SB700/SB800 高保真音频网卡 瑞昱 RTLE Family PCI-E Fast Ethernet NIC
？？？？？
大神！！！！！！
你可以换显卡
处理器要换么
这u不错啊..看你干嘛了
大型3D游戏
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}