vb如何定义子程序

不知“如何定义子程序”是指哪个层面的。

如果是指子程序定义的语法结构，则要讲明白需要较多的文字，所以建议找一本教科书看看。

如果是指在代码窗口建立子程序，则有两种方法：

(1)直接输入， *** 作步骤是：

打开代码编辑窗口

→

置插入点于任何已经存在的过程之外

→

输入子程序的代码

(2)使用“添加过程”对话框， *** 作步骤是：

打开代码编辑窗口

→选择菜单“工具／添加过程”→

填写“添加过程”对话框中的“过程名”以及选择“类型”、“范围”等选项

→

单击“确定”

→

输入子程序定义体

VB中子程序或函数未定义是指Sub, Function, 或 Property 未定义等。

Sub, Function, 或 Property 未定义（错误

35）

调用 Sub、Function 或 Property 的过程必须定义。此错误有以下的原因和解决方法：

O 过程名称拼错。

  检查拼写并改正。

O 试图从另一个工程调用过程，但并没有在“引用”

对话框中将该引用添加到该工程。

添加引用

显示“引用” 对话框。

查找包含要调用过程的工程名。如果“引用” 对话框中没有所要的工程名，请按“浏览”按钮来搜寻它。

选取工程名左边的复选框。

单击“确定”。

调用的过程看不到所指定的过程。

在模块中声明为 Private

的过程不能被模块外部的过程调用。如果 Option Private Module

起作用的话，其他工程就不能使用模块中的过程。寻找以确定过程的位置

申明Windows动态链接库

(DLL)例程，但例程不在指定的库或代码资源中。

检查序号（如果正使用的话）或例程名称。请确保 DLL 的版本是正确的。例程有可能只存在于较后的 DLL

版本。如果在路径中，错误版本的目录在含有正确版本的目录之前的话，就会访问到错误的 DLL。所给的 DLL 名称虽正确，但并非指定函数所包含的版本。

详细信息，可选取有问题的项目，并按下 F1 键。

Private Sub cmdSave_Click()

Dim i As Integer

For i = 0 To 4

If txtPersonInfo(i) = "" Then

MsgBox "此项不能为空!", vbExclamation

txtPersonInfo(i).SetFocus

Exit Sub

End If

Next i '向数据库中写数据'

WriteData '各控件设置初始值'

InitControl

End Sub

问题应该是出在倒数第二行，lnitControl 和WriteData 这两个过程或函数是否有定义？

你的程序中应该有下面的过程或函数：

Sub InitControl()

......

End sub

否则出错

---