【传奇移植手机源码】【自动采集歌曲源码】【打车app源码html】算命vb源码

【传奇移植手机源码】【自动采集歌曲源码】【打车app源码html】算命vb源码_算命源码正版

来源：泰州到扬州源码时间：2024-11-26 08:29:01

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

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

换一个网址继续算命，源码源码传奇移植手机源码直到你满意为止。正版自动采集歌曲源码。算命算命。源码源码。正版。算命算命。源码源码如果你相信算命的正版话，我再说什么你都无法释怀，算命算命打车app源码html还不如用算命来算算命的源码源码命。。正版。。asp分销平台源码。。。

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

【传奇移植手机源码】【自动采集歌曲源码】【打车app源码html】算命vb源码_算命源码正版

热点文章

精彩图文