d=Date()
t=Time()
h=Hour(t)    '获取到当前的小时

if h<9 then
    k="早上"
elseif h<12 then
    k="上午"
elseif h<14 then
    k="中午"
elseif h<18 then
    k="下午"
else
    k="晚上"
end if

lady="大美女，" & k & "好呀！"     '拼装好问好的话   
CreateObject("SAPI.SpVoice").Speak(lady)     '电脑读出这句话