高分求VB程序设计题答案

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:18:25
随机产生20个整数（范围自己确定），完成下面的功能：

1、找出20个数中的最大数（或最小数）及位置并输出；

2、将20个数循环左（或右）移动后重新输出；

3、查找任意一个指定的数并输出；

4、删除其中一个（或多个）指定的数并输出剩下的数；

5、将20个数按从小到大（或从大到小）顺序排列后输出。

给出程序代码就可以了 不用弄得太复杂 先谢谢各位高手了
越早越好 拜托了 好的话有加分的
只有这几句话 题是数组应用题

Dim ar(20) As Integer, i As Integer
For i = 0 To 19
ar(i) = CInt(Rnd() * 100)
Next
' 随机产生20个整数（范围0-100）
'将随机生成的20个整数付给一数组

Dim max As Integer
Dim maxPosition As Integer
max = ar(0)
maxPosition = 1
For i = 1 To 20
If ar(i) > max Then
max = ar(i)
maxPosition = i
End If
Next
MsgBox("maxmum number is " & max & "and it is in position" & maxPosition)
'找出20个数中的最大数（或最小数）及位置并输出；

Dim media As Integer
Dim number() As Integer
media = number(0)
For i = 1 To 19
number(i - 1) = number(i)
Next
number(19) = media
End
'将数组中元素左移

Dim x As Integer
x = InputBox("请