随笔档案

clear
a=0
b=0
@ 1,2 say "请输入 a:" get a
read
@ 2,2 say "请输入 b:" get b
read
if a>b
 max1=a
 min1=b
 @ 3,2 say ""
 ??"max=",max1,"min=",min1
else
 if a=b
  @ 3,2 say ""
  ??"a=b"
 else
  max1=b
  min1=a
  @ 3,2 say ""
  ??"max=",max1,"min=",min1
 endif
endif
 
修改后：
clear
a=0
b=0
@ 1,2 say "请输入 a:" get a
read
@ 2,2 say "请输入 b:" get b
read
@3,2 say ""
if a=b
 ??"a=b"
else
 if a>b
  max1=a
  min1=b
 else
  max1=b
  min1=a
 endif
 * ??"max=",max1,"min=",min1
 ??"max="+str(max1)+"min="+str(min1)
endif