请教，如何在游戏程序中添加读取游戏得分榜之类txt文件的代码

游戏界面是一个窗体，得分榜是另一个窗体，怎样能在游戏结束以后判断得分高低是否在前十，然后弹出对话框，要求输入姓名
点OK后显示成绩处于前十的姓名和分数？

用access 最好实现

帮你做好了有不懂得可以联系我QQ308749442

请问一下我这个在游戏中插入音乐再根据菜单选择曲目的程序错在哪了？

Private Sub Form_Load() '播放
Dim Index As Integer
IsMusicOn = True
Select Case Index
Case 1 '播放第1首歌
'文件名
RetValue = mciSendString("OPEN " & App.Path & "\zmr.mid TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)

Case 2 '播放第2首歌
'文件名
RetValue = mciSendString("OPEN " & App.Path & "\shilei1.mid TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)
End Select
End Sub

Private Sub song_Click(Index As Integer)
Dim l As Integer
IsMusicOn = True
    For l = 1 To 3
    song(1).Checked = False
    Next l
    song(Index).Checked = True

   music.Enabled = True

End Sub

改好了你看一下 吧。