Function bạt bẽo ngỡ ngàng
Trả về giá trị làm chàng lặng câm
For n = 1 to 5
Anh đã đợi mãi em n năm rồi
Biến anh cứ mãi bồi hồi
Cho anh một chút đôi môi em buồn
Gửi hoài Request em luôn
Response không thấy lệ tuôn mi sầu

***Dịch ra ngôn ngữ ASP - VB:*** :

Function BatBeoNgoNgang() as LangCam
For n=1 to 5
Doevents 'waiting
Next