Đánh giá chủ đề:
  • 5 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Đố vui VBA
#1
Đố 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!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng
#2
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!!! Cake
Chữ ký của quocsantak Xin chào! Mình là quocsantak, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn Noname
#3
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!
Chữ ký của quocsantak Xin chào! Mình là quocsantak, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#4
(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 = 007

1/ Kết quả lần nhấn nút thứ nhất: 71_71

2/ Kết quả lần nhấn nút thứ 2: Smack

3/ Giải thích tại sao kết quả lần nhấn nút thứ 2 là như thế! 004

Đúng hok sếp 020


Chữ ký của Hạ Vàng rose Nhắm mắt bên người để mộng trôi
Cho em thanh thản giấc mơ đời
Không vướng bận sầu, không lo lắng
Yên bình một cõi dấu yêu ơi!good luck
ღღღღღTài sản của Hạ Vàng (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan
#5
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 Tongue_smile Mong có được giải thưởng.
Chữ ký của tuongky Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
(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 Tongue_smile 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. :-)
Chữ ký của Binh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn Noname
#7
(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 Tongue_smile 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! Tongue_smile
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , tuongky


Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ