周易vb源碼

㈠ 一個VB程序全部源代碼在哪看

不知道你說的這個VB程序是編譯後的可執行文件還是源程序，如果是源程序，那麼你用VB打開其工程文件就能看到了。如果是可執行文件，那對不起，你要看到代碼那就很難了，要是隨隨便便就能看到軟體的代碼，那麼所有程序員的飯碗就都是紙糊的了

㈡ 怎麼運行VB源代碼

首先你要有VB 這個軟體,注意你還的注意版本的問題,是否與你現有的源代碼是否一致,一般來講VB6.0的大多數.
然後打開你的VB程序,點擊文件--打開工程--選擇你保存源程序的代碼的文件夾,選擇工程文件(VBP\VBG文件) ,確定.
現在可以先按F5來試運行,沒問題,點擊文件---生成XXXXX.EXE --一路下去就OK啦!

㈢ 求計算生辰八字的vb源碼

你的來信已收到，已作更正。

新郵件已發出，請查收。

PS:我調試沒錯，你說不正確，請舉例說明。不然我怎麼找錯誤？

㈣ 什麼是VB源碼

這個詞分為兩部分來解釋。
第一、VB
VB可以是指一種計算機語言，是Visual Basic的縮寫，由美國微軟公司開發；也可以指用來進行VB語言開發的開發平台，比如MicroSoft Visual Basic 6.0

計算機語言分為最早的也是最基本的機器語言（二進制語言）、低級語言（匯編）、高級語言（VB、C、C++、C#）。其中執行效率最高的是機器語言，它不需要編譯可以直接被機器讀懂。效率最低的是高級語言，它需要經過編譯甚至多次編譯才能轉變為機器語言。但是高級語言是最接近自然語言的（如：英語），因此被廣泛的使用。

第二、源碼
類似的，用英語書寫的可以用來交流的文字片斷叫做文章，那麼用VB語言來書寫的可以被計算機編譯平台理解的文字片斷就叫做VB代碼了。
那麼如果有一個程序，是使用VB語言來寫成的，那麼這些VB語言就叫做該程序的VB源碼

不知道這樣解釋樓主能不能理解

㈤ 如何編寫高質量的VB代碼

1. 使用整數（Integer）和長整數（Long）
提高代碼運行速度最簡單的方法莫過於使用正確的數據類型了。也許你不相信，但是正確地選擇數據類型可以大幅度提升代碼的性能。在大多數情況下，程序員可以將Single，Double和Currency類型的變數替換為Integer或Long類型的變數，因為VB處理Integer和Long的能力遠遠高於處理其它幾種數據類型。
在大多數情況下，程序員選擇使用Single或Double的原因是因為它們能夠保存小數。但是小數也可以保存在Integer類型的變數中。例如程序中約定有三位小數，那麼只需要將保存在Integer變數中的數值除以1000就可以得到結果。根據我的經驗，使用Integer和Long替代Single，Double和Currency後，代碼的運行速度可以提高將近10倍。
2. 避免使用變體
對於一個VB程序員來說，這是再明顯不過的事情了。變體類型的變數需要16個位元組的空間來保存數據，而一個整數（Integer）只需要2個位元組。通常使用變體類型的目的是為了減少設計的工4作量和代碼量，也有的程序員圖個省事而使用它。但是如果一個軟體經過了嚴格設計和按照規范編碼的話，完全可以避免使用變體類型。
在這里順帶提一句，對於Object對象也存在同樣的問題。請看下面的代碼：
Dim FSO
Set FSO = New Scripting.FileSystemObject
或
Dim FSO as object
Set FSO = New Scripting.FileSystemObject
上面的代碼由於在申明的時候沒有指定數據類型，在賦值時將浪費內存和CPU時間。正確的代碼應該象下面這樣：
Dim FSO as New FileSystemObject
3. 盡量避免使用屬性
在平時的代碼中，最常見的比較低效的代碼就是在可以使用變數的情況下，反復使用屬性（Property），尤其是在循環中。要知道存取變數的速度是存取屬性的速度的20倍左右。下面這段代碼是很多程序員在程序中會使用到的：
Dim intCon as Integer
For intCon = 0 to Ubound(SomVar())
Text1.Text = Text1.Text & vbcrlf & SomeVar(intCon)
Next intCon
下面這段代碼的執行速度是上面代碼的20倍。
Dim intCon as Integer
Dim sOutput as String
For intCon = 0 to Ubound(SomeVar())
sOutput = sOutput & vbCrlf &
SomeVar(intCon)
Next
Text1.Text = sOutput
4. 盡量使用數組，避免使用集合
除非你必須使用集合（Collection），否則你應該盡量使用數組。據測試，數組的存取速度可以達到集合的100倍。這個數字聽起來有點駭人聽聞，但是如果你考慮到集合是一個對象，你就會明白為什麼差異會這么大。
5. 展開小的循環體
在編碼的時候，有可能遇到這種情況：一個循環體只會循環2到3次，而且循環體由幾行代碼組成。在這種情況下，你可以把循環展開。原因是循環會佔用額外的CPU時間。但是如果循環比較復雜，你就沒有必要這樣做了。
6. 避免使用很短的函數
和使用小的循環體相同，調用只有幾行代碼的函數也是不經濟的--調用函數所花費的時間或許比執行函數中的代碼需要更長的時間。在這種情況下，你可以把函數中的代碼拷貝到原來調用函數的地方。
7. 減少對子對象的引用
在VB中，通過使用.來實現對象的引用。例如：
Form1.Text1.Text
在上面的例子中，程序引用了兩個對象：Form1和Text1。利用這種方法引用效率很低。但遺憾的是，沒有辦法可以避免它。程序員唯一可以做就是使用With或者將用另一個對象保存子對象（Text1）。
注釋： 使用With
With frmMain.Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
或者
注釋： 使用另一個對象保存子對象
Dim txtTextBox as TextBox
Set txtTextBox = frmMain.Text1
TxtTextBox.Text = "Learn VB"
TxtTextBox.Alignment = 0
TxtTextBox.Tag = "Its my life"
TxtTextBox.BackColor = vbBlack
TxtTextBox.ForeColor = vbWhite 注意，上面提到的方法只適用於需要對一個對象的子對象進行操作的時候，下面這段代碼是不正確的：
With Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
很不幸的是，我們常常可以在實際的代碼中發現類似於上面的代碼。這樣做只會使代碼的執行速度更慢。原因是With塊編譯後會形成一個分枝，會增加了額外的處理工作。
8. 檢查字元串是否為空
大多數程序員在檢查字元串是否為空時會使用下面的方法：
If Text1.Text = "" then
注釋： 執行操作
End if
很不幸，進行字元串比較需要的處理量甚至比讀取屬性還要大。因此我建議大家使用下面的方法：
If Len(Text1.Text) = 0 then
注釋： 執行操作
End if
9. 去除Next關鍵字後的變數名
在Next關鍵字後加上變數名會導致代碼的效率下降。我也不知道為什麼會這樣，只是一個經驗而已。不過我想很少有程序員會這樣畫蛇添足，畢竟大多數程序員都是惜字如金的人。
注釋： 錯誤的代碼
For iCount = 1 to 10
注釋： 執行操作
Next iCount
注釋： 正確的代碼
For iCount = 1 to 10
注釋： 執行操作
Next
10. 使用數組，而不是多個變數
當你有多個保存類似數據的變數時,可以考慮將他們用一個數組代替。在VB中，數組是最高效的數據結構之一。
11. 使用動態數組，而不是靜態數組
使用動態數組對代碼的執行速度不會產生太大的影響，但是在某些情況下可以節約大量的資源。
12. 銷毀對象
無論編寫的是什麼軟體，程序員都需要考慮在用戶決定終止軟體運行後釋放軟體佔用的內存空間。但遺憾的是很多程序員對這一點好像並不是很在意。正確的做法是在退出程序前需要銷毀程序中使用的對象。例如：
Dim FSO as New FileSystemObject
' 執行操作
' 銷毀對象
Set FSO = Nothing
對於窗體，可以進行卸載：
Unload frmMain
或
Set frmMain = Nothing
13. 變長和定長字元串
從技術上來說，與變長字元串相比，定長字元串需要較少的處理時間和空間。但是定長字元串的缺點在於在很多情況下，你都需要調用Trim函數以去除字元串末的空字元，這樣反而會降低代碼效率。所以除非是字元串的長度不會變化，否則還是使用變長字元串。
14. 使用類模塊，而不是ActiveX控制項
除非ActiveX控制項涉及到用戶界面，否則盡量使用輕量的對象，例如類。這兩者之間的效率有很大差異。
15. 使用內部對象
在涉及到使用ActiveX控制項和DLL的時候，很多程序員喜歡將它們編譯好，然後再加入工程中。我建議你最好不要這樣做，因為從VB連接到一個外部對象需要耗費大量的CPU處理能力。每當你調用方法或存取屬性的時候，都會浪費大量的系統資源。如果你有ActiveX控制項或DLL的源代碼，將它們作為工程的私有對象。
16. 減少模塊的數量
有些人喜歡將通用的函數保存在模塊中，對於這一點我表示贊同。但是在一個模塊中只寫上二三十行代碼就有些可笑了。如果你不是非常需要模塊，盡量不要使用它。這樣做的原因是因為只有在模塊中的函數或變數被調用時，VB才將模塊載入到內存中；當VB應用程序退出時，才會從內存中卸載這些模塊。如果代碼中只有一個模塊，VB就只會進行一次載入操作，這樣代碼的效率就得到了提高；反之如果代碼中有多個模塊，VB會進行多次載入操作，代碼的效率會降低。
17. 使用對象數組
當設計用戶界面時，對於同樣類型的控制項，程序員應該盡量使用對象數組。你可以做一個實驗：在窗口上添加100個PictureBox，每個PictureBox都有不同的名稱，運行程序。然後創建一個新的工程，同樣在窗口上添加100個PictureBox，不過這一次使用對象數組，運行程序，你可以注意到兩個程序載入時間上的差別。
18. 使用Move方法
在改變對象的位置時，有些程序員喜歡使用Width，Height，Top和Left屬性。例如：
Image1.Width = 100
Image1.Height = 100
Image1.Top = 0
Image1.Left = 0
實際上這樣做效率很低，因為程序修改了四個屬性，而且每次修改之後，窗口都會被重繪。正確的做法是使用Move方法：
Image1.Move 0,0,100,100
19. 減少圖片的使用
圖片將佔用大量內存，而且處理圖片也需要佔用很多CPU資源。在軟體中，如果可能的話，可以考慮用背景色來替代圖片--當然這只是從技術人員的角度出發看這個問題。
20. 使用ActiveX DLL，而不是ActiveX控制項
如果你設計的ActiveX對象不涉及到用戶界面，使用ActiveX DLL。
編譯優化
我所見過的很多VB程序員從來沒有使用過編譯選項，也沒有試圖搞清楚各個選項之間的差別。下面讓我們來看一下各個選項的具體含義。
1. P-代碼（偽代碼）和本機代碼
你可以選擇將軟體編譯為P-代碼或是本機代碼。預設選項是本機代碼。那什麼是P-代碼和本機代碼呢？
P-代碼：當在VB中執行代碼時，VB首先是將代碼編譯為P-代碼，然後再解釋執行編譯好的P-代碼。在編譯環境下，使用這種代碼要比本機代碼快。選擇P-代碼後，編譯時VB將偽代碼放入一個EXE文件中。
本機代碼：本機代碼是VB6以後才推出的選項。當編譯為EXE文件後，本機代碼的執行速度比P-代碼快。選擇本機代碼後，編譯時VB使用機器指令生成EXE文件。
在使用本機代碼進行編譯時，我發現有時候會引入一些莫名其妙的錯誤。在編譯環境中我的代碼完全正確地被執行了，但是用本機代碼選項生成的EXE文件卻不能正確執行。通常這種情況是在卸載窗口或彈出列印窗口時發生的。我通過在代碼中加入DoEvent語句解決了這個問題。當然出現這種情況的幾率非常少，也許有些VB程序員從來沒有遇到過，但是它的確存在。
在本機代碼中還有幾個選項：
a) 代碼速度優化：該選項可以編譯出速度較快的執行文件，但執行文件比較大。推薦使用
b) 代碼大小優化：該選項可以編譯出比較小的執行文件，但是以犧牲速度為代價的，不推薦使用。
c) 無優化：該選項只是將P-代碼轉化為本機代碼，沒有做任何優化。在調試代碼時可以使用。
d) 針對Pentium Pro優化：雖然該項不是本機代碼中的預設選項，但是我通常會使用該選項。該選項編譯出的可執行程序在Pentium Pro和Pentium 2以上的機器上可以運行得更快，而在比較老的機器上要稍稍慢一些。考慮到現在用Pentium 2都是落伍，所以推薦大家使用該選項。
e) 產生符號化調試信息：該項在編譯過程中生成一些調試信息，使用戶可以利用Visual C++一類的工具來調試編譯好的代碼。使用該選項會生成一個.pdf文件，該文件記錄了可執行文件中的標志信息。當程序擁有API函數或DLL調用時，該選項還是比較有幫助的。
2. 高級優化
高級優化中的設置可以幫助你提高軟體的速度，但是有時候也會引入一些錯誤，因此我建議大家盡量小心地使用它們。如果在代碼中有比較大的循環體或者復雜的數學運算時，選中高級優化中的某些項會大幅度提升代碼的性能。如果你使用了高級優化功能，我建議你嚴格測試編譯好的文件。
a) 假定無別名：可以提高循環體中代碼的執行效率，但是在如果通過變數的引用改變變數值的情況下，例如調用一個方法，變數的引用作為方法的參數，在方法中改變了變數的值的話，就會引發錯誤。有可能只是返回的結果錯誤，也有可能是導致程序中斷運行的嚴重錯誤。
b) 取消數組綁定檢查、取消整數溢出檢查和取消浮點錯誤檢查：在程序運行時，如果通過這些檢查發現了錯誤，錯誤處理代碼會處理這些錯誤。但是如果取消了這些檢查，發生了錯誤程序就無法處理。只有當你確定你的代碼中不會出現上面的這些錯誤時，你才可以使用這些選項。它們將使軟體的性能得到很大的提升。
c) 允許不舍入的浮點操作：選擇該選項可以是編譯出來的程序更快地處理浮點操作。它唯一的缺點就是在比較兩個浮點數時可能會導致不正確的結果。
d) 取消Pentium FDIV安全檢查：該選項是針對一些老的Pentium晶元設置的，現在看來已經過時了。

㈥ 我想要一個計算生辰八字的vb語言源碼

這個是有計算方法的，只要你有計算公式我就可以計算出來的。但是前提你要有計算公式才行。

'公歷轉農歷模塊

'// 農歷數據定義 //
'先以 H2B 函數還原成長度為 18 的字元串，其定義如下：
'前12個位元組代表1-12月：1為大月，0為小月；壓縮成十六進制(1-3位)
'第13位為閏月的情況，1為大月30天，0為小月29天；(4位)
'第14位為閏月的月份，如果不是閏月為0，否則給出月份(5位)
'最後4位為當年農歷新年的公歷日期，如0131代表1月31日；當作數值轉十六進制(6-7位)

'農歷常量(1899~2100，共202年）
Private Const ylData = "AB500D2,4BD0883," _
& "4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2," _
& "A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC," _
& "A4B00D0,B4B0580,6A500D8,6D400CD,AB5147C,2B600D5,95700CA,52F027B,49700D2,6560682," _
& "D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0," _
& "D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9," _
& "B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680," _
& "AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE," _
& "4DD057F,4AD00D7,A4D00CB,D4D047B,D2500D3,D550883,B5400DA,B6A00CF,95A1680,95B00D8," _
& "49B00CD,A97047D,A4B00D5,B270ACA,6A500DC,6D400D1,AF40681,AB600D9,93700CE,4AF057F," _
& "49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD," _
& "D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6," _
& "B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D," _
& "6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB," _
& "76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4," _
& "56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B," _
& "93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA," _
& "D2E0379,C9600D1,D550781,D4A00D9,DA400CD,5D5057E,56A00D6,A6C00CB,55D047B,52D00D3," _
& "A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A," _
& "69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882," _
& "D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1"

Private Const ylMd0 = "初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五" _
& "十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十 "

Private Const ylMn0 = "正二三四五六七八九十冬臘"
Private Const ylTianGan0 = "甲乙丙丁戊已庚辛壬癸"
Private Const ylDiZhi0 = "子丑寅卯辰巳午未申酉戌亥"
Private Const ylShu0 = "鼠牛虎兔龍蛇馬羊猴雞狗豬"

'公歷日期轉農歷
Function GetYLDate(ByVal strDate As String) As String

On Error GoTo aErr

If Not IsDate(strDate) Then Exit Function

Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer
setDate = CDate(strDate)
tYear = Year(setDate): tMonth = Month(setDate): tDay = Day(setDate)

'如果不是有效有日期，退出
If tYear > 2100 Or tYear < 1900 Then Exit Function

Dim daList() As String * 18, conDate As Date, thisMonths As String
Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer
Dim YLyear As String, YLShuXing As String
Dim dd0 As String, mm0 As String, gan(0 To 59) As String * 2
Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer

'載入2年內的農歷數據
ReDim daList(tYear - 1 To tYear)
daList(tYear - 1) = H2B(Mid(ylData, (tYear - 1900) * 8 + 1, 7))
daList(tYear) = H2B(Mid(ylData, (tYear - 1900 + 1) * 8 + 1, 7))

AddYear = tYear

initYL:

AddMonth = CInt(Mid(daList(AddYear), 15, 2))
AddDay = CInt(Mid(daList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay) '農歷新年日期

getDay = DateDiff("d", conDate, setDate) + 1 '相差天數
If getDay < 1 Then AddYear = AddYear - 1: GoTo initYL

thisMonths = Left(daList(AddYear), 14)
RunYue1 = Val("&H" & Right(thisMonths, 1)) '閏月月份
If RunYue1 > 0 Then '有閏月
thisMonths = Left(thisMonths, RunYue1) & Mid(thisMonths, 13, 1) & Mid(thisMonths, RunYue1 + 1)
End If
thisMonths = Left(thisMonths, 13)

For i = 1 To 13 '計算天數
mDays = 29 + CInt(Mid(thisMonths, i, 1))
If getDay > mDays Then
getDay = getDay - mDays
Else
If RunYue1 > 0 Then
If i = RunYue1 + 1 Then RunYue = True
If i > RunYue1 Then i = i - 1
End If

AddMonth = i
AddDay = getDay
Exit For
End If
Next

dd0 = Mid(ylMd0, (AddDay - 1) * 2 + 1, 2)
mm0 = Mid(ylMn0, AddMonth, 1) + "月"

For i = 0 To 59
gan(i) = Mid(ylTianGan0, (i Mod 10) + 1, 1) + Mid(ylDiZhi0, (i Mod 12) + 1, 1)
Next i

YLyear = gan((AddYear - 4) Mod 60)
YLShuXing = Mid(ylShu0, ((AddYear - 4) Mod 12) + 1, 1)
If RunYue Then mm0 = "閏" & mm0

GetYLDate = "農歷 " & YLyear & "(" & YLShuXing & ")年" & mm0 & dd0

aErr:

End Function

'農歷轉公歷日期
'secondMonth 為真，則天示當 tMonth 是閏月時，取第二個月
Function GetDate(ByVal tYear As Integer, tMonth As Integer, tDay As Integer, Optional secondMonth As Boolean = False) As String

On Error GoTo aErr

If tYear > 2100 Or tYear < 1899 Or tMonth > 12 Or tMonth < 1 Or tDay > 30 Or tDay < 1 Then Exit Function

Dim thisMonths As String, ylNewYear As Date, toMonth As Integer
Dim mDays As Integer, RunYue1 As Integer, i As Integer
thisMonths = H2B(Mid(ylData, (tYear - 1899) * 8 + 1, 7))

If tDay > 29 + CInt(Mid(thisMonths, tMonth, 1)) Then Exit Function

ylNewYear = DateSerial(tYear, CInt(Mid(thisMonths, 15, 2)), CInt(Mid(thisMonths, 17, 2))) '農歷新年日期

thisMonths = Left(thisMonths, 14)
RunYue1 = Val("&H" & Right(thisMonths, 1)) '閏月月份

toMonth = tMonth - 1
If RunYue1 > 0 Then '有閏月
thisMonths = Left(thisMonths, RunYue1) & Mid(thisMonths, 13, 1) & Mid(thisMonths, RunYue1 + 1)
If tMonth > RunYue1 Or (secondMonth And tMonth = RunYue1) Then toMonth = tMonth
End If
thisMonths = Left(thisMonths, 13)

mDays = 0
For i = 1 To toMonth
mDays = mDays + 29 + CInt(Mid(thisMonths, i, 1))
Next
mDays = mDays + tDay

GetDate = ylNewYear + mDays - 1

aErr:

End Function

'將壓縮的陰歷字元還原
Private Function H2B(ByVal strHex As String) As String
Dim i As Integer, i1 As Integer, tmpV As String
Const hStr = "0123456789ABCDEF"
Const bStr = ""

tmpV = UCase(Left(strHex, 3))

'十六進制轉二進制
For i = 1 To Len(tmpV)
i1 = InStr(hStr, Mid(tmpV, i, 1))
H2B = H2B & Mid(bStr, (i1 - 1) * 4 + 1, 4)
Next

H2B = H2B & Mid(strHex, 4, 2)

'十六進制轉十進制
H2B = H2B & "0" & CStr(Val("&H" & Right(strHex, 2)))
End Function
Private Sub Command1_Click()
Label1.Caption = GetYLDate(Text1.Text)
End Sub