vb子程序未定义怎么改怎么办_vb中子程序或者函数未定义!求教解决方案,

PrivateSubCommand1_Click()Caption="b样条曲面"CommonDialog1.Filter="数据文件*.txt|*.txt|(*.*)|*.*"CommonDialog1.ShowOpenfilehandle=FreeFile()ReDimXB(4,4),YB(4,4),ZB(4,4),P...

Private Sub Command1_Click()

Caption = "b样条曲面"

CommonDialog1.Filter = "数据文件*.txt|*.txt|(*.*)|*.*"

CommonDialog1.ShowOpen

filehandle = FreeFile()

ReDim XB(4, 4), YB(4, 4), ZB(4, 4), PX(4), PY(4), PZ(4)

ReDim UX(4), UY(4), UZ(4), XYZ(4), MAXZ(640)

Open CommonDialog1.FileName For Input As #filehandle

For I = 1 To 4: For J = 1 To 4: Input #filehandle, XB(I, J): Next J, I

For I = 1 To 4: For J = 1 To 4: Input #filehandle, YB(I, J): Next J, I

For I = 1 To 4: For J = 1 To 4: Input #filehandle, ZB(I, J): Next J, I

Close #filehandle

Pi = 3.14159: NL = 15: NP = 80: KX = 200: KZ = 200: