VB.NET 数组存储多次计算结果并写入文本文件

以下是使用 VB.NET 编写的程序，可以多次计算两个公式的结果，并将结果存入数组，并输出到文本文件中：

Imports System.IO

Module Module1

    Sub Main()
        Dim numOfCalculations As Integer = 3
        Dim results(numOfCalculations - 1) As Double

        For i As Integer = 0 To numOfCalculations - 1
            Dim result1 As Double = CalculateFormula1(i + 1)
            Dim result2 As Double = CalculateFormula2(i + 1)

            results(i) = result1 + result2
        Next

        Dim outputFile As String = "output.txt"
        WriteResultsToFile(outputFile, results)

        Console.WriteLine("Results have been written to " & outputFile)
        Console.ReadLine()
    End Sub

    Function CalculateFormula1(ByVal x As Double) As Double
        Return 2 * x + 1
    End Function

    Function CalculateFormula2(ByVal x As Double) As Double
        Return 3 * x - 2
    End Function

    Sub WriteResultsToFile(ByVal filePath As String, ByVal results() As Double)
        Using writer As New StreamWriter(filePath)
            For i As Integer = 0 To results.Length - 1
                writer.WriteLine("Result " & (i + 1) & ": " & results(i))
            Next
        End Using
    End Sub

End Module

在此示例中，我们定义了两个计算公式 CalculateFormula1 和 CalculateFormula2，分别计算 2 * x + 1 和 3 * x - 2 的结果。然后，我们使用一个循环多次计算这两个公式的结果，并将结果存入数组 results 中。

最后，我们使用 WriteResultsToFile 函数将结果写入到文本文件中。该函数使用 StreamWriter 类来创建并写入文本文件。在循环中，我们将每个结果写入文件，并附加一个标签，例如 Result 1: 5.0。

请注意，此程序将结果写入名为 output.txt 的文本文件中。如果要更改输出文件的名称或路径，请修改 outputFile 变量的值。