bachhop72
23-09-2010, 20:18
mình không hiểu sao khi mình làm đến dấu bằng thì cái đoạn kq=a+b đấy thì nó chỉ nhận b còn a thì nó lại nhận là 0, mình chẳng hiểu nữa. Giúp mình với
Private Sub c0_Click()
txtketqua.Text = txtketqua.Text & "0"
End Sub
Private Sub c1_Click()
txtketqua.Text = txtketqua.Text & "1"
End Sub
Private Sub c2_Click()
txtketqua.Text = txtketqua.Text & "2"
End Sub
Private Sub c3_Click()
txtketqua.Text = txtketqua.Text & "3"
End Sub
Private Sub c4_Click()
txtketqua.Text = txtketqua.Text & "4"
End Sub
Private Sub c5_Click()
txtketqua.Text = txtketqua.Text & "5"
End Sub
Private Sub c6_Click()
txtketqua.Text = txtketqua.Text & "6"
End Sub
Private Sub c7_Click()
txtketqua.Text = txtketqua.Text & "7"
End Sub
Private Sub c8_Click()
txtketqua.Text = txtketqua.Text & "8"
End Sub
Private Sub c9_Click()
txtketqua.Text = txtketqua.Text & "9"
End Sub
Private Sub cong_Click()
a = Val(txtketqua.Text)
txtketqua.Text = ""
pt = "+"
End Sub
Private Sub bang_Click()
b = Val(txtketqua.Text)
If (pt = "+") Then
kq = a + b
txtketqua.Text = kq
End If
End Sub
Private Sub Form_Load()
Dim a, b, kq As Double
Dim pt As String
End Sub
Private Sub c0_Click()
txtketqua.Text = txtketqua.Text & "0"
End Sub
Private Sub c1_Click()
txtketqua.Text = txtketqua.Text & "1"
End Sub
Private Sub c2_Click()
txtketqua.Text = txtketqua.Text & "2"
End Sub
Private Sub c3_Click()
txtketqua.Text = txtketqua.Text & "3"
End Sub
Private Sub c4_Click()
txtketqua.Text = txtketqua.Text & "4"
End Sub
Private Sub c5_Click()
txtketqua.Text = txtketqua.Text & "5"
End Sub
Private Sub c6_Click()
txtketqua.Text = txtketqua.Text & "6"
End Sub
Private Sub c7_Click()
txtketqua.Text = txtketqua.Text & "7"
End Sub
Private Sub c8_Click()
txtketqua.Text = txtketqua.Text & "8"
End Sub
Private Sub c9_Click()
txtketqua.Text = txtketqua.Text & "9"
End Sub
Private Sub cong_Click()
a = Val(txtketqua.Text)
txtketqua.Text = ""
pt = "+"
End Sub
Private Sub bang_Click()
b = Val(txtketqua.Text)
If (pt = "+") Then
kq = a + b
txtketqua.Text = kq
End If
End Sub
Private Sub Form_Load()
Dim a, b, kq As Double
Dim pt As String
End Sub