课程设计（论文）-Visual Basic程序设计 打字游戏 报告

re.txt" For Append As #1Р Print #1, "您的姓名是:" & Frmmain.Textname.Text & " 得分是:" & score & "分时间是:" & Now()Р Close 1Р End IfРEnd SubР 【问题4】:字符的产生、运动及重新产生。Р【解决办法】:定义两个函数sc和csc ,分别用于生成和重新生成各种字符,在适当的时候调用函数,达到预计的效果。Р【问题5】:分数统计方法Р【解决办法】:在字符的生成函数中加入计分的方法,例如score = score + 1。这样就可以实现这个功能。Р【问题6】:文件的读入与读出Р【解决办法】:通过下面的代码将游戏结果写入到Score.txt中РOpen App.Path & "\Score.txt" For Append As #1Р Print #1, "您的姓名是:" & Frmmain.Textname.Text & " 得分是:" & score & "分时间是:" & Now()Р Close 1Р通过下面的代码将Score.txt中的条目添加到列表框(先进行适当的判断)РIf Dir(App.Path & "\Score.txt") = "" ThenР MsgBox "你找的文件不存在!", 48, "成绩"Р Exit SubРElseР Open App.Path & "\Score.txt" For Input As #1Р Do While Not EOF(1)Р Line Input #1, tmР Frmscore.List1.AddItem tmР LoopР Close #1РEnd IfР更上一层楼Р改进之处:Р样例程序中的打字窗口背景很单调,我为他挑选了一张精美的图片Р课程设计总结Р程序不足之处:Р未实现爆炸效果,打击声音和扣分的相关效果