调查：有几个程序员是烟鬼？

Question

If You="程序员" And You="烟鬼" Then
   回贴
   Else
   离开
End If

Answer 1

建议楼主使用如下专业做法
private const Work_Name="程序员"
private const Hobby_Name="抽烟"
if work_name IN You.Works And hobby_name In You.Hobbies then
    ''''回帖
else
    ''''离开
end if
msgbox "抽烟万岁！",vbinfomation,"程序员的呐喊"

Answer 2

业余编程 and 一天两包 and 想戒烟 and 戒不了

Answer 3

dim YourAnswer as VbMsgboxresult
YourAnswer=Msgbox("我一天一包,算不算太多？" & vbcrlf & "兄弟"  _
& "，借个火！",vbExclamation + vbYesNo,"Please")If YourAnswer=VBYes then
   Msgbox "多谢"
else
   Msgbox "程序员都是吝啬鬼",,"除了我"
end if