Function 编写处理数学函数和IF逻辑的visual basic程序的问题

首次在本网站上发布；主要是因为我遇到了一个巨大的问题，关于我们分配给我的visual basic课程的一个问题。完整的问题可以看出来

基本上，我遇到的问题是，我认为我按照指示正确执行了屈曲载荷函数，但我不知道如何将每个不同的真值或假值放入lstOut框

Public Class Form1

Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
    Dim area As Double
    Dim length As Double
    Dim width As Double
    Dim load As Double
    Dim buckling1 As String
    Dim buckling2 As String
    Dim buckling3 As String


    length = CDbl(txtIn.Text)
    load = CDbl(txtLbs.Text)
    buckling1 = Test1(load, length, 2, area)
    buckling2 = Test1(load, length, 4, area)
    buckling3 = Test1(load, length, 6, area)


End Sub


Private Function Test1(ByVal load As Double, ByVal length As Double, ByVal width As Double, ByVal area As Double) As Boolean
    If ((0.3 * 1700000 * (length * width)) / (length / width) ^ 2) > load Then
        Return True
    Else
        Return False
    End If
End Function
End Class

这只是第一部分…我真的很难回答这个问题。我对编程有些陌生，函数的概念非常可怕。有人能给我一些建议吗

---

请注意，我并不是要求完成整个问题，我只是想弄清楚如何将Test1、Test2和Test3函数的所有输出放入lstOut框。我希望我至少有点道理。

您可以按照Mark Hall的建议将屈曲变量设置为布尔值，或者将单词“True”或“False”作为字符串传递，以便屈曲变量接受它们

---

IE只需将双引号添加到True（将其转换为“True”）和False（将其转换为“False”）

我看到的第一件事是，您的函数返回布尔值，而您将其分配给字符串，我将使用buckling1,2,3布尔变量，这样，您可以检查它们是否为真，以确定listbox所需的输出字符串。