Buồn buồn ra đề chọc bà con chơi:
Ai cũng biết trò chơi Búa, Bao, Kéo (oẳn tù tì)
Ví dụ đã có sẵn code UserForm (hay gì gì đó) lấy được cái bạn chọn là ( "BUA", "DAO", "KEO" } (dạng Ascii Text rõ rệt)
Và máy Random ra một trong { "BUA", "DAO", "KEO" }. Ta có hai biến string
ban = một trong ( "BUA", "BAO", "KEO" }
may = một trong( "BUA", "BAO", "KEO" }
(viết hoa, không phải phải lo đến chuyện hoa và thường)
Bi giờ nhiệm vụ của bạn chỉ là gán vảo biến ketQua (string) với một trong ba "Thang", "Thua", "Hoa"
Điển hình code:
Code trên đúng lô gic nhưng quá dài (về số dòng) và dễ bị gõ nhầm.
Thử thách bây giờ là viết lại cho ít dòng nhất (tốc độ không quan trọng)
Ai cũng biết trò chơi Búa, Bao, Kéo (oẳn tù tì)
Ví dụ đã có sẵn code UserForm (hay gì gì đó) lấy được cái bạn chọn là ( "BUA", "DAO", "KEO" } (dạng Ascii Text rõ rệt)
Và máy Random ra một trong { "BUA", "DAO", "KEO" }. Ta có hai biến string
ban = một trong ( "BUA", "BAO", "KEO" }
may = một trong( "BUA", "BAO", "KEO" }
(viết hoa, không phải phải lo đến chuyện hoa và thường)
Bi giờ nhiệm vụ của bạn chỉ là gán vảo biến ketQua (string) với một trong ba "Thang", "Thua", "Hoa"
Điển hình code:
Mã:
If ban = "BUA" Then
If may = "KEO" Then
ketQua = "Thang"
ElseIf may = "BAO" Then
ketQua = Thua"
Else
ketQua = "Hoa"
End If
ElseIf ban = "BAO" Then
If may = "BUA" Then
ketQua = "Thang"
ElseIf may = "KEO" Then
ketQua = Thua"
Else
ketQua = "Hoa"
End If
Else ' ban ="KEO"
If may = "BAO" Then
ketQua = "Thang"
ElseIf may = "BUA" Then
ketQua = Thua"
Else
ketQua = "Hoa"
End If
End If
Code trên đúng lô gic nhưng quá dài (về số dòng) và dễ bị gõ nhầm.
Thử thách bây giờ là viết lại cho ít dòng nhất (tốc độ không quan trọng)