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