【拼图小程序源码】【宠物网页源码】【设计博客网站源码】算命vb源码

【拼图小程序源码】【宠物网页源码】【设计博客网站源码】算命vb源码_算命源码正版

时间:2024-11-25 00:57:10 来源：网页源码能干嘛

1.ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?算命算命
2.vbç®åå
3.我刚刚在某算命网中，算得的源码源码结果不好，害怕怎么办

算命vb源码_算命源码正版

ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?正版

Private Sub Command1_Click()

Words = Array("asdf", "dfggfd", "gfhgh") 'ä½ å¯ä»¥æè¿ä¸ªæ ¼å¼å¢å

Randomize

Label1 = Words(Rnd * UBound(Words))

End Sub

vbç®åå

ç½ä¸ä¹æä»£ç çãä»¥ä¸æ¯æä¿®æ¹è¿çï¼æ²¡ææ³¨é

Dim WeekName(7), MonthAdd(), NongliData(), TianGan(9), DiZhi(), ShuXiang(), DayName(), MonName()

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliMonStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

Public Function wYear(curTime As Date, YearOrDay As Integer)

'curTimeæ¯ä¼ ééè¦è½¬åçæ¥æ,YearOrDayæ¯éè¦è¾åºä»ä¹ç»æ

' YearOrDayçå¼æ¯ 0=å¹´ææ¥,1=ä»ååå¹´,2=ä»ææ¥,3=ååèæ¥

' 4=ä»æ,5=ä»æ¥

'è·åå½åç³»ç»æ¶é´

'curTime = CDate("-4-")

'ææå

WeekName(0) = " * "

WeekName(1) = "æææ¥"

WeekName(2) = "ææä¸"

WeekName(3) = "ææäº"

WeekName(4) = "ææä¸"

WeekName(5) = "ææå"

WeekName(6) = "ææäº"

WeekName(7) = "ææå"

'å¤©å¹²åç§°

TianGan(0) = "ç²"

TianGan(1) = "ä¹"

TianGan(2) = "ä¸"

TianGan(3) = "ä¸"

TianGan(4) = "æ"

TianGan(5) = "å·±"

TianGan(6) = "åº"

TianGan(7) = "è¾"

TianGan(8) = "å£¬"

TianGan(9) = "ç¸"

'å°æ¯åç§°

DiZhi(0) = "å"

DiZhi(1) = "ä¸"

DiZhi(2) = "å¯"

DiZhi(3) = "å¯"

DiZhi(4) = "è¾°"

DiZhi(5) = "å·³"

DiZhi(6) = "å"

DiZhi(7) = "æª"

DiZhi(8) = "ç³"

DiZhi(9) = "é"

DiZhi() = "æ"

DiZhi() = "äº¥"

'å±ç¸åç§°

ShuXiang(0) = "é¼ "

ShuXiang(1) = "ç"

ShuXiang(2) = "è"

ShuXiang(3) = "å"

ShuXiang(4) = "é¾"

ShuXiang(5) = "è"

ShuXiang(6) = "é©¬"

ShuXiang(7) = "ç¾"

ShuXiang(8) = "ç´"

ShuXiang(9) = "é¸¡"

ShuXiang() = "ç"

ShuXiang() = "çª"

'ååæ¥æå

DayName(0) = "*"

DayName(1) = "åä¸"

DayName(2) = "åäº"

DayName(3) = "åä¸"

DayName(4) = "åå"

DayName(5) = "åäº"

DayName(6) = "åå"

DayName(7) = "åä¸"

DayName(8) = "åå«"

DayName(9) = "åä¹"

DayName() = "åå"

DayName() = "åä¸"

DayName() = "åäº"

DayName() = "åä¸"

DayName() = "åå"

DayName() = "åäº"

DayName() = "åå"

DayName() = "åä¸"

DayName() = "åå«"

DayName() = "åä¹"

DayName() = "äºå"

DayName() = "å»¿ä¸"

DayName() = "å»¿äº"

DayName() = "å»¿ä¸"

DayName() = "å»¿å"

DayName() = "å»¿äº"

DayName() = "å»¿å"

DayName() = "å»¿ä¸"

DayName() = "å»¿å«"

DayName() = "å»¿ä¹"

DayName() = "ä¸å"

'ååæä»½å

MonName(0) = "*"

MonName(1) = "æ£"

MonName(2) = "äº"

MonName(3) = "ä¸"

MonName(4) = "å"

MonName(5) = "äº"

MonName(6) = "å"

MonName(7) = "ä¸"

MonName(8) = "å«"

MonName(9) = "ä¹"

MonName() = "å"

MonName() = "åä¸"

MonName() = "è"

'å¬åæ¯æåé¢çå¤©æ°

MonthAdd(0) = 0

MonthAdd(1) =

MonthAdd(2) =

MonthAdd(3) =

MonthAdd(4) =

MonthAdd(5) =

MonthAdd(6) =

MonthAdd(7) =

MonthAdd(8) =

MonthAdd(9) =

MonthAdd() =

'ååæ°æ®

NongliData(0) =

NongliData(1) =

NongliData(2) =

NongliData(3) =

NongliData(4) =

NongliData(5) =

NongliData(6) =

NongliData(7) =

NongliData(8) =

NongliData(9) =

NongliData() =

'çæå½åå¬åå¹´ãæãæ¥ ==> GongliStr

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

GongliStr = curYear & "å¹´"

If (curMonth < ) Then

GongliStr = GongliStr & "0" & curMonth & "æ"

Else

GongliStr = GongliStr & curMonth & "æ"

End If

If (curDay < ) Then

GongliStr = GongliStr & "0" & curDay & "æ¥"

Else

GongliStr = GongliStr & curDay & "æ¥"

End If

'çæå½åå¬åææ ==> WeekdayStr

curWeekday = Weekday(curTime)

WeekdayStr = WeekName(curWeekday)

'è®¡ç®å°åå§æ¶é´å¹´2æ8æ¥çå¤©æ°ï¼-2-8(æ£æåä¸)

TheDate = (curYear - ) * + Int((curYear - ) / 4) + curDay + MonthAdd(curMonth - 1) -

If ((curYear Mod 4) = 0 And curMonth > 2) Then

TheDate = TheDate + 1

End If

'è®¡ç®ååå¤©å¹²ãå°æ¯ãæãæ¥

isEnd = 0

m = 0

If (NongliData(m) < ) Then

k =

Else

k =

End If

n = k

If (n < 0) Then

Exit Do

End If

'è·åNongliData(m)çç¬¬nä¸ªäºè¿å¶ä½çå¼

bit = NongliData(m)

For i = 1 To n Step 1

bit = Int(bit / 2)

bit = bit Mod 2

If (TheDate <= + bit) Then

isEnd = 1

Exit Do

End If

TheDate = TheDate - - bit

n = n - 1

Loop

If (isEnd = 1) Then

Exit Do

End If

m = m + 1

Loop

curYear = + m

curMonth = k - n + 1

curDay = TheDate

If (k = ) Then

If (curMonth = (Int(NongliData(m) / ) + 1)) Then

curMonth = 1 - curMonth

ElseIf (curMonth > (Int(NongliData(m) / ) + 1)) Then

curMonth = curMonth - 1

End If

'çæååå¤©å¹²ãå°æ¯ãå±ç¸ ==> NongliStr

NongliStr = TianGan(((curYear - 4) Mod ) Mod ) & DiZhi(((curYear - 4) Mod ) Mod ) & "å¹´"

NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod ) Mod ) & ")"

'NongliStr = "åå" & NongliStr NongliStræ¯ååçå¹´

'çæååæãæ¥ ==> NongliDayStr

If (curMonth < 1) Then

NongliDayStr = "é°" & MonName(-1 * curMonth)

Else

NongliDayStr = MonName(curMonth)

End If

NongliMonStr = NongliDayStr & "æ"

NongliDayStr = DayName(curDay) 'NongliDayStrå°±æ¯ææ¥

'GongliStr = "å¬å" & GongliStr 'è¿éæ¯å¬åæ¥æ

'wyear = NongliStr & NongliDayStr & vbCrLf & GongliStr

'wyear = NongliStr & NongliDayStr

Select Case YearOrDay

Case 0

wYear = NongliStr & NongliMonStr & NongliDayStr

Case 1

wYear = NongliStr

Case 2

wYear = NongliMonStr & NongliDayStr

Case 3

Select Case NongliMonStr & NongliDayStr

Case "æ£æåä¸", "é°æ£æåä¸"

wYear = "æ¥è"

Case "æ£æåäº", "é°æ£æåäº"

wYear = "åå®µè"

Case "äºæåäº", "é°äºæåäº"

wYear = "ç«¯åè"

Case "ä¸æåä¸", "é°ä¸æåä¸"

wYear = "ä¸å¤è"

Case "ä¸æåäº", "é°ä¸æåäº"

wYear = "ä¸åè"

Case "å«æåäº", "é°å«æåäº"

wYear = "ä¸ç§è"

Case "ä¹æåä¹", "é°ä¹æåä¹"

wYear = "éé³è"

Case "èæåå«", "é°èæåå«"

wYear = "èå«è"

Case "èæå»¿ä¸", "é°èæå»¿ä¸"

wYear = "å°å¹´"

Case "èæä¸å", "é°èæä¸å"

wYear = "é¤å¤"

Case Else

wYear = ""

End Select

Case 4

wYear = NongliMonStr

Case 5

wYear = NongliDayStr

End Select

End Function

Function sGongliJieri(sD As Date)

Dim sJieriDay(), sJieriName()

sJieriDay(0) = ""

sJieriDay(1) = ""

sJieriDay(2) = ""

sJieriDay(3) = ""

sJieriDay(4) = ""

sJieriDay(5) = ""

sJieriDay(6) = ""

sJieriDay(7) = ""

sJieriDay(8) = ""

sJieriDay(9) = ""

sJieriDay() = ""

sJieriName(0) = ""

sJieriName(1) = "åæ¦è"

sJieriName(2) = "ä¸çæ¹¿å°æ¥"

sJieriName(3) = "å½éæ°è±¡è"

sJieriName(4) = "æäººè"

sJieriName(5) = "å½éæµ·è±¹æ¥"

sJieriName(6) = "å¨å½ç±è³æ¥"

sJieriName(7) = "å¦é·éçºªå¿µæ¥"

sJieriName(8) = "å¦å¥³è"

sJieriName(9) = "æ¤æ èï¼åä¸å±±éä¸çºªå¿µæ¥"

sJieriName() = "å½éè¦å¯æ¥"

sJieriName() = "æ¶è´¹èæçæ¥"

sJieriName() = "ä¸å½å½å»èï¼å½éèªæµ·æ¥"

sJieriName() = "ä¸çæ°´æ¥"

sJieriName() = "ä¸çæ°è±¡æ¥"

sJieriName() = "ä¸çé²æ²»ç»æ ¸çæ¥"

sJieriName() = "å¨å½ä¸å°å¦çå®å¨æè²æ¥"

sJieriName() = "å·´åæ¯å¦å½åæ¥"

sJieriName() = "æäººè"

sJieriName() = "ä¸çå«çæ¥"

sJieriName() = "ä¸çå°çæ¥"

sJieriName() = "ä¸çå¾ä¹¦åçææ¥"

sJieriName() = "äºéæ°é»å·¥ä½èæ¥"

sJieriName() = "å³å¨è"

sJieriName() = "éå¹´è"

sJieriName() = "ç¢ç¼ºä¹çé²æ²»æ¥"

sJieriName() = "ä¸ççº¢ååæ¥"

sJieriName() = "å½éæ¤å£«è"

sJieriName() = "å½éå®¶åºæ¥"

sJieriName() = "å½éçµä¿¡æ¥"

sJieriName() = "å¨å½å¦çè¥å»æ¥"

sJieriName() = "å½éçå¥¶æ¥"

sJieriName() = "ä¸çæ çæ¥"

sJieriName() = "å½éå¿ç«¥è"

sJieriName() = "ä¸çç¯å¢ä¿æ¤æ¥"

sJieriName() = "å¨å½ç±ç¼æ¥"

sJieriName() = "é²æ²»èæ¼ ååå¹²æ±æ¥"

sJieriName() = "å½éå¥¥æå¹åæ¥"

sJieriName() = "å¨å½åå°æ¥"

sJieriName() = "å½éç¦æ¯æ¥"

sJieriName() = "å½éä½è²è®°èæ¥"

sJieriName() = "ææ¥æäºçºªå¿µæ¥"

sJieriName() = "ä¸çäººå£æ¥"

sJieriName() = "éæ´²å¦å¥³æ¥"

sJieriName() = "å»ºåè"

sJieriName() = "ä¸å½ç·åè(ç¸ç¸è)"

sJieriName() = "å½éæ«ç²æ¥ï¼å½éæ°é»å·¥ä½èæ¥"

sJieriName() = "æ¯æ³½ä¸éä¸çºªå¿µ"

sJieriName() = "ä¸å½æå¸è"

sJieriName() = "ä¸çæ¸æ´å°çæ¥"

sJieriName() = "å½éèæ°§å±ä¿æ¤æ¥"

sJieriName() = "ä¹ä¸å«äºåçºªå¿µæ¥"

sJieriName() = "å½éç±çæ¥"

sJieriName() = "ä¸çææ¸¸æ¥"

sJieriName() = "ååè¯è¾°"

sJieriName() = "å½åºèé³ä¹æ¥ï¼èäººè"

sJieriName() = "åå¹³ä¸æ°ä¸»èªç±æäºæ¥"

sJieriName() = "å½åºèåæ¥"

sJieriName() = "èäººè"

sJieriName() = "å¨å½é«è¡åæ¥ï¼ä¸çè§è§æ¥"

sJieriName() = "ä¸çé®æ¿æ¥ï¼ä¸å½é®èæ¥"

sJieriName() = "ä¸çä¿å¥æ¥ï¼å½éæå¸è"

sJieriName() = "ä¸çæ åæ¥"

sJieriName() = "å½éç²äººè(ç½ææè)"

sJieriName() = "ä¸çç²®é£æ¥"

sJieriName() = "ä¸çæ¶é¤è´«å°æ¥"

sJieriName() = "ä¸çä¼ ç»å»è¯æ¥"

sJieriName() = "èåå½æ¥"

sJieriName() = "ä¸çå¤ä¿æ¥"

sJieriName() = "ä¸å½è®°èæ¥"

sJieriName() = "å¨å½æ¶é²å®å¨å®£ä¼ æè²æ¥"

sJieriName() = "ä¸çéå¹´è"

sJieriName() = "å½éç§å¦ä¸åå¹³å¨(æ¬æ¥æå±çä¸å¨)"

sJieriName() = "åä¸å±±è¯è¾°çºªå¿µæ¥"

sJieriName() = "ä¸çç³å°¿çæ¥"

sJieriName() = "å½éå¤§å¦çèï¼ä¸çå¦çè"

sJieriName() = "å½æå¹´"

sJieriName() = "ä¸çé®åæ¥ï¼ä¸ççµè§æ¥"

sJieriName() = "å½æå¹´"

sJieriName() = "å½éå£°æ´å·´åæ¯å¦äººæ°å½éæ¥"

sJieriName() = "ä¸çè¾æ»çæ¥"

sJieriName() = "ä¸çæ®ç¾äººæ¥"

sJieriName() = "å½éç»æµåç¤¾ä¼åå±å¿æ¿äººåæ¥"

sJieriName() = "å½éå¿ç«¥çµè§æ¥"

sJieriName() = "ä¸çè¶³çæ¥"

sJieriName() = "ä¸çäººææ¥"

sJieriName() = "è¥¿å®äºåçºªå¿µæ¥"

sJieriName() = "åäº¬å¤§å± æçºªå¿µæ¥"

sJieriName() = "æ¾³é¨åå½çºªå¿µ"

sJieriName() = "å½éç¯®çæ¥"

sJieriName() = "å¹³å®å¤"

sJieriName() = "å£è¯è"

sJieriName() = "æ¯æ³½ä¸è¯è¾°çºªå¿µ"

For i = 1 To

sJieriDay1 = Left(sJieriDay(i), 2) & "-" & Right(sJieriDay(i), 2)

nDay = CInt(CDate(sJieriDay1 & "-" & Year(sD)) - CDate(Month(sD) & "-" & Day(sD) & "-" & Year(sD)))

If nDay = 0 Then

Exit Function

ElseIf nDay > 0 Then

Exit Function

End If

End Function

我刚刚在某算命网中，算得的算命算命结果不好，害怕怎么办

换一个网址继续算命，源码源码拼图小程序源码直到你满意为止。正版宠物网页源码。算命算命。源码源码。正版。算命算命。源码源码如果你相信算命的正版话，我再说什么你都无法释怀，算命算命设计博客网站源码还不如用算命来算算命的源码源码命。。正版。。ezbuy代购网站源码。。。

我算命的魔天记源码招术非常多，不过那都是为了骗女生宿舍的妹妹玩的，虽然她们都非常着迷的信，因为巧合和类同的情况总是每个人都有，即使算的不准，我也有办法圆回去，这是语言的技巧而已。。。。。。

想知道更多资讯>>>点击进入“百科”频道

【拼图小程序源码】【宠物网页源码】【设计博客网站源码】算命vb源码_算命源码正版

精选图文

热点推荐