星座配置代码_星座配置演变

私有子命令1_Click()

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，“星座查询”

如果…就会结束

末端接头