VB中如何对数组求最大值与最小值并交换两者的次序请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 09:35:47
VB中如何对数组求最大值与最小值并交换两者的次序请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!
VB中如何对数组求最大值与最小值并交换两者的次序
请问这个该怎么写代码啊,我一直在纠结那个 -12 与 2 是怎么交换的,求指导!
VB中如何对数组求最大值与最小值并交换两者的次序请问这个该怎么写代码啊,我一直在纠结那个 -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 Sub