3

第一次在本网站发帖；主要是因为我在分配给我们的视觉基础课上遇到了一个大问题。完整的问题可以在这里看到。

基本上，我遇到了我认为我按照指示正确执行屈曲加载功能的问题，但我不知道如何将每个不同的 True 或 False 值放入 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 框中。我希望我至少有点道理。

4

1 回答 1

0

您可以按照 Mark Hall 的建议将屈曲变量设置为布尔值，或者将单词“True”或“False”作为字符串传递，以便您的屈曲变量接受它们 IE 只需将双引号添加为 True（将其转换为“ True") 和 False (将其变为 "False")

于 2013-10-25T06:15:16.833 回答