编写处理数学函数和IF逻辑的可视化基础程序

时间:2013-10-25 04:56:12

标签: function vba boolean

首次在本网站发帖;主要是因为我遇到了一个很大的问题,我的视觉基础课上有一个我们被分配的问题。可以看到完整的问题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框中。我希望我至少有一些意义。

1 个答案:

答案 0 :(得分:0)

你可以将屈曲变量设置为布尔值为Mark Hall建议的值,或者将单词“True”或“False”改为字符串,以便你的屈曲变量接受它们 IE只是将Double Quote(s)添加到True(将其变为“True”)和False(将其变为“False”)