Đố vui... (7 người xem)

[DOSNET]

Hai tay 2 que diêm, thừa sức đốt cùng lúc... Huynh đừng có cái kiểu " Vé cầm trong tay, tàu nào dám chạy" nhá, Đệ từ giã GPE ko một lời từ biệt đấy

 

[anhtuan1066]

Hai tay 2 que diêm, thừa sức đốt cùng lúc... Huynh đừng có cái kiểu " Vé cầm trong tay, tàu nào dám chạy" nhá, Đệ từ giã GPE ko một lời từ biệt đấy

Vậy thì dc rồi! Tưởng ko cho đốt nhiều đầu dây cùng lúc chứ!
Tôi sẽ làm như sau:
-Dây thứ nhất tôi đốt 2 đầu cùng 1 lúc
-Dây thứ hai tôi đốt 1 đầu (đốt cùng 1 lúc với dây thứ nhất)
-Khi dây thứ nhất cháy hết (dc 30 phút) thì dây thứ 2 đã cháy dc phân nữa
-Tại thời điểm này tôi đốt tiếp đầu còn lại của dây thứ 2... Sau 15 phút nữa nó sẽ cháy hết..
----> Vị chi tổng thời gian là 45 phút... Vừa lòng chưa đồng chí?
Hi... hi...
ANH TUẤN

 

[DOSNET]

Tâm phục khẩu phục...Hẹn thứ 2 chiến đấu tiếp. Bác có bài nào hay post tiếp tối về anh em xả tress nhé ! Thanks

 

[anhtuan1066]

Ta có thể làm trò này trên giường hoặc dưới đất cũng được... Càng suy nghĩ.. càng chơi thì càng.. ra nước...
Mấy bác "sồn sồn" thích trò này lắm đây!
He... he...
Trò gì mà.. hay thế !!!

 

[DOSNET]

Chơi cờ đó bác...Bác thích cờ tướng hôm nào anh em ta đấu trí nhỉ ?

 

[anhtuan1066]

Đố tiếp (mẹo)
3 chiếc đủa giống nhau thì xếp dc 1 hình tam giác đều (tất nhiên)... giờ cho các đồng chí thêm 1 chiếc đủa nửa cũng giống y chang 3 chiếc kia... Hỏi làm cách nào để có dc 2 hình tam giác đều y chang tam giác ban đầu
Mẹo.... nha.... nhưng đáp án phải có lý mới dc...
ANH TUẤN

 

[ptm0412]

Xem file kèm theo. Code thì đơn giản, đố chơi thôi. nhưng câu này mới khó: Có cách nào, chỉ thay đổi tham số trong code, tô màu toàn bộ cell (không phải tô ca rô nữa)

 

[anhtuan1066]

Đố tiếp (không... mẹo)
Cho 1 rổ tiền xu số lượng ko giới hạn và các đồng tiền hoàn toàn giống nhau về kích thước... Hai người thách đấu nhau bằng cách: luân phiên đặt đồng tiền lên cái bàn hình chứ nhật, cứ người này đặt lên bàn 1 đồng thì đến người kia đặt lên bàn 1 đồng... Ai đặt dc đồng tiền cuối cùng lên bàn thì người đó thắng cuộc...
Giã sử ta là 1 trong 2 người chơi và luôn luôn muốn thắng cuộc thì ta sẽ dùng cách gì?

 

[anhtuan1066]

Xem file kèm theo. Code thì đơn giản, đố chơi thôi. nhưng câu này mới khó: Có cách nào, chỉ thay đổi tham số trong code, tô màu toàn bộ cell (không phải tô ca rô nữa)

Tham số là tham số nào vậy đại ca?
ANH TUẤN

 

[ptm0412]

Là các biến integer đặt vào code.
Thêm đk: code ai ngắn hơn thì trúng giải.

 

[anhtuan1066]

Là các biến integer đặt vào code.
Thêm đk: code ai ngắn hơn thì trúng giải.

Ờooooooooooooooo..... nhưng mà xem cái "Biến interger" ấy ở đâu? Hic... Hic...

 

[cadafi]

Là các biến integer đặt vào code.
Thêm đk: code ai ngắn hơn thì trúng giải.

Chào anh,
Làm sao biết code như thế nào khi anh protect VBA rồi

 

[anhtuan1066]

Chắc đại ca muốn đố Cr**K...
he... he...
Nếu đúng là đệ tử .. chơi luôn à nha...

 

[ptm0412]

Code tự viết chứ! Chả lẽ viết code không có cái biến nào?

 

[cadafi]

Code tự viết chứ! Chả lẽ viết code không có cái biến nào?

Thì ra là vậy, tưởng anh cho code rồi em thay đổi tham số trong code thôi chứ:

Có cách nào, chỉ thay đổi tham số trong code, tô màu toàn bộ cell (không phải tô ca rô nữa)

 

[anhtuan1066]

Code tự viết chứ! Chả lẽ viết code không có cái biến nào?

cha... cha... Topic này Đố vui mà đại ca chơi 1 nhát thành... Đố buồn... luôn...
Món này lý ra đại ca phải đưa vào mục ĐỐ VUI VỀ VBA mới hợp chứ... Đệ ngu VBA quá sao giãi dc đây? Hic.. hic...

 

[ptm0412]

For và next thôi mà ! đừng buồn chứ!
Mà thôi đừng crk. 9999

 

[anhtuan1066]

For và next thôi mà ! đừng buồn chứ!

Thôi... món này nhường lại cho.. bạn của sự phụ... hic...
Đúng là chỉ có For Next thật nhưng thêm 1 chảo nữa.. nào là:
DoEvents
Lib "kernel32" (ByVal dwMilliseconds As Long)
nhì nhằng....
Sao đệ nuốt nổi đây!
Nhường thôi... (Nói nhường cho sang.. thực ra là .. bó chân)

 

[boong]

Là các biến integer đặt vào code. Thêm đk: code ai ngắn hơn thì trúng giải.

Vậy đủ ngắn chưa bác? Em tham gia cho vui thôi không muốn dành giải với ai đâu! Ai có cách hay hơn xin chỉ giáo thêm! Thân.

 

[boong]

Thôi... món này nhường lại cho.. bạn của sự phụ... hic... Đúng là chỉ có For Next thật nhưng thêm 1 chảo nữa.. nào là: DoEvents Lib "kernel32" (ByVal dwMilliseconds As Long) nhì nhằng.... Sao đệ nuốt nổi đây! Nhường thôi... (Nói nhường cho sang.. thực ra là .. bó chân)

Bác chưa đánh đã vội đào hàng rồi vậy. Bật mí 1 chút cho bác làm cho vui nha!

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ...     Sleep (50) [COLOR=green]'50 là số chỉ sung nhịp[/COLOR]     DoEvents ...

Code này dùng để hãm thời gian chạy của For .. Next. Bác có thể làm cho 1 cells() có giá trị tăng dần theo For .. Next. Rồi dùng CF để làm cho các ô với số bao nhiêu sẽ đổi màu ứng với số được gán ở Cells() kia vậy vẫn có thể quật ngã nhiều hàng rào mà còn ngắn gọn hơn cả VBA đó chứ. Bác thử theo ý này viết xem sao? Chúc bác thành công! Thân.