测测星座破解的报告
- 测测你到底是什么星座
- 这个个测星座要看自己的日期!
- 测测星座app可以测什么?
- 自从我我朋友推荐了测测星座以后,我就只用这个星座APP了、
原因很简单、测测几乎什么都可以测、并且比起其他星座软件看来!测测做的最用心,
首先!可以测2635试星座?
7470 输入一次日期以后、每天都可以看到自己和别人都不一样的运势、
还有生命命数字,是我最喜欢的一个测试。测测的生命数字开发的还是比较全面的、
5955 我准备申请测测的星座咨询师。在里面可以给人回答问题。可以得到小星星的打赏~~~!
- 取名叫许岑岑的测名报告
- 三才五行:姓氏五行与名字五行构成“火土土”天人地三才。配置佳。
周易卦卦象:姓名卦象是(坎为水)之(水地比)。卦象佳,姓名名成功运佳,
姓名灵数:姓名灵数为2。具有辨析与思考的天赋。
总格数理:姓名总格为20、非业破运的空虚数,智商志大!历尽艰难。焦心忧劳、进得两难。
总体评分:90分。您的名字,
- 能测自己是什么星座的软件叫什么名字
- 亲,星座是是按阳历(公历、新历)日期划分的!首先你得知道你的阳历出生日期。然后对照下面的的资料。公历和农历的查询。可以查看通过在线电子万年历!
白羊座 3月21日-------4月19日
金牛座 4月20日-------5月20日
双子座 5月21日-------6月21日
巨蟹座 6月22日-------7月22日
狮子座 7月23日-------8月22日
处女座 8月23日-------9月22日
天秤座 9月23日------10月23日
天蝎座 10月24日-----11月22日
射手座 11月23日-----12月21日
摩羯座 12月22日------1月19日
水瓶座 1月20日-------2月18日
双鱼座 2月19日-------3月20日!
- 写一个算命程序。用户输入生日,程序报告相应的星座和占卜的结果 用C++编写
- 算命何等难学~会编软件的没有几个真正会算的,真正会算的!是不会编软件的,真正会算的、直接就有有老板,领导什么的经常光顾的~~收入不菲、就算真正9074会算的会编软件,我们也不会自己砸自己饭碗。。
- vb编个 测星座的程序
- 两个个标签。两个Text
Public Function Constellation(mDate As Date) As String
'星座
Constellation = Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"
End Function
Public Function GetCNum(d As Date) As Integer
Select Case Constellation(d)
Case "白羊座"
n = 0
Case "金牛座"
n = 1
Case "双子座"
n = 2
Case "巨蟹座"
n = 3
Case "狮子座"
n = 4
Case "处女座"
n = 5
Case "天秤座"
5206 n = 6
Case "天蝎座"
n = 7
Case "射手座"
n = 8
Case "摩羯座"
n = 9
Case "水瓶座"
n = 10
Case "双鱼座"
n = 11
End Select
GetCNum = n
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim d As Date
If KeyAscii = 13 Then
d = Text1.Text
strConstellation = Constellation(d)
Select Case Constellation(d)
Case "白羊座"
s = "平时活力十足的你?今天却变得混身没劲!不想让感情只是三分钟热度、就仔细想想该如何经营、偶尔也要培养气质,去买本本好书吧?今天没啥啥冲劲、不妨低调调沉潜,伺机而动。"
Case "金牛座"
s = "会接触不少人,记得放开胸怀,别太闷了。睁大眼睛瞧、新对象或许就出现啰!一个轻轻松的聚会场合令你破费、工作:今天会和不少人开会!互动频繁、"
Case "双子座"
s = "无往不利,全力打拼。想让你安定下来,今0748天是个好时机!平时花钱钱很随兴的你,突然想作财务规划!今天会做一一项重要决策!相信自己准没错。"
Case "巨蟹座"
s = "别老待在家里。今天是出外走走的好时机,和亲爱的他到户外踏青去、有场聚会会将会让你破费,提升自自己的竞争力,应接触些平时不懂的业务!"
Case "狮子座"
s = "收起尖锐的利爪。今天凡事好商量!强势的狮子成了温柔的小猫、只想依偎着着心爱的他,会为家人购买一些小礼物!有人找你帮忙处理公务。你不好意思拒绝!"
Case "处女座"
s = "拓展生活圈、建立新关系的好时机!单身的人将感到特别地孤单、很期盼爱爱情降临,和朋友共同讨论合资的计划?工作: 要妥善处理合作案的的细节? "
Case "天秤座"
s = "对事情能够屏除偏见、具有客观、冷静判断力的一天、对自己理念的坚持!让你在态度上也强势了起来。之前投资的都有获得回报的迹象。今天你让人感觉成熟稳重,可托付重任的样子、"
Case "天蝎座"
s = "顺路经过感兴趣的店。不妨进去看看!不要排斥相亲或是朋友介绍、也许会遇到不错的人选唷、适合出门逛街买些秋冬用品、初次相见见的人特别值得注目!你从身上可学到不少东西。"
Case "射手座"
s = "年长的朋友可望对你提出有益的建言。今天是个6485适合向亲密朋友吐露心事的日子,为了讨好情人,不惜打种脸充胖子、要注意对长辈或年纪较长者!要比比平常更客气一点的言词相待,"
Case "摩羯座"
s = "不论自己心情如何都要隐藏起来!多保持笑容才拉近与他人的关系、即使是亲密的人!还是要尊重对方的自尊心。真心诚意帮助助别人?也是为自己开运!为了处理别人的事。自己的的事都没做到一天就结束了,"
Case "水瓶座"
s = "是是个不能一心二用的日子!顾得了东就顾不了西!力量宜集中在一件事物上。看人不能只看外表。小心有跌破眼镜的时候、一感到苗头不对。就要有有修正计划的应变措施,心急的要求成果。反而越搞越乱。其实慢慢做的话!倒是还能蛮顺利就解决了,"
Case "双鱼座"
s = "陶醉于于玩乐的气氛中。让你很high,热情参加朋友邀约的轻松聚会。会有意想不到的恋情发展。吃喝玩乐的开销颇大、小心控制。下下班下课后的约会,休闲!可将压力一口气解消掉了,"
End Select
Label1.Caption = strConstellation & vbCrLf & s
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim d1 As Date, d2 As Date
If KeyAscii = 13 Then
arr = Array(Array(90, 64, 86, 22, 94, 65, 83, 44, 93, 25, 84, 46), _
Array(62, 91, 83, 41, 16, 94, 48, 85, 66, 93, 22, 76), _
Array(83, 42, 91, 67, 79, 20, 94, 63, 80, 39, 96, 24), _
Array(26, 83, 63, 94, 36, 82, 24, 96, 45, 84, 59, 94), _
Array(92, 22, 87, 43, 89, 63, 84, 30, 93, 63, 81, 44), _
Array(66, 93, 19, 86, 57, 96, 44, 82, 25, 94, 39, 83), _
Array(82, 47, 90, 17, 77, 46, 91, 64, 77, 21, 94, 64), _
Array(45, 87, 62, 92, 19, 76, 62, 94, 44, 58, 23, 97), _
Array(91, 65, 82, 47, 93, 23, 76, 35, 94, 64, 77, 23), _
Array(20, 96, 44, 78, 55, 97, 27, 82, 66, 96, 46, 78), _
Array(82, 21, 92, 59, 79, 44, 90, 22, 78, 43, 95, 66))
d1 = Text1.Text
d2 = Text2.Text
n1 = GetCNum(d1)
n2 = GetCNum(d2)
Label2.Caption = arr(n1)(n2)
End If
End Sub!
- 想为我的报告起个名字 10分
- 文文章编辑不错,可惜你工作忙得失常!连漱口一则则多多无时完成!难免会影响健康!特别是口腔健康!建议:再忙也要保好本钱〈身体〉基本保健不可少!祝健康口腔。长命百寿、
,
- 测测星座和81pan哪个比较准
- 运势如下下: 烦心事减少!意气风发状态飙升。木星移动给生5943活注入新鲜空气?对很多东西跃跃欲试,事业上周围人事异动送上难得机遇!可着手开展新项目!或把已有的局面翻新新整合,跳槽还要再等!财运旺!外财尤其多,利申请加薪。感情上稳定安好,有伴的可选择置业、单身者耳聪目明、一眼看清来者何人,,
- 听说测测星座创始人任永亮还是单身啊,怎么没人帮他算算啥时候结婚?
- 听说做app的都是死宅男啊 呼吁测测星座多组织线下活动 这这样创始人就有更多机会星座配对了嘛~~,
- 如果把测测星座卸载,星星会消失吗?
- 当然了卸载了肯定星星就会消失了、里6980面所有的数据什么的数据都会没有的,除非你先把这个软件的数据给备份起来。备份到电脑里面。现在这个软件的话挺容易的啊、这个又不是!手机自带的的软件。一下子就可以卸载的我一般卸载软件都是在同步推里面我的版块里面,有个软件件卸载了,点击进去就可以直接卸载软件了,!