Tùy chọn
Đố vui VBA
- Đố vui VBA
-
Đố vui VBA
Noname > 11-02-11, 11:44 AM
Đố vui VBA- Chủ Đề hôm nay 11/02/2011
Tôi cho sự kiện nhấn chuột của một nút nhấn thế này:
Mã:Private Sub Command0_Click()
k = k + 1
MsgBox k
End Sub
Bạn hãy cho biết:
1/ Kết quả lần nhấn nút thứ nhất
2/ Kết quả lần nhấn nút thứ 2
3/ Giải thích tại sao kết quả lần nhấn nút thứ 2 là như thế!
Nhanh nhanh, 100 AC$ là phần thưởng. Kết quả được công bố vào ngày mai! -
RE: Đố vui VBA
quocsantak > 11-02-11, 03:51 PM
Kết Quả:
Mặc định: k = 0
Lần nhấn thứ nhất = 1
Lần nhấn thứ hai = 1 + 1 = 2
Khi nhấn thứ 2 = 2 là vì lấy kết quả lần 1 cộng cho 1 ra kết quả lần thứ 2.
Mong NoName sẽ trao giải cho mình... kakaka!!!
-
RE: Đố vui VBA
quocsantak > 11-02-11, 04:05 PM
Xin lỗi NoName!
Vì mình đang muốn hỏi nhưng trong này không biết hỏi ở mục nào, viết bài mới thì mình vô nhưng chưa cho viết bài. Sẵn đây mong NoName thông cảm và giúp về vấn đề mình đang vướng.
1. Mình có CSDL Access, gồm table có các trường như sau: MA, TENHANG, GHICHU1, GHICHU2.
2. Mình tạo Report: trong đó tạo một Text Box (liên kết 2 trường ghi chú lại) = trim([GHICHU1]) & trim([GHICHU2])
3. Vấn đề mình cần là: cũng trong Text Box này, khi hiển thị thông tin sẽ hiển thị GHICHU1 trên 1 dòng và GHICHU2 sẽ ở trên 1 dòng.
Cảm ơn NoName, khi nào xong mình sẽ nhờ NoName giúp thêm vài vấn đề, những cái này cũng hay nếu xử lý được đưa lên Blog sẽ giúp được rất nhiều anh em lập trình.
Xin chân thành cảm ơn và trân trọng kính chào! -
RE: Đố vui VBA
Hạ Vàng > 11-02-11, 04:07 PM
(11-02-11, 11:44 AM)Noname Đã viết: Đố vui VBA- Chủ Đề hôm nay 11/02/2011
Tôi cho sự kiện nhấn chuột của một nút nhấn thế này:
Mã:Private Sub Command0_Click()
k = k + 1
MsgBox k
End Sub
Bạn hãy cho biết:
1/ Kết quả lần nhấn nút thứ nhất
2/ Kết quả lần nhấn nút thứ 2
3/ Giải thích tại sao kết quả lần nhấn nút thứ 2 là như thế!
Nhanh nhanh, 100 AC$ là phần thưởng. Kết quả được công bố vào ngày mai!
Mặc định k =
1/ Kết quả lần nhấn nút thứ nhất:
2/ Kết quả lần nhấn nút thứ 2:
3/ Giải thích tại sao kết quả lần nhấn nút thứ 2 là như thế!
Đúng hok sếp
-
RE: Đố vui VBA
tuongky > 11-02-11, 04:27 PM
Trả lời câu hỏi của bạn Noname!
- Nhấn lần một: xuất hiện một bảng hiện số 1
- Nhấn lần hai vào nút đó thì vẫn là bảng hiện số 1 hồi nãy.
Vì sao: vì mình chưa nhấn vào nút OK của bảng hiện số 1 hồi nãy nên bảng đó chưa thoát.
Đúng không ta
Mong có được giải thưởng.
-
RE: Đố vui VBA
Binh > 11-02-11, 04:45 PM
(11-02-11, 04:27 PM)tuongky Đã viết: Trả lời câu hỏi của bạn Noname!
- Nhấn lần một: xuất hiện một bảng hiện số 1
- Nhấn lần hai vào nút đó thì vẫn là bảng hiện số 1 hồi nãy.
Vì sao: vì mình chưa nhấn vào nút OK của bảng hiện số 1 hồi nãy nên bảng đó chưa thoát.
Đúng không ta Mong có được giải thưởng.
Lần nhấn nút thứ 2 vẫn là 1 vì cái Command0_Click() chỉ là Private Sub. :-) -
RE: Đố vui VBA
Noname > 12-02-11, 02:37 AM
(11-02-11, 04:45 PM)Binh Đã viết:
(11-02-11, 04:27 PM)tuongky Đã viết: Trả lời câu hỏi của bạn Noname!
- Nhấn lần một: xuất hiện một bảng hiện số 1
- Nhấn lần hai vào nút đó thì vẫn là bảng hiện số 1 hồi nãy.
Vì sao: vì mình chưa nhấn vào nút OK của bảng hiện số 1 hồi nãy nên bảng đó chưa thoát.
Đúng không ta Mong có được giải thưởng.
Lần nhấn nút thứ 2 vẫn là 1 vì cái Command0_Click() chỉ là Private Sub. :-)
Câu trả lời của bạn này đúng nhất. Sau mỗi lần click,vì K được khai báo trong 1 Private Sub nên nó được khởi tạo lại. Phần thưởng 100 AC$ thuộc về bạn!