Thư viện tri thức trực tuyến
Kho tài liệu với 50,000+ tài liệu học thuật
© 2023 Siêu thị PDF - Kho tài liệu học thuật hàng đầu Việt Nam
Tài liệu đang bị lỗi
File tài liệu này hiện đang bị hỏng, chúng tôi đang cố gắng khắc phục.
Oan tu ti ppt
Nội dung xem thử
Mô tả chi tiết
Private Sub Command1_Click()
Randomize
Dim A As Integer
A = Int(3 * Rnd() + 1)
Select Case A
Case 1:
If O1.Value = True Then
L2 = "BAÏN ÑAÕ HOØA"
Else
If O2.Value = True Then
L2 = "BAÏN ÑAÕ THAÉNG"
Else
If O3.Value = True Then
L2 = "BAÏN ÑAÕ THUA"
End If
End If
End If
Case 2:
If O1.Value = True Then
L2 = "BAÏN ÑAÕ THUA"
Else
If O2.Value = True Then
L2 = "BAÏN ÑAÕ HOØA"
Else
If O3.Value = True Then
L2 = "BAÏN ÑAÕ THAÉNG"
End If
End If
End If
Case 3:
If O1.Value = True Then
L2 = "BAÏN ÑAÕ THAÉNG"
Else
If O2.Value = True Then
L2 = "BAÏN ÑAÕ THUA"
Else
If O3.Value = True Then