Visual studio Visual Basic-在.txt文件中保存和加载一位或多位数字

Visual studio Visual Basic-在.txt文件中保存和加载一位或多位数字,visual-studio,Visual Studio,在我的作业中,我用visual basic制作了一个球类游戏,玩家击球得分。我在保存数字/最高分数并将其加载到.txt文件时遇到问题。到目前为止,我已经成功地将玩家的名字和高分保存到一个.txt文件中,但是它只保存/加载0-9之间的数字,不允许2位以上的数字。提前谢谢。以下是我的代码: 保存到文本文件 Dim FileNum As Integer 'if the player's score (lblpoints) is greater than the high score (lb

在我的作业中,我用visual basic制作了一个球类游戏,玩家击球得分。我在保存数字/最高分数并将其加载到.txt文件时遇到问题。到目前为止,我已经成功地将玩家的名字和高分保存到一个.txt文件中,但是它只保存/加载0-9之间的数字,不允许2位以上的数字。提前谢谢。以下是我的代码:

保存到文本文件

   Dim FileNum As Integer

  'if the player's score (lblpoints) is greater than the high score (lblhighscore)

   If lblpoints.Text > lblhighscore.Text Then
        lblnewhigh.Visible = True
        lblhighscore.Text = lblpoints.Text
        lblbestname.Text = lblplyrname.Text

        'to save highscore to txt file

        FileNum = FreeFile()
        FileOpen(FileNum, "score.txt", OpenMode.Output)
        PrintLine(FileNum, lblbestname.Text)
        PrintLine(FileNum, lblhighscore.Text)
        FileClose(FileNum)

    End If
Dim FileNum As Integer

    'to fetch the highscore from txt file
    FileNum = FreeFile()
    FileOpen(FileNum, "score.txt", OpenMode.Input)
    lblbestname.Text = LineInput(FileNum)
    lblhighscore.Text = LineInput(FileNum)
    FileClose(FileNum)
从文本文件加载

   Dim FileNum As Integer

  'if the player's score (lblpoints) is greater than the high score (lblhighscore)

   If lblpoints.Text > lblhighscore.Text Then
        lblnewhigh.Visible = True
        lblhighscore.Text = lblpoints.Text
        lblbestname.Text = lblplyrname.Text

        'to save highscore to txt file

        FileNum = FreeFile()
        FileOpen(FileNum, "score.txt", OpenMode.Output)
        PrintLine(FileNum, lblbestname.Text)
        PrintLine(FileNum, lblhighscore.Text)
        FileClose(FileNum)

    End If
Dim FileNum As Integer

    'to fetch the highscore from txt file
    FileNum = FreeFile()
    FileOpen(FileNum, "score.txt", OpenMode.Input)
    lblbestname.Text = LineInput(FileNum)
    lblhighscore.Text = LineInput(FileNum)
    FileClose(FileNum)

那么,在保存或加载时会出现什么错误呢?在记事本中打开文件,查看保存的内容。如果它是错误的,请在记事本中编辑它,然后将其与代码一起加载,看看是否有效。隔离问题。为什么不使用.net来执行此操作。这是规则的一部分吗?我认为这在拯救中是错误的。我播放了它,我使用了“eddie”这个名字,它保存在.txt文件的第一行,我得到了“11”的分数,它将数字“9”保存在文本文件的第二行。然后我进入文本文件,将数字“9”改为“11”,并加载了数字“11”。然而,当我的分数超过11分时,它又回到了9分。我必须使用visual basic进行项目调试,只要使用调试器就可以看到这个错误。“11”小于“9”,因为“1”按字母顺序排列在“9”之前。因此没有输入If()语句体,也没有保存文件。比较数字,而不是字符串。