塞尔达数星座,VB根据生日计算星座
塞尔达数星座目录
塞尔达数星座是一种基于塞尔达传说系列游戏中的虚构星座系统。这些星座被用于塞尔达传说系列游戏中的地图和地点命名。
。
。
1. 狮子座（Leo）。
2. 天蝎座（Scorpio）。
3. 摩羯座（Capricorn）。
4. 双鱼座（Pisces）。
5. 天秤座（Libra）。
6. 射手座（Sagittarius）。
7. 白羊座（Aries）。
8. 金牛座（Taurus）。
9. 双子座（Gemini）。
10. 巨蟹座（Cancer）。
11. 水瓶座（Aquarius）。
12. 处女座（Virgo）"。
塞尔达传说 基耀·乌神庙 命运乃群星之数 攻略
打开地图，找到基耀·乌神庙的位置，点击【传送】，进入该地点。
进入基耀·乌神庙后，首先需要仔细观察对面墙上的星图，可以看到星图上同样的星座不止一个。
接着，看看两边墙壁上的星座图案，记住这些星座在远方星图上分别都有几个。
比如下图第一个是三颗星，然后对照星图数一下一共有5个，下去将球拿起来，放到从上往下数第5格里即可。
然后，第二个是两条线的，对照星图找到3个，将球拿起来，放到从上往下数第3格里。
下一步，我们去到右边的区域，第三个图形比较复杂，在星图上我们只找到1个对应的，所以我们将球放在从上往下数第1格里。
最后一个图形在星图上一共找到2个，所以我们将球放在从上往下数第2格里。
完成之后，基耀·乌神庙命运乃群星之数这一关的门就开启了，也就是通过了这一关卡了。
VB根据生日计算星座
'建立一个command1控件，一个text1控件 Option Explicit Function Constellation(ByVal m As Date) As String '返回星座 Dim Number As Long Number = Month(m) * 100 + Day(m) Select Case Number Case 321 To 419 Constellation = "白羊" Case 420 To 520 Constellation = "金牛" Case 521 To 621 Constellation = "双子" Case 622 To 722 Constellation = "巨蟹" Case 723 To 822 Constellation = "狮子" Case 823 To 922 Constellation = "处女" Case 923 To 1023 Constellation = "天秤" Case 1024 To 1121 Constellation = "天蝎" Case 1122 To 1221 Constellation = "射手" Case 1222 To 1231 Constellation = "摩蝎" Case 101 To 119 Constellation = "摩蝎" Case 120 To 218 Constellation = "水瓶" Case 219 To 320 Constellation = "双鱼" Case Else Constellation = "无此星座！" End Select End Function Private Sub Command1_Click() If IsDate(Trim(Text1)) = True Then MsgBox Constellation(Trim(Text1)) Else MsgBox "日期格式错误！" End If End Sub Private Sub Form_Load() Command1.Caption = "星座" Text1 = "1547-7-7" End Sub
塞尔达传说基耀乌神庙怎么过
基耀乌神庙位于克罗格森林的核心区域，其对应的谜题是命运由群星决定，通过成功完成神庙的试炼，玩家可以获得一个试炼通过证，收集到四个这样的证件后，玩家可以前往指定的地点兑换一个心之容器，以增加他们的心体力量。
1、基耀乌神庙位于克洛克森林的中心地带。
进入神庙后，观察石碑上的描述，它要求我们仰望星空。
我们打开相机，拉近视角，观察石碑背后的星图。
2、这里的解密关键是计算两边墙壁上星座的数量。
石灯的数量代表着不同的星座，从1到5依次排列。
计算出数量后，我们将对应的球放置在相应数字的坑洞中。
3、放置完毕后，第一个大门开启。
我们进入大门，向右走，会发现第二个大门挡住了去路。
这个大门里面有一个宝箱，但我们需要根据大门上方的星图找到之前那四个星座的数量。
4、计算出数量后，我们回到之前摆放球的地方，将球放置在对应数字的坑洞中。
放置完毕后，第二个大门开启，我们便可以拿到宝箱。
5、现在，我们可以前往获取克服之证了。
通过这个神庙的试炼，我们将获得这个重要的道具，进一步增强我们的实力和能力。