vb如何定义子程序

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

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

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

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

打开代码编辑窗口

→

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

→

输入子程序的代码

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

打开代码编辑窗口

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

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

→

单击“确定”

→

输入子程序定义体

子程序实际上就是

Sub ()

……

End Sub

括起来的部分，相当昌行世于Pascal语言中的过程或者是C/++语言中带唤的void型函耐肢数。

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

否则出错

---