程式碼如下: Dim a, b, c As Single a = InputBox("請輸入a:", "a") b = InputBox("請輸入b:", "b") c = InputBox("請輸入c:", "c") If a > b Then If b > c Then ...
blog.xuite.net