vb 给定年月日（1900年以后的日期），求这一天是星期几。不可使用标准函数。 公元1年1月1日是星期一

一、vb 给定年月日（1900年以后的日期），求这一天是星期几。不可使用标准函数。 公元1年1月1日是星期一

Private Sub Command1_Click()

year1 = Text1

month1 = Text2

day1 = Text3

If ((year1 Mod 4 = 0) And (year1 Mod 100 <> 0)) Or (year1 Mod 400 = 0) Then

m2 = 29

Else

m2 = 28

End If

year2 = year1 - 1

res = year2 \ 4 - year2 \ 100 + year2 \ 400 + year2 * 365 + day1 + 1

For k = 1 To month1 - 1

If k = 2 Then

res = res + m2

ElseIf (k = 1) Or (k = 3) Or (k = 5) Or (k = 7) Or (k = 8) Or (k = 10) Then

res = res + 31

Else

res = res + 30

End IfNext

k = res Mod 7

Select Case k

Case 1

Text4 = 日

Case 2

Text4 = 一

Case 3

Text4 = 二

Case 4

Text4 = 三

Case 5

Text4 = 四

Case 6

Text4 = 五

Case 0

Text4 = 六

End Select

End Sub

二、我的世界更多动物mod怎么驯服斑马

要下龙骑士mod（不然不能孵），点右键（点 的是龙蛋）就可以孵化了。要是有动物单车mo d，可以用末影龙单车，在各种方块上点右键， 坐骑末影龙就出现了。右键点一下末影龙，就 可以上去了，这不是Boos末影龙，只有20滴血 。想要Boos末影龙，就要下龙骑士mod先把创 造模式打开，再打死末影龙·，传送门上有一个· 龙蛋，看下面的解释： 蛋 基 蜡 （解释：蛋：龙蛋 基：基岩 蜡：蜡烛） 挖破基岩后，龙蛋掉到蜡烛上，龙蛋就变成物 品了，把龙蛋带回主世界，换成生存模式，必 须放到室外，右键点击龙蛋，就孵化成功了。 过几天龙蛋就会变成幼龙（是游戏里的几天） ，喂它肉食，他就能长大（幼龙也能骑），给 末影龙带上鞍，它既可以保护你，又可以让你 在生存中飞，两全其美。

望采纳！

三、我的世界更多生物mod怎么驯服黑色飞马

1、首先要下载龙骑士MOD，不然蛋不能孵出来。

2、有MOD的情况下，右键龙蛋，就可以孵化了。

3、要是有动物单车mod，可以用末影龙单车，在各种方块上点右键，坐骑末影龙就出现了。右键点一下末影龙，就可以上去了，这不是Boos末影龙，只有20滴血。

四、我的世界神奇宝贝MOD能生蛋么

不能的，目前的MOD没有生蛋功能

五、我的世界 村民有名字的 会生小孩子 给他材料 他就做房子 的MOD 是什么MOD?有没有1.6.1的?有的能给我么? 我邮箱 761453390@qq.com

虚拟人生mod

六、VB表达式8+3*5 MOD 3^25*(sin(0)+1)的值是

8 + 3 * 5 Mod 3 ^ 2 \ 5 * (Sin(0) + 1)

Sin(0)=0

(Sin(0) + 1)=1

5 * (Sin(0) + 1)=5

3 ^ 2 =9

9\5=1

3 * 5=15

15 Mod 1=0

8+0=8