不定時分享一個常見問題的解答。
今天的問題是很久很久以前一位板友提出的，執行結果很令人意外，程式碼如下：
a = InputBox("請輸入邊長a", "判斷三角形")
b = InputBox("請輸入邊長b", "判斷三角形")
c = InputBox("請輸入邊長c", "判斷三角形")
If c ^ 2 = a ^ 2 + b ^ 2 Then Print "為直角三角形"
If c ^ 2 > a ^ 2 + b ^ 2 Then Print "為鈍角三角形"
If c ^ 2 < a ^ 2 + b ^ 2 Then Print "為銳角三角形"
If a + b <= c Then Print "為非三角形"
當abc分別輸入3,4,5，輸出的結果卻是：
為直角三角形
為非三角形
為什麼 3 + 4 會小於 5 呢？
這是新手常見的問題，是資料型態或使用的運算子造成的意外結果。
InputBox() 傳回的結果是字串型態(String)。
而且 + 這個運算子又可做為連結運算子：
當 + 左右兩個運算元皆為字串型態時，+ 的作用就是字串連結。
當 + 左右兩個運算子為數值型態時，+ 的作用就是算數運算。
因此
"3" + "4" = "34"
"34" < "5"
還有很多意外的錯誤都是因為資料型態導致的錯誤，或是變數名稱輸入錯誤而造成的。
所以，大多程式設計的高手都建議所有變數一定要宣告再使用。
VB 預設是不需宣告，
可於程式開頭處加上Option Explicit，強制變數宣告，否則無法通過編譯。
另外一個重點，因為 InputBox() 傳回的資料型態為字串型態，所以應該習慣使用
Val() 函數強制將資料型態轉成數值型態，而 Val() 傳回的型態則是倍精數 (Double)。
因此，上面這個程式照上述的重點，稍做一下修改，就可避免這樣的意外。
Dim a As Double, b As Double, c As Double
a = Val(InputBox("請輸入邊長a", "判斷三角形"))
b = Val(InputBox("請輸入邊長b", "判斷三角形"))
c = Val(InputBox("請輸入邊長c", "判斷三角形"))
If a + b <= c Then
Print "為非三角形"
Else
If c ^ 2 = a ^ 2 + b ^ 2 Then Print "為直角三角形"
If c ^ 2 > a ^ 2 + b ^ 2 Then Print "為鈍角三角形"
If c ^ 2 < a ^ 2 + b ^ 2 Then Print "為銳角三角形"
End If
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162