在vb中输入N个数到数组中，找出其中绝对值最小的数和绝对值最大的数，并将两者互换位置。

Dim x(10) As Single

Private Sub Command1_Click()
For i = 0 To 10
x(i) = Val(InputBox("请输入第" & i & "个数值："))
Next i
End Sub

Private Sub Command2_Click()
da = x(0)
xiao = x(0)
nda = 0
nxiao = 0
For i = 1 To 10
If Abs(x(i)) > da Then
da = x(i)
nda = i
End If
If Abs(x(i)) < xiao Then
xiao = x(i)
nxiao = i
End If
Next i
Print "绝对值最大的是"; da
Print "绝对值最大的"; xiao
x(nxiao) = da
x(nda) = xiao
MsgBox "处理完毕！"
End Sub

Private Sub Form_Load()
Command1.Caption = "输入数值"
Command2.Caption = "处理极值"
End Sub