产生20个1-100之间的整数，存入一个数组中。实现以下功能。(1)输出数组。(2)求最大值及最大值所在的下标。(3)完成数组排序，并输出。请用vb解决

Question

产生20个1-100之间的整数，存入一个数组中。实现以下功能。
(1)输出数组。
(2)求最大值及最大值所在的下标。
(3)完成数组排序，并输出。
请用vb解决

Answer 1

Option Base 1
Private Sub Command1_Click()
Dim a(20) As Integer
'以下代码功能是产生20个随机数并输出
For i = 1 To 20
a(i) = Int(100 * Rnd) + 1
Print a(i),
If i Mod 5 = 0 Then Print
Next i
'以下代码功能是求数组最大值和最小值的下标
Max = 1: Min = 1
For i = 1 To 20
If a(Max) < a(i) Then
Max = i
End If
If a(Min) > a(i) Then
Min = i
End If
Next
Print "数组最大值的下标是："; Max
Print "数组最小值的下标是："; Min
'以下代码功能是将数组从大到小排序
For i = 1 To 19
For j = 20 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
'以下代码功能是输出排序的结果
For i = 1 To 20
Print a(i),
If i Mod 5 = 0 Then Print
Next i
End Sub