2,722
社区成员
发帖
与我相关
我的任务
分享
DECLARE NUM(10)
INPUT "请输入第1个数" TO NUM(1)
MAX=NUM(1)
MIN=NUM(1)
FOR I=2 TO 10
input "请输入"+STR(i,2)+"数" TO NUM(i)
IF MAX<NUM(i)
MAX=NUM(i)
ENDIF
IF MIN>NUM(i)
MIN=NUM(i)
ENDIF
ENDFOR
?"最大数为",MAX
?"最小数为",MIN
IF NOT USED("XSDA")
USE XSDA
ENDIF
SELECT XSDA
ACCEPT "请输入学生姓名" TO NAME
LOCATE FOR 姓名=NAME
IF FOUND()
DISPLAY
ELSE
?"无此人"
ENDIF
USE IN SELECT("XSDA")