1、cleardime a(3)for i=1 to 3 input "请输入一个数:" to a(i)endfor?"降序排列为:"for i=1 to 2 for j=i+1 to 3if a(i)<a(j) k=a(i) a(i)=a(j) a(j)=kendif endfor ??alltrim(str(a(i)))+" "endfor??alltrim(str(a(i))) 2、clearinput "请输入一个整数:" to xif x/2=int(x/2)?"是偶数" else?"是奇数"endif