UC知道vb程序中缺少子程序，函数或属性，怎么办？
来源：百度知道 编辑：UC知道 时间：2024/05/31 14:21:29
Private Sub Command1_Click()
Dim I As Integer, M0 As Single, TextLien As String, X() As Single, Y() As Single
CommonDialog1.Filter = "Metafile (*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = CommonDialog1.FileName
M0 = 0: f0 = 0: Fn = 0
Do Until EOF(1)
Line Input #1, TextLien: M0 = M0 + 1
Loop
Seek #1, 1
ReDim X(M0), Y(M0)
For I = 1 To M0
Input #1, X(I), Y(I)
Next I
Close 1
End Sub
Private Sub Command2_Click()
Dim YiYuanHuiGui As Integer
Dim B0 As Single, B1 As Single, r As Single
Call YiYuanHuiGui
Text2.Text = B0
Text3.Text = B1
Text4.Text = r
End Sub
Function YiYuanHuiGui(AX, AY, n, Y0, B0, B1, r) As Integer
Dim I As Integer, J As Integer
Dim SX As Single, SY As Single, EX As Single, EY As Single
Dim Lxx As
Dim I As Integer, M0 As Single, TextLien As String, X() As Single, Y() As Single
CommonDialog1.Filter = "Metafile (*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = CommonDialog1.FileName
M0 = 0: f0 = 0: Fn = 0
Do Until EOF(1)
Line Input #1, TextLien: M0 = M0 + 1
Loop
Seek #1, 1
ReDim X(M0), Y(M0)
For I = 1 To M0
Input #1, X(I), Y(I)
Next I
Close 1
End Sub
Private Sub Command2_Click()
Dim YiYuanHuiGui As Integer
Dim B0 As Single, B1 As Single, r As Single
Call YiYuanHuiGui
Text2.Text = B0
Text3.Text = B1
Text4.Text = r
End Sub
Function YiYuanHuiGui(AX, AY, n, Y0, B0, B1, r) As Integer
Dim I As Integer, J As Integer
Dim SX As Single, SY As Single, EX As Single, EY As Single
Dim Lxx As
Private Sub Command2_Click()
Dim YiYuanHuiGui As Integer
Dim B0 As Single, B1 As Single, r As Single
Call YiYuanHuiGui
Text2.Text = B0
Text3.Text = B1
Text4.Text = r
End Sub
call YiYuanHuiGui '是调用自定义过程"YiYuanHuiGui"的意思,
所以不有和自定义的整形变量Dim YiYuanHuiGui As Integer 同名,
至于:
Text2.Text = B0
Text3.Text = B1
Text4.Text = r
如果想把文本框的内容赋值给那三个变量的话,应该写成:
BO=text2.text
B1=text3.text
r=text4.text
否则返回的是空字符串...
删掉Private Sub Command2_Click() 中的 Dim YiYuanHuiGui As Integer 他与函数同名
错误定位在哪行？这样看代码很晕的。。。