vbnet 多次计算结果存入数组并输出文本

下面是一个示例代码，可以实现多次计算结果存入数组，并将结果输出到文本文件中：

Imports System.IO

Module Module1

    Sub Main()
        ' 定义数组用于存储计算结果
        Dim results(4) As Integer

        ' 进行多次计算，并将结果存入数组
        For i As Integer = 0 To 4
            results(i) = Calculate(i)
        Next

        ' 将结果输出到文本文件
        Dim outputFile As String = "output.txt"
        Using writer As StreamWriter = New StreamWriter(outputFile)
            For Each result As Integer In results
                writer.WriteLine(result)
            Next
        End Using

        Console.WriteLine("计算结果已存入数组，并输出到文本文件 " & outputFile)
        Console.ReadLine()
    End Sub

    Function Calculate(ByVal input As Integer) As Integer
        ' 这里只是一个示例计算，实际应用中可以根据需要进行具体的计算
        Return input * 2
    End Function

End Module

在上述代码中，我们首先定义了一个数组 results 用于存储计算结果。然后使用 For 循环进行多次计算，将每次的结果存入数组中。接下来，我们使用 StreamWriter 将数组中的结果输出到文本文件中。最后，输出一条提示信息到控制台，并等待用户输入。

请注意修改 Calculate 函数以符合您的实际计算需求，并根据需要更改输出文件的名称和路径