VB自己不会做，请教高手！

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:07:17
将Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) 赋值给一个数组，求元素的和，最大值、最小值，以及出现位置
6. 先随机生成10个数字的数组，然后输出改数组所有元素，交换位置后再输出新的位置数组元素
要求将第一个元素和最后一个元素交换，第二个和倒数第二个交换，一次类推

1.Option Base 1
Private Sub Command1_Click()
Dim a()

Dim min%, imin%, imax%, t%, max%, i%, j%, sum%
a() = Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)
sum = 0
For i = 1 To UBound(a)
Print a(i);
Next i
' 输出原始数据
min = a(1)
max = a(1)
sum = a(1)
For j = 2 To UBound(a)
If min > a(j) Then t = min: min = a(j): a(j) = t: imin = j
If max < a(j) Then t = max: max = a(j): a(j) = t: imax = j
sum = sum + a(j)
Next j
' 按要求编写
Print vbCrLf & "数组中元素和为：" & sum
Print "数组中的最大元素为：" & max; "在"; imax; "位"
Print "数组中的最小元素为：" & min; "在"; imin; "位"
' 在屏幕上输出
End Sub

2Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = Rnd * 101
Print a(i);
Nex