Siêu thị PDFTải ngay đi em, trời tối mất
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
MIỄN PHÍ
Số trang
2
Kích thước
34.1 KB
Định dạng
PDF
Lượt xem
1415
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
Tài liệu tương tự (6)
Xem tất cảTải ngay đi em, còn do dự, trời tối mất!