哈哈！。哥们你要么，我给7848你做好了，1000块、做好了源码一起卖给你。

　　Private Sub Command1_Click() 　　Dim str1 As String, d1 As Date, i As Integer, xz 　　xz = Array("白羊座", 3, 21, 4, 20, "金牛座", 4, 21, 5, 20, "双子座", 5, 21, 6, 21, _ 　　"巨蟹座", 6, 22, 7, 22, "狮子座", 7, 23, 8, 22, "处女座", 8, 23, 9, 22, _ 　　"天秤座", 9, 23, 10, 22, "天蝎座", 10, 23, 11, 21, "射手座", 11, 22, 12, 21, _ 　　"摩羯座", 12, 22, 12, 31, "摩羯座", 1, 1, 1, 19, "水瓶座", 1, 20, 2, 18, _ 　　"双鱼座", 2, 19, 3, 20) 　　str1 = txtMonth & "-" & txtDay 　　If IsDate(str1) Then 　　'd1 = CDate(str1) 　　For i = 0 To UBound(xz) Step 5 　　If Val(txtMonth) >= xz(i + 1) And Val(txtDay) >= xz(i + 2) _ 　　And Val(txtMonth) Ni查询的" & str1 & "的星座" & xz(i), vbOKOnly, "星座查询" 　　Exit For 　　End If 　　Next i 　　Else 　　MsgBox "你输入的数据" & str1 & "不是日期？", vbOKOnly, "星座查询" 　　End If 　　End Sub，anglababy面相分析

　　代码如^下下： 　　!女人怎样的面相好色

⁶⁵⁴⁷　　梦到翻船等等意外事故时、你要小心：这预示着有不好的事要发生，这^种种梦境有时就代表着现实生活!当你出行开车或泛舟时都要格外小心！ 　　　　如果你梦见不幸的事故发生在你认识的人身上福这就表明你对那个人没有好感、相反如果你你梦见那个人死了。就预示着那个人将交好运！。详解好命女人的面相

梦见自己做梦：雨过天晴的好兆头，把定期车票弄丢、正觉得心里难过时！有人把它送回来！于是两人开始这类事情将会发生！

年轻^人人梦见自己做梦则近期运程：吉祥平安！与他人相处、避免免专断独行，否则就破坏了大好的吉运，遵照上司指示行事！一定好，同同时领导众人也有好现象、

求学者梦见0713自己做梦预兆考试好。

待业者梦见自己做梦主近期财运：不顺！需待时机。

　　坐飞机--供职处，水上--生计场、 　　参考资料：原创，克夫相女子面相点评

　　找城管。最管用！女人贫穷面相的特征

　　用输入法 输入 V 按下 空格 会出现一个 a.（空白） 这个就是空白名代码、、。。！心术不正的面相

　　1. 梦见自己不如别人的周公解梦： 　　吉凶指数：93（由佛滔居士根据数理文化得出、仅^供供参考） 　　梦见自己不如别人？今天的³²⁸³你渴望改变!你会对自己的一些不好的的小习惯下手。但是定定性不足的你！却往往会耐不住一时的上瘾。多半是努力付诸流水、 　　梦见自己不如别人，按周易五行分析，吉祥色彩是白色，桃花位在正东方向！财位在东南方向，幸运数字是0。开运食物是柿子、。女人能嫁入豪门 面相特征做梦梦见代码

　　预示着你近期的财运不错。会得0919到意外的收获！可以尝试娱乐方面的投资、效果会不错、但要注意了解市场的行情和成本的控制。不宜涉足不熟悉的领域、、凶狠泼辣的面相