VB中如何对数组求最大值与最小值并交换两者的次序
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/12 03:15:39
VB中如何对数组求最大值与最小值并交换两者的次序
![](http://img.wesiedu.com/upload/7/e1/7e1b51dddb9961aad49c5904eabc4991.jpg)
请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!
![](http://img.wesiedu.com/upload/7/e1/7e1b51dddb9961aad49c5904eabc4991.jpg)
请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!
![VB中如何对数组求最大值与最小值并交换两者的次序](/uploads/image/z/7557214-22-4.jpg?t=VB%E4%B8%AD%E5%A6%82%E4%BD%95%E5%AF%B9%E6%95%B0%E7%BB%84%E6%B1%82%E6%9C%80%E5%A4%A7%E5%80%BC%E4%B8%8E%E6%9C%80%E5%B0%8F%E5%80%BC%E5%B9%B6%E4%BA%A4%E6%8D%A2%E4%B8%A4%E8%80%85%E7%9A%84%E6%AC%A1%E5%BA%8F)
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
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
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语言问题:查找一个值不相同的二维整型数组中的最大值和最小值,并将最大值和最小值交换后输出
求一维数组中,数组元素的最大值和最小值.