下面是我寫的語法~功能是輸入兩個數值比較大小 可是我發現會有BUG，就是譬如我輸入A值為2至9，B值為10、100、1000、、、 結果會是2至9大於10、100、1000，如果B值為2至9、A值為10、100、1000 則結果為10、100、1000小於2至9.....= ="~其它輸入都正常輸出結果 單單幾個會有出乎意料的結果@@"...請問大大這是啥麼原因呢???? Dim a, b, result, str1 As String RichTextBox1.Text = "" RichTextBox2.Text = "" RichTextBox3.Text = "" a = InputBox("請輸入數值1", "input") b = InputBox("請輸入數值2", "input") RichTextBox1.Text = Val(a) RichTextBox2.Text = Val(b) If a > b Then str1 = "大於" ElseIf a < b Then str1 = "小於" ElseIf a = b Then str1 = "等於" End If RichTextBox3.Text &= a & str1 & b

您好: 會出現這樣的問是因為,您把資料定義成了字串,字串的比對是一個byte一個byte比對,因此2會大於10,是因為2比1大,您把他定義成數值應該就會正常了.

謝謝大大～～我知道了～～ 程式也改好了唷～～謝啦︿︿    

引言: 您好: 會出現這樣的問是因為,您把資料定義成了字串,字串的比對是一個byte一個byte比對,因此2會大於10,是因為2比1大,您把他定義成數值應該就會正常了.

[code delphi]
function ALessThanB(a,b:string):boolean;
begin
result:=(length(a)end;
function AEqB(a,b:string):boolean;
begin
result:=a=b;
end;
function AGreatThanB(a,b:string):boolean;
begin
result:=ALessThanB(b,a);// b a>b
end;
[/code]

編輯記錄

我也学习了.......... nike nikeid nike

------
[url=http://www.xn--0tqt63e8uez87adsa.com]浪琴錶[/url]