VB中子程序或函数未定义

1、查看控件是否添加完整

2、查看窗体是否添加完整

3、查看数组是否有未定义

4、是否有未定义的函数

5、是否函数名，控件名等有拼写错误的情况

6、在代码最前面加 Option Explicit，强制检查变量定义，可以避免出现错误

将Private Function fmax(a As Integer, b As Integer, c As Integer) As Integer中的Private改为Public:

Public Function fmax(a As Integer, b As Integer, c As Integer) As Integer

Private表示该函数过程是私有过程，只能被本模块中的过程调用；Public表示该函数过程是公有过程，可以被本程序中的所有过程调用。

可以这么理解，主程序是开机运行的主线程序，

子程序

是该过程被调用的窗体或子程序。

VB

工程里

有个启动页面选型，把你准备做主程序的窗体放在里面运行，然后再这个窗体中调用其它窗体或子程序就可以了。

vb出现子程序或函数未定义可能是少打或者多打几个字母或者单词所导致无法运行。

Visual Basic（VB)是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

findpic

是一个自定义函数。

样子大约是：

dim

intx

as

integer

dim

inty

as

integer

private

sub

开始_click()

'应该事先对intx,

inty

赋值

findpic

0,

0,

1024,

768,

"c:\documents

and

settings\administrator\桌面

intx,

inty"

'"c:\documents

and

settings\administrator\桌面

intx,

inty"

这个很奇特，可能不合语法

if

intx

>

0

and

inty

>

0

then

moveto

intx,

inty

end

if

end

sub

function

findpic(x

as

long,

y

as

long,

width

as

long,

height

as

long,

path

as

string)

'这里面应该是功能代码

end

function

Private

Sub

Open_Click()

‘每次点击"open"时都会蹦出来一小框“

子程序

或函数未定义”

Data1DatabaseName

=

F:

实验九

"\studentmdb"

Data1RecordSource

=

"基本情况"

Data1Refresh

End

Sub你的这段代码中的这句话Data1DatabaseName

=

F:

实验九

"\studentmdb"

有错误，传的是字符串应该Data1DatabaseName

="

F:

\实验九\studentmdb"这样才把数据库的名字赋给它另外Private

Sub

Open_Click()

‘每次点击"open"时都会蹦出来一小框“子程序或函数未定义”

msgbox

"Hello"'Data1DatabaseName

=

F:

实验九

"\studentmdb"

'Data1RecordSource

=

"基本情况"

'Data1Refresh

End

Sub

你再把这3句注释一下，只加一个msgbox看看执行还出那个窗口么，如果不出就是里边的代码错误了，再把刚刚那句错了的语句改了试试看，有问题可以继续讨论

以上就是关于VB中子程序或函数未定义全部的内容，包括:VB中子程序或函数未定义、我的VB程序为什么总显示“子程序或函数未定义”、vb中怎么分主程序和子程序啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！