Private Sub Command1_Click()
Dim no As String, name As String, num As String
Open App.Path & "\通讯录.txt" For Random As #1
Do While Not EOF(1)
Input #1, no, name, num -----在这里提示文件模式错误
If Text1.Text = no And Text2.Text = name Then
Write #1, Text1.Text, Text2.Text, Text3.Text
Text1.Text = """"
Text2.Text = ""
Text3.Text = ""
Else
Write #1, Text1.Text, Text2.Text, Text3.Text
Close #1
End If
Loop
MsgBox "该学号已经储存", , "提示
End Sub
求高手帮忙，纠错
Input #1, no, name, num -----在这里提示文件模式错误
Dim no As String, name As String, num As String
Open App.Path & "\通讯录.txt" For Random As #1
Do While Not EOF(1)
Input #1, no, name, num -----在这里提示文件模式错误
If Text1.Text = no And Text2.Text = name Then
Write #1, Text1.Text, Text2.Text, Text3.Text
Text1.Text = """"
Text2.Text = ""
Text3.Text = ""
Else
Write #1, Text1.Text, Text2.Text, Text3.Text
Close #1
End If
Loop
MsgBox "该学号已经储存", , "提示
End Sub
求高手帮忙，纠错
Input #1, no, name, num -----在这里提示文件模式错误
