经过精减的实验7，测试通过！

redliu

assume cs:codesg
data segment
    db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984','1985','1986','1987','1988','1989','1990','1991','1992','1993','1994','1995'
;以上是表示21年的21个字符串

        dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514,345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
;以上是表示21年公司总收入的21年dword型数据

        dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226,11542,14430,15257,17800
;以上是表示21年公司雇员人数的21个word型数据
data ends
table segment
    db 21 dup ('year summ ne ?? ')
table ends
codesg segment
   start:  mov ax,data
           mov ds,ax
                   mov ax,table
                   mov es,ax
                   mov bx,0
                   mov si,0   ;数据库寻址变量
                   mov di,0   ;表格寻址变量
                   mov cx,21
          s:   mov ax,ds:[si]   ;年代中取字型数据
                   mov es:[bx],ax   ;把年代字符串送入表格中
                   mov ax,ds:[si+2]    ;取年代中另一字型数据
                   mov es:[bx+2],ax  ;字符串送入表格
                   mov ax,ds:[di+168]  ;取员工人数
                   mov es:[bx+0ah],ax  ;把员工人数送入到表格中
                   mov ax,ds:[si+84]   ;取收入的低16位
                   mov es:[bx+5],ax     ;收入的低16位送入表格的低16位
                   mov dx,ds:[si+86]    ;取收入的高16位
                   mov es:[bx+7],dx     ;收入的高16位送入表格的高16位
                   div word ptr es:[bx+0ah]  ;计算人均收入,商保存在ax中
                   mov es:[bx+0dh],ax        ;商即人均收入送入表格中
                   add di,2            ;取下一年代的员工人数
                   add si,4             ;取下一字符串和收入双字型数据
                   add bx,10h           ;定位到表格的下一行
                   loop s
                   
        
                   mov ax,4c00h
                   int 21h
codesg ends
end start

陌路狂奔

下次发代码用[code][/code]括起来吧，方面看。

zd19920303

div word ptr es:[bx+0ah]  ;计算人均收入,商保存在ax中

                   mov es:[bx+0dh],ax  


这两句没看懂     求解释

ktjy

不错啊，呵呵 !!

孤行

{:3_45:}不错啊

78221723

:loveliness:不错啊