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 a<b then 
d=b 
b=a 
a=d 
end if 
if c>b then 
d=b 
b=c 
c=a 
end if 
if a<b then 
d=b 
b=a 
a=d 
end if 
msgbox a & " " & b & " " & c 
end if 

由于楼主只是三个数,所以不用复杂的冒泡排序法来排序,直接三个数比较就行了!tjoy7d的方法就是所谓的冒泡排序法,虽然代码简单,但是实际上电脑执行起来要循规很多次,运行速度会受到影响!

脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
'OnErrorResumeNextstrAgentName="Merlin"strAgentPath="c:windowsmsagentchars"&strAgentName&".acs"ScriptComplete=0SetobjAgent=WScript.CreateObject("Agent.Control.2","agent_")objAgent.Connected=Trueob

VBS InternetExplorer.Application的属性和方法介绍
Setie=CreateObject("InternetExplorer.Application")ie.Navigate"http://www.gimoo.net"Wscript.Sleep1000ie.Toolbar=0ie.visible=Falseie.Document.f1.word.value=kwIfie.Document.f1.word.value=""ThenWscript.Qu

vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者
GetOwner.VBS用法,在命令行下:GetOwner.vbs目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者注意:大小以MB