1. 随机产生n个三位整数，找出其中最大值、最小值以及它们所对应的下标

Private Sub Command1_Click()
Randomize
x = Val(InputBox(""))
ReDim a(x)
For i = 1 To x
a(i) = Int((Rnd * 900) + 100)
Print a(i);
Next i
Print
Max = 0
Min = 1000
For i = 1 To x
If Max < a(i) Then Max = a(i): m = i
If Min > a(i) Then Min = a(i): n = i
Next i

Print Max, m
Print Min, n
End Sub

四个参数 a b i j 第一个和第二个比 大的为a 小的为b 大的下标为i 小的下标为j 第三个分别和 a b 比较 大于a替换掉a和i 小于b替换掉b和j

循环执行 停止后输出

我学过c 没用过VB 算法大致就是这样了 可能有简洁一点的吧 不过大致就这样了