vb编程中出现子vb子程序或函数未定义义怎么回事？（本人菜鸟一个，希望大神教我）

来源：蜘蛛抓取(WebSpider) 时间：2015-02-04 01:01 标签： 子程序或函数未定义
用vb制作员工工资管理系统，发送exe文件时出现“子程序或函数未定义”请问我该怎么编写代码？_百度知道
用vb制作员工工资管理系统，发送exe文件时出现“子程序或函数未定义”请问我该怎么编写代码？
我有更好的答案
按默认排序
程序或函数未定义 意思是，系统找不到这个东西在哪。告诉系统这个函数是什么，干什么的才行。没代码，仅仅靠这一句话我也只能说这些。也就是说，你拿了一个无效的东西来调用，写代码。需要对函数或者过程进行定义：你使用的函数或者过程名找不到
其他类似问题
工资管理系统的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb 子程序或函数未定义
[问题点数：10分，结帖人mengtnt]
vb 子程序或函数未定义
[问题点数：10分，结帖人mengtnt]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2013年11月 VB大版内专家分月排行榜第二
2012年9月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。哪位VB高手看看程序哪里出了问题，为什么显示子程序或函数未定义呢？_百度知道
哪位VB高手看看程序哪里出了问题，为什么显示子程序或函数未定义呢？
提示信息&= 0;请选选择屏蔽材料.4886)
If g = 2 Then
i = -2, i As Single
a = Val(Text1.9606)
If g = 0 Then
MsgBox &quot, c As S
If k = 0 Then
MsgBox &quot, & 1 Then
i = 40; Or Text3！&quot, 48; Then
MsgBox &quot.Text)
c = Val(Text3.4 * f)
If k = 4 Then
If g = 1 Then
i = -23, g As IntegerPrivate Sub Command1_Click()
Dim a As Single.9701)
If g = 0 Then
MsgBox &.1 Then
i = -16.001 &#47.1 Then
i = -23; 0.336 * f)
If f &gt.63 * lg(f * 0.4457)
If g = 2 Then
i = -4;提示信息&quot.Text = &&= 1 * 10 ^ (-6) And f &
Label1.Text = & Or Text2.Text)
e = 0.8666)
If g = 2 Then
i = -4;请选选择放射源.295)
If g = 2 Then
i = -4！&quot！&quot.54 * lg(f * 0; (a * h * c)
If k = 1 Then
If g = 1 Then
If f &gt.9142)
If g = 0 Then
MsgBox &quot, &quot.47 * lg(f * 0; Or Text4;;
If k = 3 Then
If g = 1 Then
If f &gt.59 * Exp(-2;&, 48; 3600
f = d * e * (b ^ 2) &#47, b As Single, &请选选择屏蔽材料, 48, & 0;.031 * lg(f * 0;&
If k = 2 Then
If g = 1 Then
If f &gt, d As Single.1 And f &= 1 * 10 ^ (-6) And f &lt.163 * lg(f * 0;提示信息& 1 Then
i = 44;&提示信息&quot, & 0.Text)
d = Val(Text4;= 0;请选选择屏蔽材料.501 * lg(f * 0！&quotDim k As Integer.43 * Exp(-2！&
If Text1.1 And f &提示信息&quot.7649)
If g = 0 Then
MsgBox &; 1 Then
i = 26;= 1 * 10 ^ (-6) And f &lt, f As Single.3 And f &lt, 48.33 * lg(f * 0;= 0;请完整输入用户参数&quot, h As S请选选择屏蔽材料;提示信息&quot.Text = &quot.Text)
b = Val(Text2.393 * lg(f * 0.1 Then
i = -20.Text = &quot.79 * Exp(-2, 48, &.66 * f)
If f &gt, e As Single, 48
提问者采纳
用于计算自然对数（以e为底）：Function lg(x As Double) As Double
lg = Log(x)&#47。你可以根据换底公式，只有log函数;Log(10)当然也可以自定义出lg函数，写为Log(x)&#47VB中没有lg这个函数
其他类似问题
函数的相关知识
按默认排序
其他2条回答
错误定位在哪行？你这个问题肯定是哪个函数没定义。。
你的语句这么不规范？
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb中的错误，说子程序或函数未定义？
vb中的错误，说子程序或函数未定义？ 5
鸡兔同笼的题
Private Sub Text2_LostFocus()& Dim x As Integer& Dim y As Integer&& x = Val(Text1.Text)&& y = Val(Text2.Text)If y Mod 2 && 0 Then&& m = MsgBox("输入数据错误，可能如下情况：" + Char(13) + "总脚数非偶数" + Char(13) + "总脚数小于2倍的头数" + Char(13) + "总脚数大于4倍的头数" + Char(13) + "请重新输入", "输入错误")&& Text2.Text = ""ElseIf y & (2 * x) Then&& m = MsgBox("输入数据错误，可能如下情况：" + Char(13) + "总脚数非偶数" + Char(13) + "总脚数小于2倍的头数" + Char(13) + "总脚数大于4倍的头数" + Char(13) + "请重新输入", "输入错误")&& Text2.Text = ""ElseIf y & (4 * x) Then&& m = MsgBox("输入数据错误，可能如下情况：" + Char(13) + "总脚数非偶数" + Char(13) + "总脚数小于2倍的头数" + Char(13) + "总脚数大于4倍的头数" + Char(13) + "请重新输入", "输入错误")&& Text2.Text = ""End If&& Label5.Caption = 2 * x - y / 2& && Label6.Caption = x / 2 - yEnd Sub
char(13)& 这里错了,应该是chr(13)
其他回答 (2)
这段程序本身没有什么错误，你查一下这段之外的部分
应该是chr，并非char
或者加一个functions
Private Function char(a As Double) As Doublechar = Chr(a)End Function
相关知识等待您来回答
编程领域专家VB中QueryExt()子程序或函数未定义是怎么回事_百度知道
VB中QueryExt()子程序或函数未定义是怎么回事
提问者采纳
QueryExt()这是个自定义函数，你前面没有定义，后面就不能用。
那怎么定义啊
Public Function QueryExt()
代码End Sub
提问者评价
哎，本人是一特别笨的人，理解不了，不过，还是谢谢啦。
其他类似问题
函数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 子程序或函数未定义 的文章

 

随机推荐