Question

VB运行时出现子程序或函数未定义，怎么回事啊？

Private Sub Form_Load()
Call SetFormCenter(Me)
Call SetFormIcon(Me)
End Sub

Answer 1

Private Function SetFormCenter(k As Form)
On Error Resume Next
k.Left = (Screen.Width - k.Width) \ 2
k.Top = (Screen.Height - k.Height) \ 2
End Function

Private Function SetFormIcon(k As Form)
On Error Resume Next
'不知道你想设什么图标，这里空着
End Function

把上面的语句放进代码中就可以了。

Answer 2

i是整型数据，直接在Text后跟整型对控件进行引用会出错 你没有定义变量 i Texti.Text=“” Texti，没有这样的用法。要如此格式：Text1(i) ..

Answer 3

SetFormCenter和SetFormIcon都不是VB编译器所提供的函数，是自定义的，所以要使用必须自己写相应的函数代码啊！

追问

相应的代码怎么写？

Answer 4

呵呵，也许你的过程写在form——load
下来吧