Question

VB生成应用EXE程序后，怎么保存数据

现在需要用VB编一个程序，怎么保存上面输入的TEXT文本中的数据，保存为自定义后缀，到指定文件夹，并且可以调用。比如：有2个TEXT文件或下拉，对应一个班的成绩表，同学名字，对应的成绩，每次手动输入，点保存按钮后，保存数据到/D: ,保存的文件后缀名为:.cj 如：班级成绩.cj 。点查询后，按名字搜索已保存的数据，显示对应的成绩。（如班级成绩.cj一个文件不能分开多次保存，可以保存为：学生名.cj。每点击保存，生成一个cj文件）有源程序、能详细解答最好。

Answer 1

Private Sub Command2_Click()  '保存
If Text1.Text <> "" And Text1.Text <> "" Then
   Open "d:\班级成绩.cj" For Append As #1
   Print #1, Text1.Text & ":" & Text2.Text
   Close #1
End If
End Sub

Private Sub Command1_Click()  '查询
Dim s As String, ss() As String
If Text1.Text <> "" Then
   Open "d:\班级成绩.cj" For Input As #1
   Do Until EOF(1)
      Line Input #1, s
      ss = Split(s, ":")
      If UBound(ss) = 1 Then
         If ss(0) = Text1.Text Then
            Text2.Text = ss(1)
            Exit Do
         End If
      End If
   Loop
   Close #1
End If
End Sub