编写处理数学函数和 IF 逻辑的 Visual Basic 程序的问题答案

【问题标题】：Issue writing visual basic program dealing with mathematical functions and IF logic编写处理数学函数和 IF 逻辑的 Visual Basic 程序的问题
【发布时间】：2013-10-25 04:56:11
【问题描述】：

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

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

【问题讨论】：

我看到的第一件事是你的函数返回一个布尔值并且你将它分配给一个字符串，我会制作 buckling1,2,3 布尔变量，这样你就可以检查它们是否为真或 false 来确定列表框所需的输出字符串。

标签： function vba boolean

【解决方案1】：

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

【讨论】：