那位好心人帮我该一下这段程序啊

Private Type employee
  empno As Integer
  name As String * 10
  address As String * 10
End Type




Private Sub Command1_Click()
Dim emp As employee
Dim fag As Integer
Dim n As Integer
Open "d:\a.dat" For Random As #1 Len = Len(emp)

Title$ = "些记录到随机文件"
str1$ = "请输入雇员号"
str2$ = "请输入雇员名"
str3$ = "请输入雇员地址"
Do
  emp.empno = InputBox(str1$, Title$)
  emp.name = InputBox(str2$, Title$)
  emp.address = InputBox(str3$, Title$)
  n = n + 1
  Put #1, n, emp
  answer = MsgBox("您还要输入吗", 20, Title$)
  fag = answer
    Loop While fag = 6
   Close #1

    
End Sub

Private Sub Command2_Click()
n = Val(InputBox("请输入你要找的雇员号", ""))
Open "d:\a.dat" For Random As #1 Len = Len(emp)
Get #1, n, emp
Text1.Text = Str$(emp.empno) + emp.name + emp.address
Close #1

End Sub
--------------------编程问答-------------------- '修改之后
Private Type employee
  empno As Integer
  name As String * 10
  address As String * 10
End Type
Dim Emp As employee'此句提前到此处
Private Sub Command1_Click()
Dim fag As Integer
Dim n As Integer
Open "d:\a.dat" For Random As #1 Len = Len(Emp)
Title$ = "些记录到随机文件"
str1$ = "请输入雇员号"
str2$ = "请输入雇员名"
str3$ = "请输入雇员地址"
Do
  Emp.empno = InputBox(str1$, Title$)
  Emp.name = InputBox(str2$, Title$)
  Emp.address = InputBox(str3$, Title$)
  n = n + 1
  Put #1, n, Emp
  answer = MsgBox("您还要输入吗", 20, Title$)
  fag = answer
Loop While fag = 6
Close #1
End Sub
Private Sub Command2_Click()
n = Val(InputBox("请输入你要找的雇员号", ""))
Open "d:\a.dat" For Random As #1 Len = Len(Emp)
Get #1, n, Emp
Text1.Text = Str$(Emp.empno) + Emp.name + Emp.address
Close #1
End Sub
--------------------编程问答-------------------- 这回对了，谢谢

补充：VB ,  基础类