UC知道VB程序设计问题！高分200求解
来源：百度知道 编辑：UC知道 时间：2024/07/01 10:51:49
输入N个数到数组中，找出其中最小的数和最大的数，并将两者互换位置。（数组元素的个数N用Inputbox函数输入）运行结果参考如下窗体：
单击窗体，运行结果如图所示：
数组的初始值是：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
可行就加100
单击窗体，运行结果如图所示：
数组的初始值是：
1 7 6 -99 2
交换后数组的值：
1 -99 6 7 2
可行就加100
本来还在自己写，不过lfm13720都给出答案了就没有必要了。
不过还是要提醒下，在程序中一定要进行错误处理。
因为inputbox中可以输入任何 字符串。 如果别人输入的不是数值，不考虑这些的话，写出来的程序多半都是通不过的。
祝你好运！！
dim N as integer, A() as integer, i as integer,j as integer
dim max as integer,min as integer,lmax as integer,lmin as integer
N=inputbox("请输入N的值：")
redim A(1 to N)
'给数值赋值过程略
max=a(1):min=a(1):lmax=1:lmin=1
for i=1 to N
if max<a(i) then
max=a(i):lmax=i
end if
if min>a(i) then
min=a(i):lmin=i
end if
next i
j=a(lmax):a(lmax)=a(lmin):a(lmin)=j'交换最大值和最小值
print "最大值";max;"最小值";min
for i=1 to N
print a(i);
next i
在窗体上显示出来了
Private Sub Command1_Click()
Cls
Dim a, max, min, maxi, mini, temp
Dim i As Integer
a = Array(1, 7, 6, -99, 2)
Print "交换前："
For i = 0 To 4
If a(i) > max Then max = a(i): maxi = i
If a(i) < min Then