UC知道这道VB题谁会做啊！！！！跪求啊！！ 我还会有加分的。。
来源：百度知道 编辑：UC知道 时间：2024/06/28 07:56:48
输入N个数到数组中，找出其中最小的数和最大的数，并将两者互换位置。（数组元素的个数N用Inputbox函数输入）运行结果参考如下窗体
单击窗体，运行结果如图所示：（图片不能在上面显示，我就简单说下内容）
form1
数组的初始值：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
在窗口上要显示两组数据啊
就是：
数组的初始值：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
这些都是要在窗口上显示出来的
单击窗体，运行结果如图所示：（图片不能在上面显示，我就简单说下内容）
form1
数组的初始值：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
在窗口上要显示两组数据啊
就是：
数组的初始值：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
这些都是要在窗口上显示出来的
Private Sub Form_Click()
Dim aRr(1 To 300), i, j, Max, Min, N, temP, temP2 As Double
Me.AutoRedraw = True
N = InputBox("请指出元素的个数")
Print "处理前"
For i = 1 To N
aRr(i) = InputBox("请输入第" & i & "个元素:")
Print aRr(i)
If i = 1 Then temP = aRr(1): temP2 = aRr(1): Max = 1: Min = 1
If i > 1 Then
If Val(aRr(i)) > Val(temP) Then temP = aRr(i): Max = i
If Val(temP2) > Val(aRr(i)) Then temP2 = aRr(i): Min = i
End If
Next i
temP = aRr(Max)
aRr(Max) = aRr(Min)
aRr(Min) = temP '完成找出其中最小的数和最大的数,互换位置
'显示出来看看
Me.CurrentX = 1000
Me.CurrentY = 0
Print "处理后"
For i = 1 To N
Me.CurrentX = 1000
Print aRr(i)
Next i
Me.CurrentX = 2000
Me.CurrentY = 0
Print "最大数：" & aRr(Min)
Me.CurrentX = 2000
Print "最小数：" & aRr(Max)
End Sub
dim N a