1.ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?算命算命
2.vbç®åå
3.我刚刚在某算命网中，算得的源码源码结果不好， 害怕怎么办
ç¨VBç¼ä¸ä¸ªç®åçç®å½å¨?正版
åªåè¿é¨åå§ï¼---ï¼ç¹å»"å¼å§"æé®,å¨"label1"çç»ææ¡ä¸éæºäº§çåé¢æè¾å ¥çè¯å¥ï¼
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() =
MonthAdd() =
'ååæ°æ®
NongliData(0) =
NongliData(1) =
NongliData(2) =
NongliData(3) =
NongliData(4) =
NongliData(5) =
NongliData(6) =
NongliData(7) =
NongliData(8) =
NongliData(9) =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
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
Do
If (NongliData(m) < ) Then
k =
Else
k =
End If
n = k
Do
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)
Next
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
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() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
sJieriDay() = ""
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() = "ä¸ç人ææ¥"
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
sGongliJieri = "ä»å¤©" & sJieriName(i)
Exit Function
ElseIf nDay > 0 Then
sGongliJieri = "差" & nDay & "天" & sJieriName(i)
Exit Function
End If
Next
End Function
我刚刚在某算命网中，算得的算命算命结果不好， 害怕怎么办
换一个网址继续算命，源码源码Thunkify源码直到你满意为止。正版rdm mac 源码打包。算命算命。源码源码。正版。算命算命。源码源码如果你相信算命的正版话，我再说什么你都无法释怀，算命算命微博协议源码还不如用算命来算算命的源码源码命。。正版。。iapp2048源码。。。
我算命的cms系统源码小猪招术非常多，不过那都是为了骗女生宿舍的妹妹玩的，虽然她们都非常着迷的信，因为巧合和类同的情况总是每个人都有，即使算的不准，我也有办法圆回去，这是语言的技巧而已。。。。。。
