1. 編譯錯誤為缺少函數或變數怎麼解決
不知道你用的是什麼語言,應該是vb的一種,分析如下:
1."歡迎進入 Hide"這句話前是否有單引號注釋?
2.text1,text2控制項是否存在?
3.「If Text1.Text = 123 + Text2.Text = 123 Then」這句話中的判斷語句看不懂,至少去掉一個等號的內容
4.「Form.csl」是什麼意思,是自定義的函數嗎?如沒自定義,應該是不能用的東東。
2. Excel 宏編譯錯誤,缺少:=
Sub PrintAllSheet()
Dim a As New Excel.Application
a.ActiveWorkbook.PrintOut()
End Sub
改改:
Sub PrintAllSheet()
Dim a As New Workbook
Set a = ActiveWorkbook
a.PrintOut copies:=1
End Sub
3. 編譯錯誤,編譯錯誤, 找不到函數
程序完全沒有錯,鏈接錯誤!
我剛調試過
原因是你可能在工程里只添加了fig05_11.cpp,而把GradeBook.cpp沒有添加進工程,結果造成編譯正常,但當連接時,linker找不到類的實現,這是因為GradeBook.cpp沒有被編譯,造成unresolved externals,這樣的錯誤
你重新建工程,然後將這三個文件都加進去,就行了
程序本身沒有任何錯誤!!!!!!!!!!!!!!!!!!!!!!!!!!!
4. VB編譯錯誤 缺少子程序,函數或屬性 下面是代碼 本人是菜鳥 是按照書上一步一步做 的 坐等高人
代碼呢?
5. excel函數編譯中出現 編譯錯誤 缺少標識符
奇怪,沒有出錯呀!我只是改了一下樓主的代碼格式而已。
要不LZ從我這Copy一下試試呢,內容基本一模一樣。
Function tax(Income As Single) As Single
Select Case Income
Case 0 To 800
tax = 0
Case 800.01 To 1300
tax = (Income - 800) * 0.05
Case 1300.01 To 2800
tax = (Income - 1300) * 0.1 + 25
Case 2800.01 To 5800
tax = (Income - 2800) * 0.15 + 175
Case 5800.01 To 20800
tax = (Income - 5800) * 0.2 + 625
Case 20800.01 To 40800
tax = (Income - 20800) * 0.25 + 3625
Case 40800.01 To 60800
tax = (Income - 40800) * 0.3 + 8625
Case 60800.01 To 80800
tax = (Income - 60800) * 0.35 + 14625
Case 80800.01 To 100800
tax = (Income - 80800) * 0.4 + 21625
Case Is >= 100800
tax = (Income - 100800) * 0.45 + 29625
Case Is < 0
MsgBox "你的工資輸入有誤!", vbOKOnly + vbCritical
End Select
End Function
6. Excel VBA 提示"編譯錯誤:缺少變數 缺少表達式" 好象是錯在變數名if,if不能作為變數名嗎
程序語言的特定字(關鍵字)是不能在編程過程中用作變數等的。
7. excel日歷插件提示編譯錯誤:缺少函數或變數
日歷控制項需要導入一個OCX文件,在網上找一下,然後放在system32下面。
8. vb編譯錯誤:缺少函數或變數
過程名,換一個。
Sub sheet1() 如:換成 sub AAA() 等,反正就是不能跟工作簿工作表一樣。
什麼叫出來?你的數據只是放數組裡面。
9. 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)
然後進行調試
10. VB 在運行過程中出現編譯錯誤,缺少函數或變數
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("zjtype") = Combo1.List(Combo1.ListIndex)
Adodc1.Recordset.Fields("zjid") = Text1.Text
Adodc1.Recordset.Fields("yajin") = Text2.Text
Adodc1.Recordset.Update
End sub