Dim str1為字符串，d1為日期，I為整數，xz
Xz = Array("白羊座"，321，4，20，"金牛座"，421，5，20，"雙子座"，521，6，21，_
“巨蟹座”，6，22，7，22，“獅子座”，7，23，8，22，“處女座”，8，23，9，22，_
“天秤座”，9，23，10，22，“天蠍座”，10，23，11，21，“射手座”，11。
“摩羯”，12，22，12，31，“摩羯”，1，1，19，“水瓶座”，65438
“雙魚座”，2，19，3，20)
str 1 = txt month & amp；“-”& amp；txtDay
如果IsDate(str1 ),則
d1 = CDate(str1)
對於i = 0至下界(xz)步驟5
If Val(txtMonth)>= xz(i + 1)和Val(txtDay)>= xz(i + 2) _
而Val(txt month)& lt；= xz(i + 3)和Val(txt day)& lt；= xz(i + 4)那麽
MsgBox“您查詢的”&；str 1 & amp；“星座”&；Xz(i)，vbOKOnly，《星座查詢》
為...退出
如果…就會結束
接下來我
其他
MsgBox“您輸入的數據”&；str 1 & amp；“不是約會！”，vbOKOnly，“星座查詢”
如果…就會結束
末端接頭