vb通用过程简介

最新推荐文章于 2022-06-11 21:01:32 发布

gyzsky

最新推荐文章于 2022-06-11 21:01:32 发布

阅读量2.1k

点赞数

分类专栏： VB 文章标签： VB

本文链接：https://blog.csdn.net/hws1058648831a/article/details/8729878

版权

这篇博客介绍了几个VB中的通用过程，包括计算数组平均值、找出数组最大值以及数组排序。通过示例代码展示了如何使用这些过程，并在Command1_Click事件中演示了应用这些过程来处理和显示随机生成的数组元素。

摘要由CSDN通过智能技术生成

Private Sub Ave(Arry() As Integer, ByVal N As Integer, Average As Integer)
    Dim I As Integer, Sum As Integer
    Sum = 0
    For I = 1 To N - 1
        Sum = Sum + Arry(I)
    Next I
    Average = Sum / N
End Sub

Private Sub Max(Arry() As Integer, ByVal N As Integer, M As Integer)
    Dim I As Integer
    M = Arry(0)
    For I = 1 To N - 1
        If Arry(I) > M Then
            M = Arry(I)
        End If
    Next I
End Sub
Private Sub Sort(Arry() As Integer, ByVal N As Integer)
    Dim I As Integer, J As Integer, K As Integer, Temp As Integer
    For I = 0 To N - 2
        K = I
        For J = I + 1 To N - 1
            If Arry(K) > Arry(J) Then
                K = J
            End If
        Next J
        If K > I Then
            Temp = Arry(K)