bài tập CLC Thiết kế một máy tính đơn giản
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (31.38 KB, 2 trang )
Thiết kế một máy tính đơn giản
Dim so1, so2, kq, pt
Private Sub cmdAC_Click()
mh.Text = ""
End Sub
Private Sub cmdchia_Click()
so1 = Val(mh.Text)
pt = "/"
mh.Text = ""
End Sub
Private Sub cmdcong_Click()
so1 = Val(mh.Text)
pt = "+"
mh.Text = ""
End Sub
Private Sub cmdenter_Click()
so2 = Val(mh.Text)
Select Case pt
Case "+"
kq = so1 + so2
mh.Text = Str(kq)
Case "-"
kq = so1 - so2
mh.Text = Str(kq)
Case "*"
kq = so1 * so2
mh.Text = Str(kq)
Case "/"
If so2 <> 0 Then
kq = so1 / so2
mh.Text = Str(kq)
Else
MsgBox "Khong chia duoc"
mh.Text = ""
End If
End Select
so1 = Val(mh.Text)
End Sub
Private Sub cmdnhan_Click()
so1 = Val(mh.Text)
pt = "*"
mh.Text = ""
End Sub
Private Sub cmdso_Click(Index As Integer)
mh.Text = RTrim(mh.Text) & LTrim(Str(Index))
End Sub
Private Sub cmdtru_Click()
so1 = Val(mh.Text)
pt = "-"
mh.Text = ""
End Sub
Private Sub Form_Load()
mh.Text = ""
End Sub
