Vb.net 如何制作inputBox'；s ok，然后按[Enter]键，使其以循环方式再次弹出

主要问题是：当用户单击确定或按键盘上的[Enter]键时，如何使InputBox保持弹出？此程序将每个值存储在顺序访问文件中

Option Explicit On
Option Strict On
Option Infer Off

Public Class frmMain

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click


End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Dim outFile As IO.StreamWriter
    Dim strInput As String
    Dim dblInput As Double

    'Do 
    strInput = InputBox("Enter A Number", "Test Scores Project")
    Double.TryParse(strInput, dblInput)

    outFile = IO.File.CreateText("Scores.txt")

    outFile.WriteLine(dblInput)
    'While user presses the enter button or ok keep asking for more numbers

    outFile.Close()

    Me.Close()
End Sub

Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click
    Dim inFile As IO.StreamReader
    Dim strMessage As String
    Dim intFiles As Integer

    If IO.File.Exists("Scores.txt") Then
        inFile = IO.File.OpenText("Scores.txt")
    Else
        MessageBox.Show("No such file exists", "Text Scores Project")
    End If

    Do Until inFile.Peek = -1
        strMessage = inFile.ReadLine
        intFiles += 1
    Loop

    lblNumber.Text = intFiles.ToString

End Sub

---

结束类

尝试在声明中初始化outfile：

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Using outFile As New IO.StreamWriter("Scores.txt")
        Dim strInput As String
        Dim dblInput As Double

        Do
        strInput = InputBox("Enter A Number(done when finished)", "Test Scores Project")
        If Double.TryParse(strInput, dblInput) Then                
            outFile.WriteLine(dblInput)
        End If
        While strInput <> "done"

    End Using

        Me.Close()
End Sub

Private Sub btnSave\u单击（发送者作为对象，e作为事件参数）处理btnSave。单击
将outFile用作新的IO.StreamWriter（“Scores.txt”）
像弦一样的模糊的条纹
Dim dblInput为双精度
做
strInput=InputBox（“输入一个数字（完成时完成）”，“测试分数项目”）
如果是Double.TryParse（strInput，dblInput），那么
输出文件写入线（dblInput）
如果结束
在“完成”的同时
终端使用
我
端接头

一个简单的while循环将在这里工作

---

注意：使用块的使用。这将处理流的所有清理。

之所以会收到有关

infle

的警告，是因为编译器认识到，如果IO.File.Exists（“Scores.txt”）存在，则代码路径可以通过

的
Else
分支，而从不向
infle
赋值

试着这样做：
Dim infle As IO.StreamReader=Nothing
我甚至没有在你的代码中看到
infle
。我会更新它，使其成为整个程序^^好漂亮！对不起，我没有马上把那个标记为答案！