搜索关键词...
您当前位置:主页 > 帕鲁指南 > 正文

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

2024-07-21 14:18 admin

一、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

精选应用 MORE +

好游安利换一换