dim a,b,c
a =inputbox ("請(qǐng)輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
b =inputbox ("請(qǐng)輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
c =inputbox ("請(qǐng)輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
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