dim a,b,c a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") if not(IsNUmberic(a) and IsNUmberic(b) and IsNUmberic(c)) then msgbox "不乖哦>_" else if ab then d=b b=a a=d end if if c>b then d=b b=c c=a end if if ab then d=b b=a a=d end if msgbox a " " b " " c end if