0

抱歉，如果这是一个简单的错误，对 VB 来说很新，但不确定我哪里出错了。我的代码会产生结果，我将在过程结束时将其写入文本框。这是我目前的代码：

Public Class Form1
    Public Sub ButtonInput_Click(ByVal sender As System.Object, ByVal e As     System.EventArgs) Handles ButtonInput.Click
        Try
            'information irrelevant to question here..

            MainMethod.Main()

            TextBoxbf.AppendText(bestGlobalFitness.ToString("F4"))
            TextBox0.Text = bestGlobalPosition(0)
            TextBox1.AppendText(bestGlobalPosition(1).ToString("F4"))
            TextBox2.AppendText(bestGlobalPosition(2).ToString("F4"))
            TextBox3.AppendText(bestGlobalPosition(3).ToString("F4"))
            TextBox4.AppendText(bestGlobalPosition(4).ToString("F4"))
            TextBox5.AppendText(bestGlobalPosition(5).ToString("F4"))
            TextBox6.AppendText(bestGlobalPosition(6).ToString("F4"))

        Catch ex As IndexOutOfRangeException
            Console.WriteLine("IndexOutOfRangeException caught")
        End Try
    End Sub
End Class

如您所见，我尝试了 TextBox.Text 和 TextBox.AppendText 方法，但似乎都没有工作。有点奇怪的是第一行 TextBoxbf.AppendText(bestGlobalFitness.ToString("F4")) 确实有效..

下面是在模块中输入 bestGlobalPosition 和 bestGlobalFitness 的方式：

Module MainMethod
    Public bestGlobalFitness As Double
    Public bestGlobalPosition([Dim] - 1) As Double
Public Sub Main()
    Try
        Dim bestGlobalPosition([Dim] - 1) As Double
        bestGlobalFitness = Double.MaxValue

        'rest of method here..

        Console.Write("Final best fitness = ")
        Console.WriteLine(bestGlobalFitness.ToString("F4"))
        For i As Integer = 0 To bestGlobalPosition.Length - 1
            Console.Write("x" & i & " = ")
            Console.WriteLine(bestGlobalPosition(i).ToString("F4") & " ")

我真的看不出我哪里出错了 - 任何帮助将不胜感激！

4

0 回答 0