°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
 xpath = App.Path & "\ku\score.txt"
 Open xpath For Random As #1 Len = Len(personl)
 personl.number = Val(Text1.Text)
 personl.score = Val(Text2.Text)
 personl.name = Text3.Text
 Put #1, Val(Text4.Text), personl
 i = i + 1
 Close #1
 MsgBox "ѧÉúÐÅÏ¢ÒÑдÈ룡", vbInformation
 Label1.Caption = "×ܼǼÊý£º" + i
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 Text4.Text = ""
End Sub
Private Sub Command2_Click()
 xpath = App.Path & "\ku\score.txt"
 Open xpath For Random As #1 Len = Len(personl)
  Get #1, Val(Text4.Text), personl
  Text1.Text = personl.number
  Text2.Text = personl.score
  Text3.Text = personl.name
End Sub

---

ÄÄÀïÓÐÎÊÌ⣿
±ð¿¼ÈË£¡

---

VB code:

Private Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
xp