編譯錯誤publicsub
A. 編譯錯誤：常數、固定長度字元串、數組、用戶定義類型以及declare語句不允許作為對象模塊的public成員
常數、固定長度字元串、數組、自定義類型與 Declare 語句不能是對象模塊中的 Public 成員
並非所有對象模塊中的變數都可聲明成 Public。然而，按預設規定，過程是 Public，且 Property 過程在語法結構上可模擬變數。這個錯誤的起因與解決方法如下所示：
在對象模塊中聲明了一個 Public 常數。
雖然不能在對象模塊中聲明 Public 常數，但可以創建一個同名的Property Get 過程。若不能創建同名的 Property Let 或 Property Set 過程，實際上創建了一個只讀屬性，其用法與常數相同。
在對象模塊中聲明了一個 Public 類型的固定長度字元串。
可用一組 Property 過程模擬固定長度字元串，並截掉超出長度的字元串數據，或通知用戶超出長度。
在對象模塊中聲明了一個 Public 數組。
雖然過程不能返回數組，但可返回一個包含數組的 Variant。要模擬類模塊中的 Public 數組，可用一組Property 過程，它們接受與返回包含數組的 Variant 。
在對象模塊中放了一個 Declare 語句。
Declare 語句隱含著公用的意思，可在 Declare 語句之前加上一個 Private 關鍵字。
B. vb為什麼總提示，編譯錯誤：用戶定義類型以及declare語句不允許作為對象模塊的public成員
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
把public改為private
C. VB編程提示Private Sub Command1_Click()編譯錯誤，過程聲明與同名事件或過程的描述不匹配
1、Passwordstr = Text1.Text 修改為 Passwordstr = Me.Text1
2、這兩行：
Load Form2
Form2.Show 、
修改為：Docmd.openform Form2
3、Result = MsgBox("Password Denied,Please imput again.", "Visual Basic OK Only", "Error!")修改為
MsgBox"Password Denied,Please imput again."
4、 Text1.Text = "" 修改為 Me.Text1 = 「」
修改了以上內容之後，你再試試！~
D. excel的vba宏寫的程序，結果無法運行，標示「編譯錯誤，過程過大」，求高手解決。
單個過程的代碼量過大。劃分成幾個過程，用主過程調用即可解決！
E. VB 編譯錯誤 塊if 沒有end if
你的代碼不全？
根據第一行代碼是
Case Else
那麼你前面應該有：
Select Case XXXX '這個是Select語句的開始
Case X1
......
Case X2
......
Case Else
If strResponse Like "*R*" Or Len(Trim(strResponse)) = 0 Then '允許發送 ----這個少End If
If strResponse Like "**" Or Len(Trim(strResponse)) = 0 Then ----這個少End If
'請求結束
'生成設備串
aItem = Split(strSample, "|")
'標本或SampleID
strBuffer = aItem(1)
strSampleID = aItem(5)
'讀取反饋的架號和杯號
strRackNO = ""
If Len(Trim(strResponse)) > 0 Then
strResponse = Replace(strResponse, "RB", "")
iPos = InStr(strResponse, "R")
strRackNO = Mid(strResponse, iPos + 5, 11)
End If
...............................
............................
End Select 『這個是Select語句的結束
F. vb編譯錯誤：缺少變數或過程，不是模塊
編譯錯誤：
缺少變數或過程，不是模塊。
'這個是模塊中的代碼，（不在窗體的代碼區內，在一個模塊文件中）
Public Sub SEND_SERINFO(IP As String, Text As String)
main.wsk1.RemoteHost = IP
main.wsk1.SendData "SER_INFO " + Text
End Sub
'然後在窗體代碼模塊中調用
call send_serinfo(ip,text)
然後進行調試
G. 關於類模塊,為什麼生成dll的時候老提示 編譯錯誤: Private 對象模塊不能作為參數、公共過程....代碼如下
private 定義為私有，只有被定義的模塊內才能使用
H. 我用vb寫了如下這個類 可是編譯dll的時候卻出現 編譯錯誤：類模塊需要實現'Activate'為介面'ObjectControl
你要聲明一個public的介面類，名稱為ObjectControl，其中至少要聲明：
Public Sub Active()
End Sub
Public Function CanBePooled() As Boolean
End Function
Public Sub Deactivate()
End Function
這是一個抽象類，這三個函數無需任何代碼，這樣才能在你示例的類中實現ObjectControl介面....
I. 編譯錯誤 必選參數 求高手幫助
absmax有4個參數，調用的時候才3個。
Public Sub absmax(x() As Single, m As Byte, n As Byte, xmax As Single)
改這樣看看：
Private xmax As Single
Public Sub absmax(x() As Single, m As Byte, n As Byte)