蟲的故事

蟲子寫了一個非常初階的計算機 可是程式的 除法 /  那邊出了問題

不管XY是多少 傳回值都是1........

以下是程式碼

Private Sub Command1_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x加y=" & x + y
End Sub

Private Sub Command2_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x整除y=" & x \ y
End Sub

Private Sub Command3_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x減y=" & x - y
End Sub

Private Sub Command4_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x餘數除法y=" & x Mod y
End Sub

Private Sub Command5_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x乘y=" & x * y
End Sub

Private Sub Command6_Click()
x = Val(t1.Text)
y = Val(t2.Text)
Label2.Caption = "x次方y=" & x ^ y
End Sub

Private Sub Command7_Click()
x = Val(t1.Text)
y = Val(t1.Text)
Label2.Caption = "x除y=" & x / y
End Sub

Private Sub Command8_Click()
Label2.Caption = ""
t1.Text = ""
t2.Text = ""
t1.Text = 0
t2.Text = 0

End Sub

Private Sub Form_Activate()
'Label1.Caption = "x = 27, y = 4"
End Sub

[ 本帖最後由 蟲的故事 於 2007-9-24 23:56 編輯 ]

ok491788

第7個按鈕有問題
例如:4除2為什麼會等於1

輕羽飛翔

我寫的似乎不大相同...
像是基本的加減乘除~
我會大約這樣寫...
a=val(text1)+(text2)
label3=a
其他以此類推~
是我寫的怪怪的吧@@"

鹹淡超人

x = Val(t1.Text)
y = Val(t1.Text)
↑
這樣x , y當然不管怎樣除，傳回值都是1

應該是 y = Val(t2.Text)

一個小錯誤，可以讓寫程式的人發瘋呢= =

[ 本帖最後由 鹹淡超人 於 2007-11-15 11:35 編輯 ]