VB中如何对数组求最大值与最小值并交换两者的次序

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/07/31 17:56:36

请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!

Private Sub Command1_Click()
    m = Array(2, 7, 9, -12, 5, 3)
    u = UBound(m)
    Print "数组初始值：";
    For i = 0 To u
        Print m(i);
    Next
    maxpos = 0
    minpos = 0
    Max = m(0)
    Min = m(0)
    For i = 0 To u
        If Abs(m(i)) < Min Then
            Min = Abs(m(i))
            minpos = i
        End If
        If Abs(m(i)) > Max Then
            Max = Abs(m(i))
            maxpos = i
        End If
    Next
    Print
    tmp = m(maxpos)
    m(maxpos) = m(minpos)
    m(minpos) = tmp
    Print "交换后数组的值：";
    For i = 0 To u
        Print m(i);
    Next
End Su

VB中如何对数组求最大值与最小值并交换两者的次序【C语言】找出2维数组中最大值与最小值并交换位置 c语言编程在整型数组a[10]中找出最大值和最小值,并将最大值与数组中第一个数交换,最小值与数组中最后一个数交换,其它在VB中寻找一个数组的最大值或最小值,可否用Max或Min函数? 一个数组,怎样交换最大值最小值的位置编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值编写程序,输入一维数组的10个元素,并将最小值与第1个数交换,最大值与最后一个数交换,然后输出交换后的1 输入十个实数到一维数组,将数组中最大值最小值交换位置编写一个程序,通过指针变量找出一维数组中的最大值和最小值,并交换最大值和最小值的位置. c语言问题：查找一个值不相同的二维整型数组中的最大值和最小值,并将最大值和最小值交换后输出求一维数组中,数组元素的最大值和最小值.