祝大家情人节快乐

竹笛

sub 情人节快乐()
dim strWhere as string
dim strYou as string
if date=#2004-1-24# then
strWhere=me.选择'有三个选项：没有情人；你有情人；你有老公或老婆

   select case strWhere
   case "没有情人"
     strYou="找到情人"
   case "你有情人"
     strYou="找到老公或老婆"
   case "你有老公或老婆"
     strYou="快乐,你到底想什么……"
  end select
msgbox "情人节快乐!祝您今天" & strYou ,vbinformation,"Access中国"
end if

end sub

[此贴子已经被作者于2004-2-14 9:13:37编辑过]