Thứ Năm, 9 tháng 5, 2013

Tính tổng 2 số


code " tinh tong 2 so "

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
a = Text1.Text
b = Text2.Text
c = a + b
Text3.Text = c
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Không có nhận xét nào:

Đăng nhận xét