三個文字框一個標籤框一個command按鈕貼上進去就可以用 PrivateSubCommand1_Click() a=Val(Text1) b=Val(Text2) c=Val(Text3) Ifa>bAndb>cThen Label1.Caption=a&">"&b&">"&c ElseIfa>cAndc>bThen Label1.Caption=a&">"&c&">"&b ElseIfb>aAnda>cThen Label1.Caption=b&">"&a&">"&c ElseIfb>cAndc>aThen Label1.Caption=b&">"&c&">"&a ElseIfc>bAndb>aThen Label1.Caption=c&">"&b&">"&a ElseIfc>aAnda>bThen Label1.Caption=c&">"&a&">"&b Else Label1.Caption="有相等數存在請重新輸入" EndIf EndSub