多个变量 取最大的变量

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

设 abcde 为五个数字变量

Dim a() As Integer = {a,b,c,d,e,0}
                    For index As Integer = 0 To 4
                        If a(index) >= (a(0) + a(1) + a(2) + a(3) + a(4)) / 5 Then
                            a(5) = a(index) + a(5)
                            a(6) = a(6) + 1
                        End If
                    Next
                    For index As Integer = 0 To a(6)
                        If a(index) >= a(5) / a(6) Then
                            a(7) = a(index) + a(7)
                            a(8) = a(8) + 1
                        End If
                    Next
                    For index As Integer = 0 To a(8)
                        If a(index) >= a(7) / a(8) Then
                            Select Case index
                                Case 0
                                    msgbox("最大变量是a")
                                Case 1
                                    msgbox("最大变量是b")
                                Case 2
                                    msgbox("最大变量是c")
                                Case 3
                                    msgbox("最大变量是d")
                                Case 4
                                    msgbox("最大变量是e")
                            End Select
                        End If
                    Next

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

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