汇编语言编程题，各位请鼎立相助

题目：输入一个字符，若为数字，输出“shuz”，否则输出“qita”

答案：;输入一个字符，若为数字，输出“shuzi”，否则输出“qita”
;回车程序结束
	
DATAS SEGMENT
    ;此处输入数据段代码  

    shuzi 	db "      shuzi",0dh,0ah,24h
    qita 	db "      qita",0dh,0ah,24h
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    ;此处输入代码段代码
again:
    mov ah,1
    int 21h
    cmp al,0dh
    jnz goon
    jmp exit
goon:
	cmp al,'0'
	jb be_qita
	cmp al,'9'
	ja be_qita
	mov dx,offset shuzi
	jmp disp
	
be_qita:
	mov dx,offset qita
disp:
	mov ah,9
	int 21h
	jmp again
exit:
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START

其他：B4作业题 借个楼层 '很简单，我给代码
'希望楼主采纳，谢谢
'假设这个字符用inputbox输入
'如果楼主想使用读写文件的方法，自己去查一查写一下就OK了
Const stoName as string = "Mollnn"
Const yes as string = "shuz"
Const no as string = "qita"
Private sub form_load()
Dim in_char as string '这里定义一个字符串，可能有点过哦 不过没什么影响
in_char = inputbox("请输入字符",stoName)
If in_char >= "0" then '有些童鞋可能奇怪——这里为什么不用AND呢？这是if的优化
  if in_char <="9" then
  MsgBox yes
  else
  msgbox no
  end if
else
msgbox no
end if
end sub 

上一个：8086指令mov ax 【1201H】AH 和AL 分别存哪个地址的数
下一个：请教个汇编语言问题，各位高手帮帮忙解答下，万分感谢。