你怎么在vb.net中找到5个中最多的？

发布时间：2020-12-17 07:26:26 所属栏目：百科来源：网络整理

导读：这是在3中找到最大值的代码,但我想找到最大值的代码5： Dim a,b,c As Integera = InputBox("enter 1st no.") b = InputBox("enter 2nd no.") c = InputBox("enter 3rd no.")If a b Then If a c Then MsgBox("A is Greater") Else MsgBox("C is greater") End

这是在3中找到最大值的代码,但我想找到最大值的代码5：

Dim a,b,c As Integer

a = InputBox("enter 1st no.") 
b = InputBox("enter 2nd no.") 
c = InputBox("enter 3rd no.")

If a > b Then 
    If a > c Then 
        MsgBox("A is Greater") 
    Else 
        MsgBox("C is greater") 
    End If 
Else 
    If b > c Then 
        MsgBox("B is Greater") 
    Else 
        MsgBox("C is Greater")
    End If 
End If

解决方法

正如大卫建议的那样,将您的值保存在列表中.这比使用单个变量更容易,并且可以扩展到所请求的数量(最多数百万个值).

如果由于某种原因需要保留单个变量,请执行以下操作：

Dim max As Integer = a
Dim name As String = "A"
If b > max Then
    max = b
    name = "B"
End If
If c > max Then
    max = c
    name = "C"
End If
If d > max Then
    max = d
    name = "D"
End If
' ...  extend to as many variables as you need.
MsgBox(name & " is greater")

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!